我想写一个VBS脚本实现问答但提示代码错误,缺少END IF.....代码如下:

X = MsgBox("请问,蠕虫和木马都是属于病毒吗?", 673, "绝对挑战之病毒知识问答")
Set WshShell = WScript.CreateObject("WScript.Shell")
If X = 6 Then
WshShell.Run "b.vbs"
If X = 3 Then
WshShell.Run "b.vbs"
elseif X = 7 Then
Y = MsgBox("很不幸,我的朋友,这么简单的问题你都答错,是否访问DU110学习点知识?", 4, "绝对挑战之电脑知识问答")
Set WshShell = WScript.CreateObject("WScript.Shell")
If Y = 6 Then
WshShell.Run "www.du110.com"
end if

X = MsgBox("请问,蠕虫和木马都是属于病毒吗?", 673, "绝对挑战之病毒知识问答")
Set WshShell = WScript.CreateObject("WScript.Shell")
If X = 6 Then
WshShell.Run "b.vbs"
end if
If X = 3 Then
WshShell.Run "b.vbs"
elseif X = 7 Then
end if
Y = MsgBox("很不幸,我的朋友,这么简单的问题你都答错,是否访问DU110学习点知识?", 4, "绝对挑战之电脑知识问答")
Set WshShell = WScript.CreateObject("WScript.Shell")
If Y = 6 Then
WshShell.Run "www.du110.com"
end if

X = MsgBox("请问,蠕虫和木马都是属于病毒吗?", 673, "绝对挑战之病毒知识问答")
Set WshShell = WScript.CreateObject("WScript.Shell")
If X = 6 or x=3Then
WshShell.Run "b.vbs"
elseif X = 7 Then
Y = MsgBox("很不幸,我的朋友,这么简单的问题你都答错,是否访问DU110学习点知识?", 4, "绝对挑战之电脑知识问答")
If Y = 6 Then WshShell.Run "www.du110.com"
end if

感谢各位朋友的热情帮助,可惜的是,不能用啊,无法实现3个选项

是,否,取消,这3个按钮,直接跳出的是确定,2楼的朋友,写的代码,无论点退出,或确定都将执行
很不幸,我的朋友,这么简单的问题你都答错,是否访问DU110学习点知识?", 4, "绝对挑战之电脑知识问答")

3楼的朋友则是点确定和退出都是退出....貌似这个只能处理是和否吧,无法写第3个选项....

n=msgbox("",vbyesnocancel,"")

if n=vbyes then

	msgbox "是"

elseif n=vbno then

	msgbox "否"

else

	msgbox "取消"

end if

最后我写的是这样....

X = MsgBox("请问,蠕虫和木马都是属于病毒吗?", vbYesNoCancel, "绝对挑战之病毒知识问答")
Set WshShell = WScript.CreateObject("WScript.Shell")
If X = vbyes Then
WshShell.Run "b.vbs"
end if
If X = vbcancel Then
WshShell.Run "b.vbs"
elseif X = vbno Then
end if
Y = MsgBox("很不幸,我的朋友,这么简单的问题你都答错,是否访问DU110学习点知识?", 4, "绝对挑战之电脑知识问答")
Set WshShell = WScript.CreateObject("WScript.Shell")
If Y = 6 Then
WshShell.Run "www.du110.com"
end if

呵呵,朋友,我刚想到后,写完贴上来就发现你已经把效果写出来了