Private Sub Form_Click()
For i = 1 To 100
a = a + i
If a > 2000 Then
Exit For
End If
Next
Print a
Print i
End Sub
dim i as integer
dim s as integer
for i= 1 to 100
s=s+i
if s>2000 then exit for
next
print s
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024