vb模拟试卷参考答案.docxVIP

计算机等级考试二级 VB 模拟试卷 (一) 杭州师范学院钱江学院 计算机等级考试二级 VB 模拟考试参考答案 一、计算机基础题（共 15 分） （一）单项选择题（ 10 分） 1 2 3 4 5 6 7 8 9 10 B D C A D B B D C A （二）双选题（ 5 分） 11 12 13 14 15 AC AD BC BC BD 二、 VB 程序设计（共 85 分） （一）判断题（ 10 分，每题 1 分） 1 2 3 4 5 6 7 8 9 10 √ × × × × √ √ × × × （二）、选择题（ 20 分，每题 2 分） 1 2 3 4 5 6 7 8 9 10 C A D B B D D B C D （三）程序填空题（ 12 分，每空 2 分） 1 2 3 4 5 6 B A A A B A （四）程序阅读题（ 20 分，每题 4 分） 1、456 2、 10110 317654328910 4、1 4 6 5、 wFg,C4d5 （五）程序设计题（ 25 分，题 1 为 5 分） 1、 Public Function g(x As Single, eps As Single) As Single Dim e, t!, i% If x -1 Or x 1 Then 第 1页共 3 页 g = 0 Else e = 1 i = 1 Do e = e * i t = (i + x) / e g = g + t i = i + 1 Loop Until t eps End If End Function 2、 Private Sub Form_Click() Dim a(1 To 50) As Integer, i%, s! For i = 1 To 50 a(i) = Val(InputBox( 请输入一个数 )) Next i s = 0 For i = 1 To 50 s = s + a(i) Next i s = s / 50 Open g:\data.txt For Output As #1 For i = 1 To 50 If a(i) s Then Print #1, a(i) Next I Close #1 End Sub 3. Dim n% Private Sub Command1_Click() n = Val(InputBox( 输入要计时的秒数 )) Timer1.Enabled = True 第 2 页共 3 页 Command1.Enabled = False End Sub Private Sub Form_Load() Form1.Caption = 到计时牌 Command1.Caption = 设置 Timer1.Interval = 1000 Timer1.Enabled = False Label1.Caption = 计时 End Sub Private Sub Timer1_Timer() n = n - 1 h = n \ 3600 m = (n Mod 3600) \ 60 s = n Mod 60 Label1 = 还剩 h 小时 m 分 s 秒 If n = 0 Then Timer1.Enabled = False Label1 = 时间到！ Command1.Enabled = True End If End Sub 第 3 页共 3 页