Private Sub Command1_Click()
Dim n As Long, s As Double
n = Val(Text1.Text)
For i = 1 To n
s = s + i
Next i
Label3.Caption = Str(s)
End Sub
Private Sub Command1_Click()
m = Text1.Text
For i = 1 To m '这里主要考察for 。。。 next语句
a = a + i
Next
Label3.Caption = a
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024