VBScript 无法运行 - 错误 "Expected Statement"

Question

我有以下代码:

Dim todaysDate

todaysDate = Day(Now)

Select Case todaysDate

    Case 1 to 5
        Msgbox("1 to 5")

    Case 23 to 31
        Msgbox("23 to 31")
    End Select

当我将其放入 VBS 文件并运行它时，我得到第 9 行字符 10 的“预期语句”。

如果我将代码复制并粘贴到 Excel 的 VBA 编辑器中，它运行良好，没有错误。

有什么想法为什么它不能在 VBS 文件中工作吗？

Answer 1

在 VBScript 中，Case语句不允许使用 x To y 语法。您只能使用单个值或以逗号分隔的值列表。您必须改用 If/ElseIf 语句。