Dim sum As Integer, i As Integer
sum = 0
For i = 1 To 100
sum = sum + i
Next
Debug.Print "1 + 2 + ... + 100 ="; sum
Private Sub Command1_Click()
Dim a As Integer
For i = 1 To 100
a = a + i
Next
Print a
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024