中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客注册登录会员网志搜索命令提示符 Bash 上传统计

中国DOS联盟论坛
现在时间是 2026-08-04 14:56

欢迎新会员 hello8888666　 RSS
共 48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）

请vbs高手分析这段代码错在哪里？？

🖨 打印本页

标题：请vbs高手分析这段代码错在哪里？？

作者：stornager | 时间：2007-05-08 23:16 | 标题：请vbs高手分析这段代码错在哪里？？

Set WshShell=CreateObject("Wscript.Shell")
Intnum=Inputbox("Please enter a number: ")
If Intnum=>6 Then
WshShell.Run "cmd.exe"
Wscript.Sleep 6000
Elseif Intnum=>1 and Intnum<6 Then
WshShell.Run "iexplorer.exe"
Wscript.End

为何运行时脚本提示最后一句缺少`end`
本人正在学习vbs，让高手见笑啦！！

作者：baomaboy | 时间：2007-05-08 23:38



Set WshShell=CreateObject("Wscript.Shell")

Intnum=Inputbox("Please enter a number: ")

If Intnum=>6 Then

WshShell.Run "cmd.exe"

Wscript.Sleep 6000

Elseif Intnum=>1 and Intnum<6 Then

WshShell.Run "iexplorer.exe"

End if

作者：lxmxn | 时间：2007-05-08 23:39



Set WshShell=CreateObject("Wscript.Shell")

Intnum=Inputbox("Please enter a number: ")

If Intnum=>6 Then

WshShell.Run "cmd.exe"

Wscript.Sleep 6000

Elseif Intnum=>1 and Intnum<6 Then

WshShell.Run "iexplorer.exe"

Wscript.Quit(0)

End if

没有Wscript.End的用法。

作者：stornager | 时间：2007-05-09 14:51

谢谢二位指教。本人实在疏忽，在vbs中if......else循环语句必须要有endif作结束标记。刚学没多久，就昏头了。哎！！！！！

来源：https://www.cn-dos.net/forum/viewthread.php?tid=30495　·　打印时间 2026-08-04 14:56