(完整版)浙江省07-08VB二级考试卷真题及答案.doc
17页
2008年春浙江省高等学校 计算机等级考试试卷(二级Visual Basic)说明：⑴ 考生应将所有试题的答案填写在答卷上其中试题1～试题6，请在答卷上各小题正确选项的对应位置处填“√”； ⑵ 请将你的准考证号的后五位填写在答卷右下角的指定位置内； ⑶ 考试时间为90分钟;试题1（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案程序说明】单击Command1后用输入对话框输入1个整数，单击Command2后在Text1中显示其反序的数（高位变低位）要求在文本框中不可输入任何字符例如：输入123显示321，输入-567显示-765程序】 (1) Private Sub Form_Load() (2) End SubPrivate Sub Command1_Click() Text1.Text = "": n = InputBox("n=")End SubPrivate Sub Command2_Click() If n < 0 Then n = -n: Text1.Text = "-" While n <> 0 Text1.Text = (3) (4) WendEnd Sub【供选择的答案】B(1) A、Dim n As Byte B、Dim n As Integer C、Dim n As String D、Public n As ByteA(2) A、Text1.Locked = True B、Text1.Locked = False C、Text1.Visible = True D、Text1.Visible = FalseD(3) A、n/10 & Text1.Text B、n Mod 10 & Text1.Text C、Text1.Text & n/10 D、Text1.Text & n Mod 10A(4) A、n = n \ 10 B、n = n / 10 C、n = n Mod 10 D、n = n - 10试题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 iEnd Sub【供选择的答案】B(5) A、P1.Draw B、P1.Line C、P1.Print D、P1.ScaleB(6) A、P1.ForeColor = RGB(255,0,0) B、P1.FillColor = RGB(255,0,0) C、P1.FillColor = VbRed D、P1.ForeColor = RedA(7) A、1 To 9 Step 1 B、10 To 90 C、10 To 90 Step 10 D、2 To 9B(8) A、PSet i B、P1.Print i C、P1.Pset i D、Print i试题3（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
程序说明】单击“读文件”按钮将文本文件读入并逐行在列表框控件List1中显示；然后单击“分解”按钮将List1每行中的英文字母、其他字符分别显示在List2、List3各行中运行结果如下图所示程序】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 #1End SubPrivate 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) Next j s1 = "": s2 = "" For j = 1 To n If (12) Then s1=s1+a(j) Else s2=s2+a(j) Next j List2.AddItem s1 List3.AddItem s2 Next iEnd Sub【供选择的答案】C( 9)A、Read B、Append C、Input D、OutputD(10)A、List1.Count B、ListCount C、ListCount-1 D、List1.ListCountA(11)A、Mid(List1.List(i-1),j,1) B、Middle(List1.List(i-1),j,1) C、Mid(List1.List(i-1),j) D、Middle(List1(i-1),j,1)B(12)A、a(j)>='a' And a(j)<='z' Or a(j)>='A' And a(j)<='Z' B、a(j)>="a" And a(j)<="z" Or a(j)>="A" And a(j)<="Z" C、"a"<=a(j)<="z" Or "A"<=a(j)<="Z" D、(a(j)>='a' And a(j)<='z') Or (a(j)>='A' And a(j)<='Z')试题4（每小题3分，共12分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。
程序】Private Sub Text1_KeyPress(K As Integer) If K < Asc("0") Or K > Asc("9") Then K = 0 Else Label1.Caption = Chr(K) + Label1.Caption End IfEnd Sub 【供选择的答案】B (13) Text1获得输入焦点后，依次按数字键1、3、5，Label1显示： A、135 B、531 C、9 D、5A (14) Text1获得输入焦点后，依次按数字键2、7、9，Label1显示： A、972 B、279 C、297 D、18C (15) Text1获得输入焦点后，依次按 -、2、3、5键，Label1显示： A、-532 B、-235 C、532 D、235D (16) Text1获得输入焦点后，依次按 1、2、a、5键，Label1显示： A、空白 B、12a5 C、5a21 D、521试题5（每小题3分，共12分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。
程序】Private Sub Form_Load() Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer() Static k As Byte Form1.CurrentX=0: Form1.CurrentY=0 '窗体的所有其他属性均取缺省值 Form1.Cls If k = 0 Then k = 1 Else k = 0 If k=0 Then Form1.ForeColor = RGB(0, 255, 0) Else _ Form1.ForeColor = RGB(0, 0, 255) Print TimeEnd Sub【供选择的答案】A(17) 激活Timer1后，每间隔1秒显示一次系统时间，方式是： A、蓝、绿色交替显示 B、蓝色显示 C、绿色显示 D、红色显示B(18) 系统时间的显示位置，是在： A、窗体右上角 B、窗体左上角 C、窗体右下角 D、窗体左下角B(19) 如果将Timer过程中的语句“Static k As Byte”改为“Dim k As Byte”，激活Timer1 后，窗体系统时间显示上的颜色为： A、蓝、绿色交替 B、蓝色 C、绿色 D、红色A(20) 如果要同时显示系统日期、时间，对Timer过程中Print语句之输出列表不可取的是： A、Date,Time B、Date;Time C、Date-Time D、Date + Time试题6（每小题3分，共12分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。
程序】Private Sub f(b() As Integer, ByRef m As Integer) Dim i As Integer, j As Integer, k As Integer i = 1 Do While i <= m For j = 1 To m If b(i) Mod b(j) = 0 And i <> j Then For k = i To m - 1: b(k) = b(k +。
