浙江省07-08VB二级考试卷真题及答案.docVIP

2008年春浙江省高等学校 计算机等级考试试卷(二级Visual Basic) 说明：⑴ 考生应将所有试题的答案填写在答卷上。其中试题1～试题6，请在答卷上各小题正确选项的对应位置处填“√”； ⑵ 请将你的准考证号的后五位填写在答卷右下角的指定位置内； ⑶ 考试时间为90分钟; 试题1（每小题3分，共12分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】单击Command1后用输入对话框输入1个整数，单击Command2后在Text1中显示其反序的数（高位变低位）。要求在文本框中不可输入任何字符。 例如：输入123显示321，输入-567显示-765。 【程序】 (1) Private Sub Form_Load() (2) End Sub Private Sub Command1_Click() Text1.Text = : n = InputBox(n=) End Sub Private Sub Command2_Click() If n 0 Then n = -n: Text1.Text = - While n 0 Text1.Text = (3) (4) Wend End Sub 【供选择的答案】 B(1) A、B、C、D、 A(2) A、Text1.Locked = TrueB、Text1.Locked = C、Text1. = True D、Text1. = False D(3) A、nText1.Text B、n Mod 10Text1.Text C、Text1.Text n10 D、Text1.Text n Mod 10A(4) A、n = n10 B、n = n10 C、n = n10 D、n = n10 试题2（每小题3分，共12分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 运行时，可以在图片框控件p1用红色绘制下列坐标线并加上数字显示。 Private Sub Form_Activate() P1.Height = P1.Width P1.FontSize = 10 (5) (-10, 110)-(110, -10) (6) P1.Line (-5, 0)-(100, 0) P1.Line (0, -5)-(0, 100) For i = (7) P1.Line (i, 0)-(i, 2) P1.Line (0, i)-(2, i) Next i For i = 1 To 9 P1.CurrentX = i * 10 - 2 P1.CurrentY = -2 (8) Next i End Sub 【供选择的答案】 B(5) A、P1.B、P1.C、P1.、P1.ScaleB(6) A、P1.ForeColor = RGB(255,0,0)B、P1.FColor = RGB(255,0,0) C、P1.F = VbRed D、P1.ForeColor = A(7) A、1 To 9 Step 1B、10 To 90C、10 To 90 Step 10D、 To 9 B(8) A、C、D、Private Sub Command1_Click() 读文件 Dim s As String Open e:\xxx.txt For (9) As #1 While Not EOF(1) Line Input #1, s : List1.AddItem s Wend Close #1 End Sub Private Sub Command2_Click() 分解 Dim i As Integer, n As Integer, s1 As String, s2 As String For i = 1 To (10) n = Len(List1.List(i - 1)) ReDim a(n) As String * 1 For j = 1 To n a(j) = (11