欢迎来到天天文库
浏览记录
ID:57014635
大小:24.00 KB
页数:3页
时间:2020-07-30
《VB模拟试卷参考答案.doc》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、杭州师范学院钱江学院计算机等级考试二级VB模拟考试参考答案一、计算机基础题(共15分)(一)单项选择题(10分)12345678910BDCADBBDCA(二)双选题(5分)1112131415ACADBCBCBD二、VB程序设计(共85分)(一)判断题(10分,每题1分)12345678910√××××√√×××(二)、选择题(20分,每题2分)12345678910CADBBDDBCD(三)程序填空题(12分,每空2分)123456BAAABA(四)程序阅读题(20分,每题4分)1、4562、1011
2、03、19876543210176543289104、1465、wFg,C4d5(五)程序设计题(25分,题1为5分)1、PublicFunctiong(xAsSingle,epsAsSingle)AsSingleDime&,t!,i%Ifx<-1Orx>1Theng=0Elsee=1i=1Doe=e*it=(i+x)/eg=g+ti=i+1LoopUntilt3、i=1To50a(i)=Val(InputBox("请输入一个数"))Nextis=0Fori=1To50s=s+a(i)Nextis=s/50Open"g:data.txt"ForOutputAs#1Fori=1To50Ifa(i)>sThenPrint#1,a(i)NextIClose#1EndSub3.Dimn%PrivateSubCommand1_Click()n=Val(InputBox("输入要计时的秒数"))Timer1.Enabled=TrueCommand1.Enabled=False4、EndSubPrivateSubForm_Load()Form1.Caption="到计时牌"Command1.Caption="设置"Timer1.Interval=1000Timer1.Enabled=FalseLabel1.Caption="计时"EndSubPrivateSubTimer1_Timer()n=n-1h=n3600m=(nMod3600)60s=nMod60Label1="还剩"&h&"小时"&m&"分"&s&"秒"Ifn=0ThenTimer1.Enabled=FalseLab5、el1="时间到!"Command1.Enabled=TrueEndIfEndSub
3、i=1To50a(i)=Val(InputBox("请输入一个数"))Nextis=0Fori=1To50s=s+a(i)Nextis=s/50Open"g:data.txt"ForOutputAs#1Fori=1To50Ifa(i)>sThenPrint#1,a(i)NextIClose#1EndSub3.Dimn%PrivateSubCommand1_Click()n=Val(InputBox("输入要计时的秒数"))Timer1.Enabled=TrueCommand1.Enabled=False
4、EndSubPrivateSubForm_Load()Form1.Caption="到计时牌"Command1.Caption="设置"Timer1.Interval=1000Timer1.Enabled=FalseLabel1.Caption="计时"EndSubPrivateSubTimer1_Timer()n=n-1h=n3600m=(nMod3600)60s=nMod60Label1="还剩"&h&"小时"&m&"分"&s&"秒"Ifn=0ThenTimer1.Enabled=FalseLab
5、el1="时间到!"Command1.Enabled=TrueEndIfEndSub
此文档下载收益归作者所有