Private Sub Command1_Click()
Dim s, n
Do While s < 30000
s = s + n
n = n + 2
Loop
Print "要使S<30000，n最大为" & n
End Sub
Private Sub Command1_Click()
Dim s As Integer, n As Integer
n = 1
s = 0
Do While s < 30000
s = s + n
n = n + 2
Loop
n = n - 4
MsgBox n
End Sub
Private Sub Command1_Click()
Dim s, n As Long
n = 1
Do While s < 30000
s = s + n
n = n + 1
Loop
Print (n)
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024