在VB中定义3个整型变量s,i,n。使用inputbox输入整数n，再用一个单重循环就可以实现指定的求和功能，最后用msgbox显示退出循环后s和i的值。
Private Sub Command1_Click()
Dim s As Integer, i As Integer, n As Integer
n = InputBox("N=")
For i = 1 To n
s = s + i
Next i
MsgBox ("退出循环后：" & vbCrLf & "s=" & s & vbCrLf & "i=" & i)
End Sub
既然用msgbox显示，那就用不着窗体了，主要代码如下：
Dim s, i, n
n = Val(InputBox("请输入一个正整数n"))
If n < 1 Then Exit Sub
For i = 1 To n
s = s + i
Next
MsgBox s
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024