VB二級考復習資料-2012_3.doc

同濟大學 浙江學院浙江省高等學校計算機等級考試二級VB程序設計復習資料目 錄四、浙江省09年秋二級考試VB筆試試卷1五、浙江省10年春二級考試VB筆試試卷6六、浙江省11年春二級考試VB筆試試卷11同濟大學浙江學院2012年3月四、浙江省09年秋二級考試VB筆試試卷一、程序閱讀與填空（24小題，每小題3分，共72分）1. 閱讀下列程序說明和程序，在每小題提供的若干可選答案中，挑選一個正確答案?！境绦蛘f明】輸入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)_ 循環(huán)內(nèi)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中所有數(shù)的平均值，清空列表框控件List2中所有表項后將List1中所有小于平均值的數(shù)據(jù)寫入到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. 閱讀下列程序說明和程序，在每小題提供的若干可選答案中，挑選一個正確答案?！境绦蛘f明】運行時初態(tài)如下圖所示，Text2、Text3、Command1不可用。輸入姓名按回車Text2可用，輸入學號按回車Text3可用，輸入成績按回車“保存”按鈕可用，按“保存”將數(shù)據(jù)添加到文件e:score.txt、界面恢復初態(tài)。退出前可繼續(xù)輸入、保存數(shù)據(jù)?！境绦颉縋rivate 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)_ 調(diào)用，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. 閱讀下列程序說明和程序，在每小題提供的若干可選答案中，挑選一個正確答案?！境绦颉縋rivate 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. 閱讀下列程序說明和程序，在每小題提供的若干可選答案中，挑選一個正確答案?！境绦颉縋rivate 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個數(shù)，顯示結果為： A、2.5 B、4 C、2 D、3（18）單擊命令按鈕Command1后輸入4、1、2、3、4這5個數(shù)，顯示結果為： A、3.5 B、5 C、4 D、3（19）單擊命令按鈕Command1后輸入5、1、2、3、4、5這6個數(shù)，顯示結果為： A、3 B、3.5 C、4 D、4.5（20）若刪除函數(shù)f2中的語句“Call f1（a，n）”，單擊命令按鈕Command1后輸入3、1、2、3這4個數(shù)，顯示結果為： A、2.5 B、4 C、2 D、36. 閱讀下列程序說明和程序，在每小題提供的若干可選答案中，挑選一個正確答案?！境绦颉縋rivate 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后，計算下列函數(shù)的值。答案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或(