vb中一个命令按钮,两个文本框,第一个文本框中输入任何数字,第二个求和。用while循环求出1+2+...+N的和代码

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

Private Sub Form_Click()
Dim sum As Integer '声明变量sum,记录总和
Dim Index As Integer '声明变量Index
n = InputBox("请输入n的值(1-32767)")
sum = 0 '初始化sum等于0
For Index = 1 To n
Print Index '打印每个数字
sum = sum + Index '累计求和
Next '重复执行直到循环结束
Print sum '最后打印求和结果
End Sub