我给你一个程序,我原创的!给你写出来啊!VBscript的
Dim WkdayName, objWSH, ShowDT, Title
Set objWSH=CreateObject("WScript.Shell")
WkdayName=Array("星期日sunday","星期一monday","星期二tuesday","星期三wednesday","星期四thursday","星期五friday","星期六saterday")
ShowDT=Time & Space(4) & vbCrLf & vbCrLf & WkdayName(Weekday(Date)-1)
objWSH.PopUp ShowDT,7,Title
Msgbox"答题前,先向大家重申一下成就说明!"&chr(13)&"(死在)第一题:正常人"&chr(13)&"(死在)第二题:小学生"&chr(13)&"(死在)第三题:一般人"&chr(13)&"(死在)第四题:聪明人"&chr(13)&"(死在)第五题:超常儿童"&chr(13)&"(死在)第六题:IQ王者"&chr(13)&"(死在)第七题:大神"&chr(13)&"(死在)第八题:答题神仙"&chr(13)&"(死在)第九题:答题圣人"&chr(13)&"(死在)第十题:答题王"&chr(13)&"通关:答题帝"&chr(13)&"看看你是哪一种人吧!请大家踊跃把自己的成绩发到群里哦!",title,"一“答”到底1.2beta"
xz=inputbox("第一题:罗纳尔多(皇马现役球星)的全名是什么?","lv:1","")
if xz="克里斯蒂亚诺·罗纳尔多" then
Msgbox"答对了!",title,"一“答”到底2013"
else
if xz=""=all then
Msgbox"恭喜你!答错了!你输了,程序即将退出!"&chr(13)&"答案:克里斯蒂亚诺·罗纳尔多",title,"一“答”到底1.2beta"
WScript.Quit
else
if xz="" then
Msgbox"你没有回答问题!",title,"一“答”到底2013"
Msgbox"坏消息是.....",title,"一“答”到底2013"
Msgbox"你要输了!程序即将退出!",64
WScript.Quit
end if
end if
end if
xz=inputbox("一个美国科学家,患有先天性肌肉萎缩症,他是谁","lv:2","")
if xz="霍金" then
Msgbox"不错哦!又答对了!",title,"一“答”到底2013"
else
if xz=""=all then
Msgbox"咳咳......输了吧,哈哈!"&chr(13)&"答案:霍金",title,"一“答”到底2013"
WScript.Quit
else
if xz="" then
Msgbox"你没有回答问题!",title,"一“答”到底2013"
Msgbox"坏消息是.....",title,"一“答”到底2013"
Msgbox"你要输了!程序即将退出!",64
WScript.Quit
end if
end if
end if
xz=inputbox("第三题:罗斯福是当年是哪国总统?","lv:3","")
if xz="美国" then
Msgbox"不错哦!又答对了!",title,"一“答”到底1.2beta"
else
if xz=""=all then
Msgbox"吁,这关都过不去!"&chr(13)&"答案:美国",title,"一“答”到底1.2beta"
WScript.Quit
else
if xz="" then
Msgbox"你没有回答问题!",title,"一“答”到底1.2beta"
Msgbox"坏消息是.....",title,"一“答”到底1.2beta"
Msgbox"你要输了!程序即将退出!",64
WScript.Quit
end if
end if
end if
xz=inputbox("第四题:NBA中谁人称“闪电侠”?","lv:4","")
if xz="韦德" then
Msgbox"不错哦!强悍啊,你怎么又答对了!",title,"一“答”到底1.2beta"
else
if xz="德怀恩·韦德" then
Msgbox"不错哦!强悍啊,你怎么又答对了!",title,"一“答”到底1.2beta"
else
if xz=""=all then
Msgbox"呦,不错嘛,到第四题才死!哈哈!"&chr(13)&"答案:韦德",title,"一“答”到底1.2beta"
WScript.Quit
else
if xz="" then
Msgbox"你没有回答问题!",title,"一“答”到底1.2beta"
Msgbox"坏消息是.....",title,"一“答”到底1.2beta"
Msgbox"你要输了!程序即将退出!",64
WScript.Quit
end if
end if
end if
end if
xz=inputbox("第五题:英语中,japanese是什么意思?(以英语考试说明为准)","lv:5","")
if xz="日语" then
Msgbox"又答对了.....看来我不拿出点真家伙对付你算是不行了!",title,"一“答”到底1.2beta"
else
if xz=""=all then
Msgbox"什么英语水平?这都不知道!"&chr(13)&"答案:日语",title,"一“答”到底1.2beta"
WScript.Quit
else
if xz="" then
Msgbox"你没有回答问题!",title,"一“答”到底1.2beta"
Msgbox"坏消息是.....",title,"一“答”到底1.2beta"
Msgbox"你要输了!程序即将退出!",64
WScript.Quit
end if
end if
end if
xz=inputbox("第六题:哈雷彗星是谁发现的?","lv:6","")
if xz="哈雷" then
Msgbox"这都对了.....大神级别同学!",title,"一“答”到底1.2beta"
else
if xz=""=all then
Msgbox"答案不就是哈雷么,给你答案了都不抄!"&chr(13)&"答案:哈雷",title,"一“答”到底1.2beta"
WScript.Quit
else
if xz="" then
Msgbox"你没有回答问题!",title,"一“答”到底1.2beta"
Msgbox"坏消息是.....",title,"一“答”到底1.2beta"
Msgbox"你要输了!程序即将退出!",64
WScript.Quit
end if
end if
end if
xz=inputbox("第七题:VBS是属于什么编程?(回答格式:xx编程)","lv:7","")
if xz="脚本编程" then
Msgbox"这都对了.....!能闯过这关的没多少人!给跪了!",title,"一“答”到底1.2beta"
else
if xz=""=all then
Msgbox"输了吧,哈哈哈哈!"&chr(13)&"答案:脚本编程",title,"一“答”到底1.2beta"
WScript.Quit
else
if xz="" then
Msgbox"你没有回答问题!",title,"一“答”到底1.2beta"
Msgbox"坏消息是.....",title,"一“答”到底1.2beta"
Msgbox"你要输了!程序即将退出!",64
WScript.Quit
end if
end if
end if
xz=inputbox("第八题:宋朝是谁建立的?","lv:8","")
if xz="赵匡胤" then
Msgbox"这都对了.....你是人么?",title,"一“答”到底1.2beta"
else
if xz=""=all then
Msgbox"哈哈哈!输了吧!"&chr(13)&"答案:赵匡胤"
WScript.Quit
else
if xz="" then
Msgbox"你没有回答问题!",title,"一“答”到底1.2beta"
Msgbox"坏消息是.....",title,"一“答”到底1.2beta"
Msgbox"你要输了!程序即将退出!",64
WScript.Quit
end if
end if
end if
xz=inputbox("第九题:效力于NBA的华裔球员林书豪是哪个大学毕业的?","lv:9","")
if xz="哈佛大学" then
Msgbox"天哪!“答题帝”就是你!还能再继续么?",title,"一“答”到底1.2beta"
else
if xz=""=all then
Msgbox"哎....你终于输了!程序即将退出!"&chr(13)&"答案:哈佛大学"
WScript.Quit
else
if xz="" then
Msgbox"你没有回答问题!",title,"一“答”到底1.2beta"
Msgbox"坏消息是.....",title,"一“答”到底1.2beta"
Msgbox"你要输了!程序即将退出!",64
WScript.Quit
end if
end if
end if
xz=inputbox("第十题:捷克首都是哪里?","lv:10","")
if xz="布拉格" then
Msgbox"又......对.....了......!下面想答题都没了!答题帝出现!再见喽!",title,"一“答”到底1.2beta"
else
if xz=""=all then
Msgbox"哎....你终于输了!程序终于退出了!"&chr(13)&"答案:布拉格",title,"一“答”到底1.2beta"
WScript.Quit
else
if xz="" then
Msgbox"你没有回答问题!",title,"一“答”到底1.2beta"
Msgbox"坏消息是.....",title,"一“答”到底1.2beta"
Msgbox"你要输了!程序即将退出!",64
WScript.Quit
end if
end if
end if
Msgbox"您已闯完所有关卡,算算您用了多长时间?"
Private Sub Workbook_Open()
MsgBox "啥事啊?", 64
End Sub
写程序总得有个要求,否则无法帮你
什么程序?说清楚!