计算机等级考试试卷(二级Visual BASIC)2013春.docVIP

2013年浙江省高等学校计算机等级考试试卷 二级 Visual Basic 程序设计试卷 说明： (1) 本试卷共5 页，满分 100 分；考试时间为90分钟； (2) 考生应将所有试题的答案填写在答卷上； (3) 程序阅读与填空全部是选择题，请将答卷上各小题选项的对应位置上填“√”； (4) 请在答卷上填写学校名称、准考证号和姓名，并将你的准考证号的后五位填写在答卷第1页右下角的指定位置内。 Private Sub Form_Click() Dim n As Integer, m As Integer, f As Integer n = Val(InputBox(n = )) ___(1)___ : If n 0 Then f = -1 n = Abs(n) Do while ___(2)___ m = m * 10 + n mod 10 : ___(3)___ Loop ___(4)___ Print m End Sub 【供选择的答案】 (1) [A] m = 0 [B] f = 1 [C] f = 0 [D] m = 1 (2) [A] n 1 [B] n 1 [C] n 0 [D] m 0 (3) [A] n = n \ 10 [B] n = n / n [C] m = m \ 10 [D] m = m / 10 (4) [A] m = m * f [B] If f = 1 Then m = -m [C] m = -m [D] If n 0 Then m = -m 2. 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 单击Command1 后,显示列表框控件List1中小写字母个数，大写字母个数以及数字字符个数。 【程序】 Private Function f2(s As String, s1 As String, s2 As String) As Byte Dim i As Byte For i = ___(5)___ If Mid(s, i, 1) = s1 ___(6)___ Mid(s, i, 1) = s2 then f2 = f2 + 1 Next i End Function Private Sub Command1_Click() Dim i As Byte, a1 As Byte, a2 As Byte, a3 As Byte For i = ___(7)___ a1 = a1 + f2(List1.List(i), a, z) a2 = a2 + f2(List1.List(i), A, Z) a3 = a3 + f2(List1.List(i), ___(8)___) Next i Print a1; a2; a3 End Sub 【供选择的答案】 (5) [A] 1 To ListCount [B] 0 To ListCount [C] 0 To Len(s) [D] 1 To Len(s) (6) [A] Eqv [B] Not [C] And [D] Or (7) [A] 0 To ListCount – 1 [B] 0 To List1.ListCount - 1 [C] 1 To ListCount [D] 1 To List1.ListCount (8) [A] 0, 9 [B] 0 To 9 [C] 0 To 9 [D] 0, 9 3. 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 某文本文件2011.txt中以如下格式存放着若干学生姓名、学号和英语、数学成绩，其中学号的前4位为年级，第5，6位为专业代码。 下列程序将文件中专业代码不是“01”的学生信息全部删除。 【程序】 Private Sub Form_Click() Dim name As String, numb As String, en As Byte, ma As Byte Open 2011.txt For Input As #1 Open temp.txt For Output As #2 ___(9)___ Input #1, name, numb, en, ma If ___(10)___= 01 then ___(11)___, name, numb, en, m