浙江计算机二级VB真题-2006-2010全部真题+详尽答案

2006年秋浙江省高等学校计算机等级考试试卷(二级Visual Basic)试题1（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】运行时初始界面如左上图所示，在文本框中输入一个整数n并按回车键后：如果n1则重新输入，否则按钮Command1可用；按Command1计算费波那契数列第n项的值（该数列第1、2项均为1，此后各项为该项前两项之和，如：1、1、2、3、5、8、）；用消息框输出结果（右上图表示输入n为8后，输出结果是21），按消息框中“是”按钮则界面显示如左上图，按“否”按钮则退出。【程序】Dim n As IntegerPrivate Sub Form_Load() Command1.Enabled = FalseEnd SubPrivate Sub Text1_KeyPress(k As Integer) If (1) Then Exit Sub n = Text1.Text If n 1 Then MsgBox (n应大于零！): Exit Sub Command1.Enabled = TrueEnd SubPrivate Sub Command1_Click() Dim i As Integer (2) f(1) = 1: f(2) = 1 For i = (3) f(i) = f(i-1) + f(i-2) Next i k = MsgBox(第 & n & 项为 & f(n) & ，是否继续？, (4) ) If k = vbYes Then Text1.Text = : Command1.Enabled = False Text1.SetFocus Else End End IfEnd Sub (1) A、k = 13B、k 13 C、KeyAscii13D、KeyAscii=13(2) A、Redim f(8) As Long B、Redim f(n) As LongC、Dim f(n) As Long D、Dim f(8) As Long(3) A、1 To nB、1 To n Step 1 C、2 To nD、3 To n(4) A、vbNoB、vbYes C、vbYesNoD、vbQuestion试题2（每小题3分，共15分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】单击Command1后，将所有在List1中存在、而在List2中不存在的表项添加到列表框控件List3中。Private Sub Command1_Click() Dim i As Integer, j As Integer (5) For i = 0 To (6) For j = 0 To (7) If List1.List(i) = List2.List(j) Then (8) Next j If (9) Then List3.AddItem List1.List(i) Next i End Sub (5) A、List3.Clear B、List3.List= C、List3.delete D、List3.Cls(6) A、List1.ListCount B、List1.ListCount - 1 C、List2.ListCountD、List2.ListCount - 1(7) A、List2.ListCount - 1 B、List2.ListCount C、List1.ListCount 1D、List1.ListCount(8) A、Exit For B、Exit C、Exit Do D、Break(9) A、j List2.ListCount B、j List2.ListCount D、j= List2.ListCount试题3（每小题3分，共15分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】选择一个图象文件（BMP、JPG）后，在图片框控件P1中显示，按“反转”按钮后，将P1中每一像素在P2中相应位置以不同颜色显示。【程序】Private Sub Form_Load() File1. (10) = *.bmp;*.jpg P2.Width = P1.Width: P2.Height = P1.Height P1.ScaleMode = 3: P2.ScaleMode = 3End SubPrivate Sub Dir1_Change() File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change() Dir1.Path = (11) End SubPrivate Sub File1_Click() (12) GoTo kk P1.Picture = LoadPicture(File1.Path + File1.FileName) Exit Subkk: P1.Picture = LoadPicture(File1.Path + + File1.FileName)End SubPrivate Sub Command1_Click() Dim x As Integer, y As Integer, (13) Dim r As Byte, g As Byte, b As Byte For x = P1.ScaleLeft To P1.ScaleLeft + P1.ScaleWidth For y = P1.ScaleTop To P1.ScaleTop + P1.ScaleHeight c = P1.Point(x, y) If c = 0 Then r = c Mod 256: c = c 256 g = c Mod 256: c = c 256 (14) P2.PSet (x, y), RGB(255 - r, 255 - g, 255 - b) End If Next y, xEnd Sub (10) A、Filter B、Pattern C、FileName D、Path(11) A、Dir1.Path B、File1.Path C、Drive1.Path D、Drive1.Drive(12) A、On Error B、In Error C、If Error D、If Error Then(13) A、c As Byte B、c As Long C、c As Single D、c As Integer(14) A、b = c Mod 255 B、b = c 256 C、b = c D、b = c 256试题4（每小题3分，共9分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】Private Sub Form_click() Dim n As Integer, i As Integer, k As Integer, j As Integer Do n = InputBox(请输入1个1至9之间的整数) Loop Until 0 n And n 10 k = 10: j = 1 For i = 1 To n Print Space(k); String(j, Trim(Str(i) If i 80 Then Timer1.Enabled = FalseEnd Sub (18) 程序运行后，事件过程Timer1_Timer自动执行的次数为： A、9 B、10 C、11 D、0(19) “运行中.”这段文字的显示位置始终在窗体的 A、窗体的左边 B、Label1的右边 C、窗体的右边 D、Label1的中间(20) Label1的标题在窗体上的显示多次变化，其规律为： A、字体变大、变化减慢 B、字体变小、变化减慢 C、字体变小、变化加快 D、字体变大、变化加快试题6（每小题3分，共12分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】 Private Sub Form_Load() Form1.Height = Form1.Width * 2 / 3 Form1.FillColor = RGB(0, 0, 255) Form1.FillStyle = vbSolidEnd SubPrivate Sub Form_Activate() Scale (0, 0)-(300, 200) paint.Caption = Circle Line -(150, 100), FillColor, BFEnd SubPrivate Sub paint_Click() Form1.Cls If paint.Caption = Circle Then paint.Caption = Rectanfle Circle (ScaleWidth / 2, ScaleHeight / 2), ScaleHeight / 2, _ 255, , , ScaleHeight / ScaleWidth Else paint.Caption = Circle Line -(150, 100), FillColor, BF End IfEnd Sub(21) 菜单项标题为“Circle”、名称为“paint”，单击该菜单项后窗体上显示： A、圆B、纵轴大于横轴的椭圆C、横轴大于纵轴的椭圆D、矩形(22) 菜单项标题为“Rectanfle”、名称为“paint”，单击该菜单项后所显示图形： A、红色边框无填充色的椭圆B、兰色边框黑色填充的矩形 C、黑色边框兰色填充的椭圆D、兰色边框兰色填充的矩形(23) 菜单项标题为“Circle”，两次单击名称为“paint”的该菜单项，窗体显示： A、椭圆B、矩形 C、1个椭圆和1个矩形 D、1个椭圆和1个正方形(24) 菜单项标题为“Rectanfle”，两次单击名称为“paint”的该菜单项，窗体显示： A、椭圆B、矩形 C、1个椭圆和1个矩形 D、1个椭圆和1个正方形试题7(14分)编写事件过程Command1_Click，计算下式的和，变量x与n的数值用输入对话框输入。试题8(14分)某文本文件以下列格式存储若干学生的学号和两门课成绩，编写单击窗体的事件过程： 文本文件格式,78,89,83,79 . . 用通用对话框控件Commondialog1选择该文件； 在Label1(0)Label1(1) 显示总分最高的学生之学 号、总分。2006年秋计算机等级考试参考答案（二级Visual Basic）试题16 (每小题3分) B B D C A B A A D B D A B C B D B C A A (21)C (22)D (23)B (24) A变量声明2分输入语句2分循环前赋初值2分输出语句1分 如果程序逻辑上混乱，语法上较多错误，该题最多得以上7分（包括用自定义函数求阶乘的编写方法）。试题7 (每题14分)Private Sub Command1_Click() Dim s As Single, x As Single, t As Single Dim i As Integer, n As Integer x = InputBox(x=) n = InputBox(n=) s = x / 2: t = x / 2 For i = 3 To n + 1 t = t * x / i s = s + t Next i Print sEnd Sub试题8 (每题14分)Private Sub Form_Click() Dim xh As String, zf As Integer Dim x As String, k1 As Integer, k2 As Integer Commondialog1.ShowOpen Open Commondialog1.FileName For Input As #1变量声明2分调用通用对话框2分Open语句2分显示输出语句1分 如果程序逻辑上混乱，语法上较多错误，该题最多得以上7分。 Do while Not Eof(1) Input #1,x,k1,k2 If k1 + k2 zf Then zf = k1 + k2 xh = x End If Loop Close #1 Label1(0).Caption = xh Label1(1).Caption = zfEnd Sub2007年春浙江省高等学校 计算机等级考试试卷(二级Visual Basic)试题1（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】单击窗体后输入1个不小于6的正整数，然后输出该数所有的质数因子（如输入6则输出“ 2 3”，输入60则输出“ 2 2 3 5”，等等）。【程序】Private Sub f( (1) ) Dim i As Integer i = 2 Do While (2) If (3) Then k = k /i: Print i; Else i = i + 1 LoopEnd SubPrivate Sub Form_Click() Dim n As Integer Do n = InputBox(n=) Loop (4) Call f(n) PrintEnd Sub (1) A、n As IntegerB、k As Integer C、Byval n As ByteD、I As Integer(2) A、k1B、k=1C、k=1D、k Mod i=0(3) A、ki=0B、ki*i=0C、n Mod i=0D、(ki)*i=k(4) A、Until n6B、While n=6C、Until n=6D、While n6试题2（每小题3分，共15分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】统计鼠标单击图片框控件P1中两个同心圆所围成黑色区域的次数：首次单击Command1将统计结果请零、P1可用，再次单击则以消息框显示统计结果、P1不可用。Dim n As IntegerPrivate Sub Command1_Click() If Command1.Caption = 开始 Then Command1.Caption = 显示 P1.Enabled = True: n = 0 Else Command1.Caption = (5) P1.Enabled = False: MsgBox(单击该区域 + (6) + 次) End IfEnd Sub Private Sub Form_Activate() P1.Width = P1.Height P1.Scale(-3, 3) - (3, -3) P1.FillStyle = (7) P1.FillColor = (8) : P1.Circle(0, 0), 2 P1.FillColor = vbwhite: P1.Circle(0, 0), 1 End Sub Private Sub Form_Load() Command1.Caption = 开始: P1.Enabled = False End Sub Private Sub P1_MouseDown(Button As Integer, Shift As Integer, _ x As Single, y As Single) If x * x + y * y = 1 And (9) Then n = n +1 End Sub (5) A、退出B、开 始C、显示D、开始(6) A、nB、Val(n) C、Str(n)D、Trim(n)(7) A、1B、0 C、2D、3(8) A、vbblankB、Rgb(255,0,0)C、vbwhiteD、Rgb(255,255,0)(9) A、x*x+y*y2 And y2C、x*x+y*y4试题3（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】某文件中存放了若干个实数，单击Command1 可用对话框打开该文件、并将读入的所有数据在List1中显示，单击Command2可将读入的数据按值从大到小顺序重新写入到该文件。【程序】Private Sub Command1_Click() Dim x As Single List1.Clear: CommonDialog1.Action = 1 Open CommonDialog1.FileName For (10) As #1 Do While (11) Input #1, x: List1.Additem x Loop Close #1End SubPrivate Sub Command2_Click() Dim n As Single,x As Single,i As Integer,j As Integer,K As Integer n = List1. (12) Redim a(n) As Single For i = 1 To n: a(i) = List1.List(i-1): Next i For i = 1 To n -1 k = i For j = i+1 To n: If (13) Then k = j: Next j x = a(k): a(k) = a(i): a(i) = x Next i Open CommonDialog1.FileNmae For Output As #1 For i = 1 To n: Print #1,a(i): Next i Close #1End Sub (10) A、Output B、Input C、Append D、Read(11) A、Eof(1) B、Not Eof(1) C、Eof(fn) D、Not Eof(fn)(12) A、Count B、ListCount-1 C、List D、ListCount(13) A、a(j)a(k) B、a(j)=a(k) C、a(j)a(k) D、a(j)a(k)试题4（每小题3分，共12分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】Private Sub Form_Load() Text1.Text=: Form1.ClsEnd SubPrivate Sub Text1_KeyPress(k As Integer) Static s As Integer If (Chr(k) 9) And k 13 Then k=0 If k=13 Then s = s + Val(Text1.Text): Text1.Text = : Print s;End Sub(14) 写出运行时在Text1中依次按“1 3 5 ”后窗体上的显示结果。 A、1 4 9 B、9 C、1 3 5 D、5 (15) 写出运行时在Text1中依次按“2 4 6 ”后窗体上的显示结果。A、2 4 6 B、12 C、6 D、2 6 12 (16) 写出运行时在Text1中依次按“1 -3 5 ”后窗体上的显示结果。A、1 -2 3 B、1 4 9 C、1 -3 5 D、3 (17) 写出运行时在Text1中依次按“1 2a 5 ”后窗体上的显示结果。A、1 43 48 B、1 2 5 C、5 D、1 3 8试题5（每小题3分，共9分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】Private Function f(a As Integer, b As Integer) As Integer Dim r As Integer, t As Integer If a b Then t = a: a = b: b = t Do r = a Mod b If r = 0 Then Exit Do a = b: b = r Loop f = bEnd FunctionPrivate Sub Command1_Click() Dim m As Integer, n As Integer m = InputBox(m=): n = InputBox(n=) Form1.Cls: Print f(m, n)End Sub(18) 运行时若输入m值为15、n值为25，窗体上的显示结果为： A、25 B、15 C、5 D、3(19) 运行时若输入m值为24、n值为16，窗体上的显示结果为： A、24 B、16 C、8 D、2(20) 运行时若输入m值为123、n值为23，窗体上的显示结果为： A、100 B、1 C、23 D、146试题6（每小题3分，共12分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】Private Sub f(n As Integer, k As Integer, x As String) Dim m As Integer, t As Integer x= : m = n : n = Abs(n) Do While n 0 t = n Mod k If k=16 And t9 Then x = Chr(Asc(a)+t-10) + x Else x = t & x n = n k Loop If m 0 sum = sum + n Mod 10 3分 n = n 10 3分 LoopEnd FunctionPrivate Sub Command1_Click() Dim a(10) As Integer, b(10) As Integer, i As Integer 2 分 For i = 1 To 10 a(i) = InputBox(a( & i & ) 3分 Next i For i = 1 To 10 b(i) = sum(a(i) 4分 Next i For i = 1 To 10 Print a(i); 3分 Next i Print For i = 1 To 10 Print b(i); 2分 Next iEnd Sub2007年秋浙江省高等学校 计算机等级考试试卷(二级Visual Basic)试题1（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】单击Command1后计算ax2bxc的值并显示，界面设计以及运行时的显示分别如下图左、图右所示。要求在文本框中不可输入英文字母。【程序】Private Sub Command1_Click() Dim a As Single, b As Single, c As Single, x As Single, y As Single a = Text1(0).Text: b = Text1(1).Text c = Text1(2).Text: x = Text1(3).Text y = a * x * x + b * x + c Label3.Caption = yEnd SubPrivate Sub Text1_ (1) (Index As Integer, (2) ) Select Case (3) Case A To Z K = 0 Case (4) K = 0 End SelectEnd Sub【供选择的答案】(1) A、keyPress B、change C、keydown D、keyup(2) A、keyAscii As Integer B、Value C、Text() D、k As Integer(3) A、Chr(KeyAscii) B、Chr(K) C、Asc(K) D、Asc(KeyAscii)(4) A、a To z B、a To z C、a To z D、a.z试题2（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】过程f的功能是：返回Single类型数组n个元素的平均值，查找数组中最大值、最小值并通过相应的实参返回到调用处。该过程可以被其他模块中的过程所调用。 (5) f(a() As Single, n As Integer, (6) ) As Single Dim i As Integer max = a(1): min=a(1) For i = 2 To n If a(i)max Then max=a(i) If a(i)min Then min=a(i) (7) Next i (8) 【供选择的答案】(5) A、Function B、Sub C、Private Sub D、Private Function(6) A、max As Single,min As Single B、max As Integer,min As Integer C、Byval max As Single D、Byval max As Single,Byval min As Single(7) A、f=f+a(i) B、f=f+a(i)/n C、f=a(i) D、f=a(i)/n(8) A、find = max B、End Sub C、find = min D、End Function试题3（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】单击Command1后读入文件中所有数据(多于10个)，将其中较大的5个数、较小的5个数以及其他数分别在列表框控件List1、List3、List2中显示。【程序】Private Sub Command1_Click() Dim n As Integer, x As Single, i As Integer,j As Integer,k As Integer Open e:score.txt For Input As #1 Do While (9) 统计文件中的数据个数n Input #1, x : n = n + 1 Loop (10) As Single Close #1: Open e:score.txt For Input As #1 重新打开文件 For i = 1 To n Input #1,a(i) Next i Close #1 For i = 1 To n-1 k = i For j = i+1 To n If (11) Then k=j Next j x = a(i): a(i) = a(k): a(k) = t If i a(k) B、a(i)a(k) D、a(j)=n-5 B、in-5 C、n5 D、in试题4（每小题3分，共12分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】Dim m As IntegerPrivate Sub Command1_Click() Dim a As Integer, i As Integer, f As Integer a = InputBox(a=) f = 1: i = 2 While i = a / 2 If a Mod i = 0 Then f = f + i i = i + 1 m = m + 1 Wend Form1.Cls: Print fEnd Sub【供选择的答案】 (13) 运行时第1次单击Command1输入7后，窗体上的显示结果为： A、1 B、3 C、5 D、7 (14) 运行时第2次单击Command1输入8后，窗体上的显示结果为：A、2 B、7 C、8 D、6 (15) 运行时第3次单击Command1输入9后，窗体上的显示结果为：A、3 B、5 C、7 D、4 (16) 运行时3次单击Command1、并依次输入7、8、9后，变量m的当前值为：A、6 B、7 C、8 D、3试题5（每小题3分，共12分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】Private Function f(a As Integer, b As Integer) As Integer Dim r As Integer, t As Integer f = a Do While f Mod b 0 f = f + a LoopEnd FunctionPrivate Sub Command1_Click() Static k As Integer Dim m As Integer, n As Integer m = InputBox(m=) n = InputBox(n=) k = k + 1 Form1.Cls Print f(m, n)End Sub【供选择的答案】(17) 运行时第1次单击Command1输入4、6后，窗体上的显示结果为： A、4 B、24 C、8 D、12(18) 运行时第2次单击Command1输入15、10后，窗体上的显示结果为： A、150 B、20 C、30 D、2(19) 运行时第3次单击Command1输入4、10后，窗体上的显示结果为： A、10 B、20 C、40 D、80(20) 第4次单击Command1后，该事件过程中变量k的当前值为： A、4 B、3