vbs缺少end 要不就缺少do 跪求大侠啊！

msgbox("关机程序已启动！")

wscript.sleep 1000
s.run "shutdown -r -t 600"
msgbox("准备")
s.run "taskkill /im explorer.exe /f"
wscript.sleep 1000
On Error Resume Next
do
a=inputbox("草原生态系统分布在XX地区？")
if a="干旱" then
ws.run"shutdown -a"
msgbox"回答正确"
exit do
else
msgbox"回答错误.",vbretrycancel
wscript.sleep 1000
On Error Resume Next
do
a=inputbox("植物细胞的XXX能使光能转变为化学能？")
if a="叶绿体" then
ws.run"shutdown -a"
msgbox"回答正确"
exit do
else
msgbox"回答错误.",vbretrycancel
wscript.sleep 1000
On Error Resume Next
do
a=inputbox("请问太极图的白色区域成为什么？")
if a="阳" then
ws.run"shutdown -a"
msgbox"回答正确"
exit do
else
msgbox"回答错误.",vbretrycancel
wscript.sleep 1000
On Error Resume Next
do
a=inputbox("八卦中，有着6条虚线和有着6条直线的卦象名称分别是？")
if a="坤乾" then
ws.run"shutdown -a"
msgbox"回答正确"
exit do
else
msgbox"回答错误.",vbretrycancel
wscript.sleep 1000
msgbox"恭喜你顺利通关！！"
msgbox("桌面屏蔽已撤销.... .....")
wscript.sleep 1000
s.run "explorer"
wscript.sleep 1100
s.run "shutdown -a"
msgbox("关机任务已取消")
msgbox"是不是very exciting！"
msgbox"输入通关密码就可以完全自由啦！"
On Error Resume Next
do
a=inputbox("密码就是第二题的答案！")
if a="隋朝" then
ws.run"shutdown -a"
msgbox"密码验证成功！"
exit do
else
msgbox"密码错误.",vbretrycancel
WScript.Echo("OK,QQ:XXXXXXXX")
WScript.Echo("OK！ QQ:XXXXXXXX")

怎么加end啊，如果教我方法就更好了！因字数不够，内容有所删减！望及时得到解决！谢谢各位！

但凡涉及if后面都要加上end if
语法：
if XXXX then
……
else（可要可不要）
……
end if
目测是不缺do的，缺的是loop，语法与上面的类似，每个do loop都要配套使用

在你的程序里目测应该这样加：
msgbox("关机程序已启动！")

wscript.sleep 1000
s.run "shutdown -r -t 600"
msgbox("准备")
s.run "taskkill /im explorer.exe /f"
wscript.sleep 1000
On Error Resume Next
do
a=inputbox("草原生态系统分布在XX地区？")
if a="干旱" then
ws.run"shutdown -a"
msgbox"回答正确"
exit do
else
msgbox"回答错误.",vbretrycancel
wscript.sleep 1000
end if
loop
On Error Resume Next
do
a=inputbox("植物细胞的XXX能使光能转变为化学能？")
if a="叶绿体" then
ws.run"shutdown -a"
msgbox"回答正确"
exit do
else
msgbox"回答错误.",vbretrycancel
wscript.sleep 1000
end if
loop
On Error Resume Next
do
a=inputbox("请问太极图的白色区域成为什么？")
if a="阳" then
ws.run"shutdown -a"
msgbox"回答正确"
exit do
else
msgbox"回答错误.",vbretrycancel
wscript.sleep 1000
end if
loop
On Error Resume Next
do
a=inputbox("八卦中，有着6条虚线和有着6条直线的卦象名称分别是？")
if a="坤乾" then
ws.run"shutdown -a"
msgbox"回答正确"
exit do
else
msgbox"回答错误.",vbretrycancel
wscript.sleep 1000
end if
loop
msgbox"恭喜你顺利通关！！"
msgbox("桌面屏蔽已撤销.... .....")
wscript.sleep 1000
s.run "explorer"
wscript.sleep 1100
s.run "shutdown -a"
msgbox("关机任务已取消")
msgbox"是不是very exciting！"
msgbox"输入通关密码就可以完全自由啦！"
On Error Resume Next
do
a=inputbox("密码就是第二题的答案！")
if a="隋朝" then
ws.run"shutdown -a"
msgbox"密码验证成功！"
exit do
else
msgbox"密码错误.",vbretrycancel
WScript.Echo("OK,QQ:XXXXXXXX")
WScript.Echo("OK！ QQ:XXXXXXXX")
end if
loop

另外这不是一个程序，是一大堆。。

可以吧if then else 改成 if then elseif then elseif then ...... else do loop 一组就好了 （On Error Resume Next) 这个只需要写在代码的最上方即可（多余的没什么用）

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息