VBA : While loop not working with multiple (or) condtions

Question

Sub Demo()

Dim x As Integer
Dim y As Integer

x = 20
y = 15

While ((x <> 10) Or (y <> 10))
    x = x - 1
    y = y - 1
    Debug.Print x & " : " & y
    Wend

Debug.Print x & " : " & y
End Sub

当 x 或 y 等于 10 时，此循环进入无限模式，而不是在条件下中断。我尝试使用 Do..While..Loop，但即使这样也不起作用。我们不能在 While 语句中使用多个条件吗？

Answer 1

将或替换为和!

即使 x 是 10，y 也不等于 10，反之亦然，因此您的条件始终为 true，并且您的循环将永远持续下去...