Question

我写的vbs没错误啊，怎么显示语句未结束？哪位大侠来帮忙~

我写的vbs是这样的：

msgbox "上课啦！"
wscript.sleep 24000000
msgbox "下课拉！"
wscript.sleep 5000
then
if msgbox "你想拖堂吗？",vbyesno
if vbno then
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "shutdown -s -t 50 -c 不拖堂，那就关机吧~",,true
end if
else
if vbyes then
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "shutdown -s -t 50 -c 叫你拖堂，关机了吧~",,true
end if
end if
好像没错啊，怎么打不开？！
大侠帮帮忙~~~~~

Answer 1

msgbox "上课啦！"
wscript.sleep 24000000
msgbox "下课拉！"
wscript.sleep 5000
if msgbox("你想拖堂吗？",vbyesno)=vbyes then
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "shutdown -s -t 50 -c 叫你拖堂，关机了吧~",,true
else
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "shutdown -s -t 50 -c 不拖堂，那就关机吧~",,true
end if