VB模拟试卷参考答案.doc

《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+1LoopUntilt

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