Question

vb编程：求从1累加到100过程中，当累加到哪个数时，累加结果大于等于1000？

Answer 1

Dim i As Integer, isum As Integer
isum = 0: i = 1
Do
isum = isum + i
If isum >= 1000 Then
Print i
Exit Do
Else
i = i + 1
End If
Loop

Answer 2

Dim i As Integer, isum As Integer
For i = 1 To 100
isum = isum + i
If isum >= 1000 Then Exit For
Next
Print i

Answer 3

Private Sub Command1_Click()
i = 1
s = 0
While s < 1000
s = s + i
i = i + 1
Wend
Print i
End Sub