[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] 帮我看看VBS哪里错了,显示第十行第一个

  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
复制代码

错误共有三处:
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
复制代码

TOP

返回列表