帮我看看VBS哪里错了，显示第十行第一个

486616290

1. const title="追星测试"
   
2. const yourname="蔡徐坤"
   
3. const question="你最喜欢的明星是谁,请在下面方框中输入他的名字"
   
4. const scend="你说出了你的心扉,那就向他表白吧~"
   
5. dimyouranswer
   
6. do
   
7. youranswer=inputbox(question,title)
   
8. if youranswer <> yourname then
   
9. msgbox info,vbinformation
   
10. +vbokonly,title
    
11. loop until youranswer=yourname
    
12. msgbox scend,vbinformation
    
13. +vbokonly,title

复制代码

batyantou

错误共有三处：
1.msgbox 第一个参数，如果为常量要加“”，不知道楼主此处要显示给用户屏幕的信息是什么（假设你要显示空白）？
2.if 结构缺少end if 结束语。
3.第五行变量声明，应在dim后面加空格。

1. option explicit
   
2. const title="追星测试"
   
3. const yourname="蔡徐坤"
   
4. const question="你最喜欢的明星是谁,请在下面方框中输入他的名字"
   
5. const scend="你说出了你的心扉,那就向他表白吧~"
   
6. dim youranswer
   
7. do
   
8.    youranswer=inputbox(question,title)
   
9.      if youranswer <> yourname then
   
10.         msgbox "",vbinformation + vbokonly,title
    
11.      end if
    
12. loop until youranswer=yourname
    
13. msgbox scend,vbinformation+vbokonly,title

复制代码