VB模拟试卷参考答案.doc

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

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 & 分

4、& s & 秒If n = 0 Then Timer1.Enabled = False Label1 = 时间到！ Command1.Enabled = TrueEnd IfEnd Sub3 0 = ！到 秒 &时 还= 0 (0 ( 时计 . = . 0 = . 置 牌计 .( = . = .)数的入( ( # ( # / ( 0 )数一输 ( 0 % ) ( = = ) = = = , , ( 分 ， 计程 分 每（读序分 每 题 分题，（选 分分分 题分 计程 分分题 分0择项分 共基答参考 二等学钱学 页 一一模 考级 一 学钱 答 择题分 程 分（分 （分 ( , = 0 数) # ( 入) ( 置 = 0 0 还时 ！ 第 3 页 共 3 页