在VBA中无限循环

Question

任何人都可以看到我的while循环下面的错误是什么？基本上我想要求用户输入“m”或“w”，但是，当我运行它时似乎进入无限循环，尽管用户输入“m”或“w”。

While period <> "m" Or period <> "w"
    period = InputBox(Prompt:="Please enter the period (m/w): ", Title:="Period")
Wend

Answer 1

这是一个无限循环，因为如果period = "m"那么period <> "w" 反之亦然

切换到以下内容可能就是您想要的。

While period <> "m" AND period <> "w"
    period = InputBox(Prompt:="Please enter the period (m/w): ", Title:="Period")
Wend

Answer 2

我认为你的意思是And而不是Or几乎任何输入都不会是'w'或'm'，包括w和m。 （w不等于m，因此条件仍为真，反之亦然）。