无限while循环在VBA中

任何人都可以看到我的while循环下面怎么了？ 基本上我想请求一个用户input“m”或“w”，但是，当我运行它似乎进入无限循环，尽pipe用户input“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几乎没有任何input将不会是'w'或'm'，包括w和m。 （w不等于m，所以条件依然成立，反之亦然）。