誰能給我寫一個vb小程序,編寫一個函數,求1-N（正整數）的所有正整數之和,

題目：

誰能給我寫一個vb小程序,編寫一個函數,求1-N（正整數）的所有正整數之和,
用按鈕和編輯框形式表達出來,

解答：

Private Sub Command1_Click()
n = Val(Text1.Text)
For i = 1 To n
s = s + i
Next i
Text2.Text = s
End Su