Question

急求VB高手帮忙写个程序，在线等，谢谢了！

不好意思了，刚刚才知道怎么上传图片
图片在http://www.baidu.com/p/lumohappy?from=zhidao

Answer 1

我给你一个程序，我原创的！给你写出来啊！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"您已闯完所有关卡，算算您用了多长时间？"

Answer 2

Private Sub Workbook_Open()
MsgBox "啥事啊?", 64
End Sub

Answer 3

写程序总得有个要求，否则无法帮你

追问

不好意思啊！图片在http://www.baidu.com/p/lumohappy?from=zhidao

Answer 4

什么程序？说清楚！

追问

不好意思啊！图片在http://www.baidu.com/p/lumohappy?from=zhidao