VB二级考复习资料-2012_3.doc

同济大学 浙江学院浙江省高等学校计算机等级考试二级VB程序设计复习资料目 录四、浙江省09年秋二级考试VB笔试试卷1五、浙江省10年春二级考试VB笔试试卷6六、浙江省11年春二级考试VB笔试试卷11同济大学浙江学院2012年3月四、浙江省09年秋二级考试VB笔试试卷一、程序阅读与填空（24小题，每小题3分，共72分）1. 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】输入n、x（x的绝对值必须小于1）后，计算并显示下列表达式的值。+【程序】Private Sub Command1_Click() Dim y As Single, x As Single, t As Single Dim n As Integer, i As Integer, f As Integer n = InputBox(n=) Do x = InputBox(x=) Loop _(1)_ 必须是1 否则重输 y = 1: _(2)_ For i = 2 To _(3)_ t = -t * x y = _(4)_ 循环内s=s+变量 求和 Next i Print yEnd Sub【供选择的答案】（1）A、While Abs（x）-1 And x1 C、Until Abs（x）1（2）A、t=-x/2 B、t=-1 C、t=0 D、t=1（3）A、n-2 B、n C、n-1 D、n+1（4）A、y+t/i B、t*i C、t/i D、y+t*i2. 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】单击Command1后计算List1中所有数的平均值，清空列表框控件List2中所有表项后将List1中所有小于平均值的数据写入到List2（如下图所示）。【程序】Private Sub Command1_Click() Dim n As Integer, i As Integer, s As Single, v As Single n = _(5)_ _(6)_ For i = 1 To n a(i) = _(7)_: v = v + a(i) Next i v = v / n: _(8)_ For i = 1 To n If a(i) v Then List2.AddItem a(i) Next iEnd Sub【供选择的答案】（5）A、List1.ListCount-1 B、List1. ListCount C、List1. ListIndex D、List1.Count（6）A、Redim a（n-1） B、Dim a（n）As Single C、ReDim a（n）As Single D、Dim a（n）（7）A、List1.List（i-1） B、List1.List（i） C、List1.Text D、List1.List（i+1）（8）A、List2.Move B、List2.List=” C、List2.Cls D、List2.Clear3. 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】运行时初态如下图所示，Text2、Text3、Command1不可用。输入姓名按回车Text2可用，输入学号按回车Text3可用，输入成绩按回车“保存”按钮可用，按“保存”将数据添加到文件e:score.txt、界面恢复初态。退出前可继续输入、保存数据。【程序】Private Sub f() 子过程 _(9)_ Text1.Text = : Text1.Enabled = True Text2.Text = : Text2.Enabled = False Text3.Text = : Text3.Enabled = False Text1.SetFocusEnd SubPrivate Sub Form_Activate() Call fEnd SubPrivate Sub Text1_KeyPress(K As Integer) If K = 13 Then Text2.Enabled = True: Text2.SetFocusEnd SubPrivate Sub Text2_KeyPress(K As Integer) If K = 13 Then Text3.Enabled = True: Text3.SetFocusEnd SubPrivate Sub Text3_KeyPress(K As Integer) If K = 13 Then Command1.Enabled = TrueEnd SubPrivate Sub Command1_(10)_ Open e:score.txt For _(11)_ As #1 Write #1, Text1.Text, Text2.Text, Val(Text3.Text) Close #1 _(12)_ 调用，f恢复原状End Sub【供选择的答案】（9）A、Command1.Visible= True B、Command1.Enable= True C、Command1.Visible= False D、Command1.Enable= False（10）A、_KeyUp() B、_KeyDown() C、_Click() D、_KeyPress()（11）A、Input B、Append C、Output D、Write（12）A、Call Sub f（） B、Call f C、f（） D、Command1.Enable=False4. 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】Private Sub Command1_Click() Dim n As Integer, k As Integer n = Val(Text1.Text): Label1.Caption = n=19 25 29 42 While n 0 k = n Mod 16 If k 10 Then k=3 9 29 42 Label1.Caption = Trim(Str(k) + Label1.Caption Else Label1.Caption = Chr(k - 10 + Asc(a) + Label1.Caption End If n = n 16 n=1 1 1 2 WendEnd Sub【问题】（13）在Text1中输入“19”后，单击命令按钮Command1，标签Label1中显示： A、31 B、13 C、3, 1 D、1， 3 （14）在Text1中输入“25”后，单击命令按钮Command1，标签Label1中显示： A、3119 B、1913 C、19 D、2， 4（15）在Text1中输入“29”后，单击命令按钮Command1，标签Label1中显示： A、C1 B、1C C、1D D、1d（16）在Text1中输入“42”后，单击命令按钮Command1，标签Label1中显示： A、2a B、a2 C、2，a D、A2 5. 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】Private Sub f1(a() As Single, n As Integer) Dim i As Integer For i = 1 To n: a(i) = a(i) + 1: Next iEnd SubPrivate Function f2(a() As Single, n As Integer) As Single Dim i As Integer Call f1(a, n) For i = 1 To n f2 = f2 + a(i) Next i f2 = f2 / nEnd FunctionPrivate Sub Command1_Click() Dim n As Integer, i As Integer n = InputBox(n=) ReDim x(n) As Single For i = 1 To n x(i) = InputBox(x( & i & )=) Next i Print f2(x, n)End Sub【问题】（17）单击命令按钮Command1后输入3、1、2、3这4个数，显示结果为： A、2.5 B、4 C、2 D、3（18）单击命令按钮Command1后输入4、1、2、3、4这5个数，显示结果为： A、3.5 B、5 C、4 D、3（19）单击命令按钮Command1后输入5、1、2、3、4、5这6个数，显示结果为： A、3 B、3.5 C、4 D、4.5（20）若删除函数f2中的语句“Call f1（a，n）”，单击命令按钮Command1后输入3、1、2、3这4个数，显示结果为： A、2.5 B、4 C、2 D、36. 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】Private Sub Form_Load() P1.Width = P1.Height P1.Scale (-100, 100)-(100, -100)End SubPrivate Sub Command1_Click() Dim x As Single, y As Single P1.Circle (0, 0), 80, RGB(255, 0, 0) P1.FillStyle = 0: P1.FillColor = vbYellow P1.Circle (P1.ScaleLeft + P1.ScaleWidth / 2, P1.ScaleTop _ + P1.ScaleHeight / 2), 40, RGB(0, 0, 255) P1.FillColor = vbGreen For x = -60 To 60 Step 0.01 y = Sqr(3600 - x * x) P1.PSet (x, y), RGB(0, 255, 0) P1.PSet (x, -y), RGB(0, 255, 0) Next xEnd Sub【问题】（21）运行时第一次单击命令按钮Command1后，图片框控件p1中的显示为： A、2个圆 B、3个圆 C、2个圆和1个矩形 D、2个圆和1个椭圆（22）运行时第一次单击命令按钮Command1后，图片框控件p1中的显示为： A、各不相同 B、相同 C、都在p1左上角 D、都在p1右下角（23）运行时第一次单击Command1后，p1中显示的实心圆的半径、填充色分别是： A、40，黄色 B、40，绿色 C、80，红色 D、60，绿色（24）运行时第二次单击Command1后，p1中半径为80的圆的填充色是： A、红色 B、灰色 C、黄色 D、绿色二、程序编写（2小题，每小题14分，共28分）1. 编制事件过程Command1_Click，输入x后，计算下列函数的值。答案1.Private Sub Command1_Click() Dim x As Single, f As Single x = InputBox(x=) If x max Then max = a(i) Next i f = maxEnd FunctionPrivate Sub Command1_Click() Dim a(20) As Single For i = 1 To 20 a(i) = InputBox() Next i Print f(a, 20)End Sub或(