VB模拟试卷参考答案(6页).doc

《VB模拟试卷参考答案(6页).doc》由会员分享，可在线阅读，更多相关《VB模拟试卷参考答案(6页).doc（6页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、-杭州师范学院钱江学院计算机等级考试二级VB模拟考试参考答案一、计算机基础题（共15分）（一）单项选择题（10分）12345678910BDCADBBDCA（二）双选题（5分）1112131415ACADBCBCBD二、VB程序设计（共85分）（一）判断题（10分，每题1分）12345678910（二）、选择题（20分，每题2分）12345678910CADBBDDBCD（三）程序填空题（12分，每空2分）123456BAAABA（四）程序阅读题（20分，每题4分）1、4 5 62、101103、1 9 8 7 6 5 4 3 2 10 1 7 6 5 4 3 2 8 9 104、1 4 65

2、、wFg,C4d5（五）程序设计题（25分，题1为5分）1、Public Function g(x As Single, eps As Single) As Single Dim e&, t!, i% If x 1 Then g = 0 Else e = 1 i = 1 Do e = e * i t = (i + x) / e g = g + t i = i + 1 Loop Until t s Then Print #1, a(i) Next I Close #1 End Sub3.Dim n%Private Sub Command1_Click()n = Val(InputBox(输入要计

3、时的秒数)Timer1.Enabled = TrueCommand1.Enabled = FalseEnd SubPrivate Sub Form_Load() Form1.Caption = 到计时牌 Command1.Caption = 设置 Timer1.Interval = 1000 Timer1.Enabled = False Label1.Caption = 计时End SubPrivate Sub Timer1_Timer()n = n - 1h = n 3600m = (n Mod 3600) 60s = n Mod 60Label1 = 还剩 & h & 小时 & m & 分 & s & 秒If n = 0 Then Timer1.Enabled = False Label1 = 时间到！ Command1.Enabled = TrueEnd IfEnd Sub第 6 页-