Question

我的代码如下：

a=msgbox("Do you like waffles",4+16,"Waffles")
Do While a=vbno
a
Loop
if a=vbyes then
b=msgbox("Do you like pancakes",4+16,"Pancakes")
Do While b=vbno
b
loop
if b=vbye then
c=msgbox("Do you like French toast",4+16,"French toast")
Do While c=vbno
c
Loop
else
d-msgbox("good",0+16,"YAY!")
end if

我知道它是基本的，但它会出现错误消息：“错误：预期'结束'” 但正如你可以看到'end'位于第17行的开头，如果它是我还没有看到代码中可能导致这种情况的其他地方。我对这种语言不熟悉，并把我知道如何做的事情变成了一个半有用的专利。我将其保存为.bat文件并使用cmd运行它。

Answer 1

以下是问题中发布的原始代码（正如我写的那样）：

a=msgbox("Do you like waffles",4+16,"Waffles")
Do While a=vbno
a
Loop
if a=vbyes then
b=msgbox("Do you like pancakes",4+16,"Pancakes")
Do While b=vbno
b
loop
if b=vbye then
c=msgbox("Do you like French toast",4+16,"French toast")
Do While c=vbno
c
Loop
else
d-msgbox("good",0+16,"YAY!")
end if

主要错误原因似乎是可以将定义分配给变量。一个人可以，但不是那样。这是更正后的代码：

option explicit

dim answer
do
    answer = msgbox("Do you like waffles",4+16,"Waffles")
    if answer = vbYes then exit do
    answer = msgbox("Do you like pancakes",4+16,"Pancakes")
    if answer = vbYes then exit do
    answer = msgbox("Do you like French toast",4+16,"French toast")
    if answer = vbYes then exit do
loop
call msgbox( "good",0+16,"YAY!" )

然而，有很多种方式来准备食物，而且代码也是如此，而且，上面的是否是意图还不清楚，但我猜它非常接近。

无论如何，它的代码是有效的，你可以在

上进一步构建

~~请注意，VBScript文档现在仅作为CHM编译的帮助文件提供，名为 "script56.chm" 。~~

VBScript文档既可以作为一个方便的CHM编译帮助文件，名为 "script56.chm" ，也可以作为 online in the MSDN library 。

注意：您需要将源代码保存为 .vbs 文件。

任何人都可以看到我的代码有什么问题吗？

1 个答案: