VBA 为什么明明满足了a,b,c,d,w 同时大于0的时候为什么没有跳出Do Until 循环？大神救命

Sub uuu()
Dim a As Long
Dim b As Long
Dim c As Long
Dim d As Long
Dim w As Long
Dim roll As Single

Do Until a And b And c And d And w > 0
roll = Rnd()
Select Case roll
Case Is <= 0.05
a = a + 1
Case Is <= 0.2
b = b + 1
Case Is <= 0.24
c = c + 1
Case Is <= 0.49
d = d + 1
Case Is <= 1
w = w + 1
End Select
Loop
MsgBox a & "|" & b & "|" & c & "|" & d & "|" & w
End Sub

修改这一句
Do Until a And b And c And d And w > 0

Do Until a> 0 And b >0 And c >0 And d>0 And w > 0

你确定a,b,c,d,w 同时大于0了？

你好！ Do Until a > 0 And b > 0 And c > 0 And d > 0 And w > 0 如有疑问，请追问。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息