vbScript - Do While Not "Or“

Question

我知道我昨天以某种方式使它工作，但一天结束时，我错误地关闭了更改而没有保存。今天我不知道我做错了什么。我和InputBox有一个循环，只想接受两个可能的答案，在这种情况下，苹果或橙色应该退出循环。

    Do
    myValue = InputBox("Enter something")
    Loop While Not myValue = "apple" Or myValue = "orange"

如果输入的是第一个值，而不是第二个值，则上面的代码只会退出循环。如果我为第二个值添加一个"Not“，就像下面这样，那么无论我输入什么，它都不会退出循环。

    Do
    myValue = InputBox("Enter something")
    Loop While Not myValue = "apple" Or Not myValue = "orange"

我知道这必须是显而易见的，但我想我已经看了太久的相同的代码来理解它。谢谢你的帮助。

Answer 1

你可能想要一个and。

Do
myValue = InputBox("Enter something")
Loop While Not myValue = "apple" And Not myValue = "orange"

不是and和Not ors是令人困惑的，但如果你通读它，你会弄清楚的。示例输入: apple

NOT "apple" = "apple"是FALSE，NOT "apple" = "orange"是TRUE。如果使用OR，则TRUE or FALSE的计算结果为TRUE。因此，循环会继续。但是，如果使用AND，则整个语句的计算结果为FALSE，这允许退出。

Answer 2

为什么不把英语翻译成VBScript：

I want to ask the user until the input is "apple" or "orange"

==>

  Dim sInp
  Do
     sInp = InputBox("Enter something")
     WScript.Echo "+", sInp
  Loop Until sInp = "apple" Or sInp = "orange"
  WScript.Echo sInp

示例输出：

+ banana
+ apple
apple
=============

+ pear
+ orange
orange
=============