1、2008 年春浙江省高等学校计算机等级考试试卷 (二级 Visual Basic )说明：考生应将所有试题的答案填写在答卷上。其中试题1试题6 ，请在答卷上各小题正确选项的对应位置处填“”； 请将你的准考证号的后五位填写在答卷右下角的指定位置内； 考试时间为90 分钟 ;试题 1（每小题 3 分，共 12 分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】单击Command1后用输入对话框输入1 个整数，单击Command2后在 Text1中显示其反序的数（高位变低位）。要求在文本框中不可输入任何字符。例如：输入123 显示 321，输入 -567 显示
2、-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 0Text1.Text =(3)(4)WendEnd Sub【供选择的答案】B(1) A 、 Dim n As ByteB、 Dim n As IntegerC、 Dim n As StringD、 Public n As ByteA(
3、2) A 、 Text1.Locked = TrueB、 Text1.Locked = FalseC、 Text1.Visible = TrueD、 Text1.Visible = FalseD(3) A 、 n/10 & Text1.TextB、 n Mod 10 & Text1.TextC、 Text1.Text & n/10D、 Text1.Text & n Mod 10A(4) A 、 n = n 10B、 n = n / 10C、 n = n Mod 10D、 n = n - 10试题 2（每小题 3 分，共 12 分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正
4、确答案。【程序说明】运行时，可以在图片框控件p1 用红色绘制下列坐标线并加上数字显示。1Private Sub Form_Activate()P1.Height = P1.WidthP1.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 iFor i = 1 To 9P1.CurrentX = i * 10 - 2P1.CurrentY = -2(8)Ne
5、xt iEnd Sub【供选择的答案】B(5) A 、 P1.DrawB、 P1.LineC、 P1.PrintD、P1.ScaleB(6) A 、 P1.ForeColor = RGB(255,0,0)B、 P1.FillColor = RGB(255,0,0)C、 P1.FillColor = VbRedD、 P1.ForeColor = RedA(7) A 、 1 To 9 Step 1 B、 10 To 90C、 10 To 90 Step 10D、2 To 9B(8) A 、 PSet iB、 P1.Print iC、P1.PsetiD、Printi试题 3（每小题 3 分，共 12
6、 分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】单击“读文件” 按钮将文本文件读入并逐行在列表框控件List1中显示；然后单击 “分解”按钮将List1每行中的英文字母、其他字符分别显示在List2 、 List3各行中。运行结果如下图所示。2【程序】Private Sub Command1_Click()读文件Dim s As StringOpen e:xxx.txt For(9)As #1While Not EOF(1)Line Input #1, s : List1.AddItem sWendClose #1End SubPrivate Sub
7、Command2_Click()分解Dim i As Integer, n As Integer, s1 As String, s2 As StringFor i = 1 To(10)n = Len(List1.List(i - 1)ReDim a(n) As String * 1For j = 1 To na(j) =(11)Next js1 = : s2 = For j = 1 To nIf(12)Then s1=s1+a(j) Else s2=s2+a(j)Next jList2.AddItem s1List3.AddItem s2Next iEnd Sub【供选择的答案】C( 9)A、
8、 ReadB、AppendC、 InputD、 OutputD(10)A、 List1.CountB、ListCountC、 ListCount-1D、 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)=A And a(j)=a And a(j)=A And a(j)=ZC 、a=a(j)=z Or A=a(j)=a And a(j)=A And a
9、(j)=Z)试题 4（每小题 3 分，共 12 分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】Private Sub Text1_KeyPress(K As Integer)If K Asc(9) ThenK = 0ElseLabel1.Caption = Chr(K) + Label1.CaptionEnd IfEnd Sub【供选择的答案】B (13) Text1获得输入焦点后，依次按数字键1、 3、 5，Label1 显示：A、 135B、 531C、 9D、 5A (14) Text1获得输入焦点后，依次按数字键2、 7、 9，Label1 显示：
10、A、 972B、 279C、297D、 18C (15) Text1获得输入焦点后，依次按- 、 2、3、 5 键， Label1 显示：A、 -532B、 -235C、 532D、 235D (16) Text1获得输入焦点后，依次按1 、 2、a、 5 键， Label1 显示：A、空白B、 12a5C、 5a21D、 521试题 5（每小题 3 分，共 12 分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】Private Sub Form_Load()Timer1.Interval = 1000End SubPrivate Sub Timer1_Tim
11、er()Static k As ByteForm1.CurrentX=0: Form1.CurrentY=0 窗体的所有其他属性均取缺省值 Form1.ClsIf k = 0 Then k = 1 Else k = 0If 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)系统时间的显示位置，是在：
12、4A 、窗体右上角B、窗体左上角C、窗体右下角D、窗体左下角B(19)如果将 Timer 过程中的语句“Statick As Byte ”改为“ Dim k As Byte ”，激活 Timer1后，窗体系统时间显示上的颜色为：A 、蓝、绿色交替B、蓝色C、绿色D、红色A(20)如果要同时显示系统日期、时间，对 Timer 过程中 Print语句之输出列表不可取的是：A 、 Date,TimeB、 Date;TimeC、 Date-TimeD、 Date + Time试题 6（每小题 3 分，共 12 分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】Priv
13、ate Sub f(b() As Integer, ByRef m As Integer)Dim i As Integer, j As Integer, k As Integeri = 1Do While i = mFor j = 1 To mIf b(i) Mod b(j) = 0 And i j ThenFor k = i To m - 1: b(k) = b(k + 1): Next kExit ForEnd IfNext jIf j m Then i = i + 1 Else m = m - 1LoopEnd SubPrivate Sub Command1_Click()Dim a(6
14、) As Integer, i As Integer, n As Integern = 6For i = 1 To 6: a(i) = InputBox(a( & i & )=): Next iCall f(a, n)For i = 1 To n: Print a(i); : Next iEnd SubD(21)单击 Command1输入 7、8、 5、 4、 9、 3 后，相应的显示结果为：A 、 8 9 3B、 8 9 3 3 3 3C、 7 5 4 3 3 3D、 7 5 4 3C(22)如果将过程f 首句中的“ ByRef ”改为“ Byval ”，输入数据同 (21) ，显示结果为：
15、A 、 8 9 3B、 8 9 3 3 3 3C、 7 5 4 3 3 3D、 7 5 4 3B(23)单击 Command1输入 4、12、 27、8、 -6 、 3 后，相应的显示结果为：A 、 4 3 3 3 3 3B、 4 3C、 12 27 8 -6D、 12 27 8A(24)如果将过程f 首句中的“ ByRef ”改为“ Byval ”，输入数据同 (23) ，显示结果为：A 、 4 3 3 3 3 3B、 4 3C、 12 27 8 -6D、 12 27 8试题 7(28 分 )编程，按 Command1可输入有10 个实数的数组，调用函数f 求他们的平均值V，然后输出其中与V
16、 之差的绝对值为最小的那个数组元素。请将答卷上函数过程f （包括形参列表） 、事件过程Command1补充完整。Private Function f(a() as single,n as integer ) As Single 2 分5Dim I as integer,sum as single 1 分Sum=0For I=1 to n 5 分Sum=sum+a(i)Next IF=sum/n 2 分End FunctionPrivate Sub Command1_Click()Dim a(10) As Single, i As Integer, v As Single, x As Singl
17、e, d As Single 输入数据 (3 分 ) for I= 1 to 10a(i)=inputbox(“请输入数据”)next i 计算平均值 v (3 分 ) v=f(a,10)将与 v 之差的绝对值为最小的那个数组元素赋值给x，输出 x。d=abs(v-a(1) : x=a(1)2 分for I=2 to 10绝对值2 分 , 其余 6 分if dmax Then max=a(i)If a(i)min Then min=a(i)(7)Next i(8)7【供选择的答案】A(5) A 、 FunctionB、 SubC、 Private SubD、PrivateFunctionB(6
18、) A 、 max As Single,min As SingleB、 max As Integer,min As IntegerC、 Byval max As SingleD、 Byval max As Single,Byval min AsSingleA(7) A 、 f=f+a(i)B、 f=f+a(i)/nC、 f=a(i)D、f=a(i)/nD(8) A 、 find = maxB、 End SubC、 find = minD、 EndFunction试题 3（每小题 3 分，共 12 分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】单击 Co
19、mmand1后读入文件中所有数据( 多于 10 个 ) ，将其中较大的5 个数、较小的5个数以及其他数分别在列表框控件List1 、 List3 、 List2中显示。【程序】Private Sub Command1_Click()Dimn As Integer,x As Single,iAs Integer,jAs Integer,kAs IntegerOpen e:score.txt For Input As #1Do While(9)统计文件中的数据个数nInput #1, x : n = n + 1Loop(10)As SingleClose #1: Open e:score.txt
20、For Input As #1 重新打开文件For i = 1 To nInput #1,a(i)Next iClose #1For i = 1 To n-1k = iFor j = i+1 To nIf(11)Then k=jNext jx = a(i): a(i) = a(k): a(k) = tIf i a(k)B、a(i)a(k)D、 a(j)=n-5B、in-5C、 n5D、 in试题 4（每小题3 分，共 12 分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】Dim m As IntegerPrivate Sub Command1_Click()
21、Dim a As Integer, i As Integer, f As Integera = InputBox(a=)f = 1: i = 2While i = a / 2If a Mod i = 0 Then f = f + ii = i + 1m = m + 1WendForm1.Cls: Print fEnd Sub【供选择的答案】(13) 运行时第 1 次单击 Command1输入 7 后，窗体上的显示结果为：A 、 1B、 3C、 5D、7(14) 运行时第 2 次单击 Command1输入 8 后，窗体上的显示结果为：A、 2B、 7C、 8D、6(15) 运行时第 3 次单击
22、Command1输入 9 后，窗体上的显示结果为：A、 3B、 5C、 7D、4(16) 运行时 3 次单击 Command1、并依次输入 7、 8、 9 后，变量 m的当前值为：A、 6B、 7C、 8D、 3试题 5（每小题 3 分，共 12 分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】Private Function f(a As Integer, b As Integer) As IntegerDim r As Integer, t As Integerf = aDo While f Mod b 0f = f + aLoopEnd Functio
23、nPrivate Sub Command1_Click()Static k As Integer9Dim m As Integer, n As Integerm = InputBox(m=)n = InputBox(n=)k = k + 1Form1.ClsPrint f(m, n)End Sub【供选择的答案】(17) 运行时第 1 次单击 Command1输入 4、 6 后，窗体上的显示结果为：A 、 4B、24C、 8D、 12(18) 运行时第 2 次单击 Command1输入 15、 10 后，窗体上的显示结果为：A 、 150B、20C、 30D、 2(19) 运行时第 3 次单击
24、 Command1输入 4、 10 后，窗体上的显示结果为：A 、 10B、20C、 40D、 80(20) 第 4 次单击 Command1后，该事件过程中变量k 的当前值为：A 、 4B、3C、 0D、 2试题 6（每小题3 分，共 12 分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。 界面设计以及运行时HScroll1.Value值为 90时的显示分别如下图左、图右所示。【程序】Private Sub Form_Load()Picture1.Width = Picture1.HeightPicture1.Scale (-10, 10)-(10, -10)Pi
25、cture1.BorderStyle = 0HScroll1.SmallChange = 2: HScroll1.LargeChange = 10End SubPrivate Sub HScroll1_Change()Dim t As SinglePicture1.Clst = HScroll1.Value * 3.14159 / 180Label1.Caption = HScroll1.ValuePicture1.Circle (0, 0), 10, vbRedPicture1.Line (0, 0)-(9 * Cos(t), 9 * Sin(t)10End Sub(21) 决定运行时图片框
26、控件边框不显示的相关属性为：A 、 BackColorB、 ForeColorC、 FillStyleD、 BorderStyle(22) 滚动条 Value 属性值为 180 时，以原点为起点的直线指向：A 、 12 点方向B、 9 点方向C、 6 点方向D、3 点方向(23) 滚动条 Value 属性值为 270 时，以原点为起点的直线指向：A 、 12 点方向B、 9 点方向C、 6 点方向D、3 点方向(24) 下列说法中正确的是：A 、拖动滚动条滑块的过程中以及结束后都不会触发HScroll1_Change事件B 、拖动滚动条滑块的过程结束后立即触发HScroll1_Change 事
27、件C 、单击滚动条两端箭头时Value 的增量为10 或 -10。D 、单击滚动条上空白区域时Value 的增量为 2 或 -2。试题 7(28 分 )a2 x a3 x2an xn 1 的值。在文本框控件编程，计算多项式 a1Text1 、 Text2中分别输入 n、x 后，按 Command1可输入 a1、 a2、 a3 、 、 a n ，按 Command2可计算该多项式的值并以标签控件 Label3 显示。程序设计时的界面设计如下图左所示。 运行时输入 n 为 3、x 为 1.5 ，输入 a1、 a2、 a3 分别为 1、 2、 3 后的输出结果如下图右所示。请将答卷上各事件过程补充完
28、整。2007 年春浙江省高等学校计算机等级考试试卷 (二级 Visual Basic )说明：考生应将所有试题的答案填写在答卷上。其中试题1试题6 ，请在答卷上各小题正确选项的对应位置处填“”； 请将你的准考证号的后五位填写在答卷右下角的指定位置内； 考试时间为90 分钟 ;试题 1（每小题 3 分，共 12 分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。11【程序说明】单击窗体后输入1 个不小于6 的正整数，然后输出该数所有的质数因子（如输入 6 则输出“ 2 3”，输入 60 则输出“2 2 3 5”，等等）。【程序】Private Sub f(1)Dim i
29、 As Integeri = 2Do While(2)If(3)Then k = k /i: Print i; Else i = i + 1LoopEnd SubPrivate Sub Form_Click()Dim n As IntegerDon = InputBox(n=)Loop(4)Call f(n)PrintEnd Sub【供选择的答案】B(1) A 、 n As IntegerB、 k As IntegerC、 Byval n As ByteD、 I As IntegerA(2) A 、 k1B、 k=1C、 k=1D、 k Mod i=0D(3) A 、 ki=0B、 ki*i=
30、0C、 n Mod i=0D、(ki)*i=kC(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 = 开始 ThenCommand1.Ca
31、ption = 显示 P1.Enabled = True: n = 0ElseCommand1.Caption =(5)P1.Enabled = False: MsgBox( 单击该区域 +(6)+ 次 )End IfEnd SubPrivate Sub Form_Activate()P1.Width = P1.HeightP1.Scale(-3, 3) - (3, -3)P1.FillStyle =(7)12P1.FillColor =(8): P1.Circle(0, 0), 2P1.FillColor = vbwhite: P1.Circle(0, 0), 1End SubPrivate
32、 Sub Form_Load()Command1.Caption = 开始 : P1.Enabled = FalseEnd SubPrivate 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 +1End Sub【供选择的答案】D(5) A 、 退出 B、 开 始 C、 显示 D、 开始 C(6) A 、 nB、 Val(n)C、 Str(n)D、Trim(n)B(7) A 、 1B、 0C、 2D、3A(8
33、) A 、 vbblankB、 Rgb(255,0,0)C、 vbwhiteD、 Rgb(255,255,0)A(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 SingleList1.Clea
34、r: CommonDialog1.Action = 1Open CommonDialog1.FileName For(10)As #1Do While(11)Input #1, x: List1.Additem xLoopClose #1End SubPrivate Sub Command2_Click()Dimn As Single,xAs Single,iAs Integer,jAs Integer,KAs Integern = List1.(12)Redim a(n) As SingleFor i = 1 To n: a(i) = List1.List(i-1): Next iFor i = 1 To n -1k = iFor j = i+1 To n: If(13)Then k = j: Next j
个人主页
