浙江省07-08VB二级考试卷真题及答案.docx
《浙江省07-08VB二级考试卷真题及答案.docx》由会员分享,可在线阅读,更多相关《浙江省07-08VB二级考试卷真题及答案.docx(17页珍藏版)》请在文库网上搜索。
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 浙江省 07 08 VB 二级 考试卷 答案