关于vb中do loop的问题 急！

Question

Private Sub Command1_Click()
Dim n As Integer
Do Until 5
n = n + 1
Loop
End Sub
为什么只执行一次循环？
Private Sub Command1_Click()
Dim n As Integer
Do Until 0
n = n + 1
Loop
End Sub
为什么执行循环超过整型的最大值？？
请大侠指教啊 明就考试勒！！！！！！！！！谢谢

Answer 1

Private Sub Command1_Click()
Dim n As Integer
Do Until 5
n = n + 1
Loop
End Sub

循环停止条件为 5,就是真
所以执行了一次就停止了

Private Sub Command1_Click()
Dim n As Integer
Do Until 0
n = n + 1
Loop

你这个循环停止条件为 0,就是假,也就是说这是个无限循环,当然会溢出

循环应该写成 这样

Private Sub Command1_Click()
Dim n As Integer
Do Until n > 5
n = n + 1
Loop
Print n
End Sub

Answer 2

常数作为循环条件当然非否即死
试一下
Do Until n = 5
Do Until n……