【正文】 5i1)=tmp Next (27) (27) 在窗體上畫一個名稱為 Drive1 的驅(qū)動器列表框，一個名稱為 Dir1 的目錄列表框，一個名稱為 File1 的文件列表框，兩個名稱分別為 Label Label2，標(biāo)題分別為空白和“共有文件”的標(biāo)簽。 (6) (6) 以下程序的功能是：生成 20 個 200 到 300 之間的隨機(jī)整數(shù)，輸出其中能被５整除的數(shù)并求出它們的和。y End Sub 程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是 A) 10 5 B) 20 5 C) 20 40 D) 10 40 (24) 設(shè)有如下通用過程 : Public Sub Fun (a(),ByVal x As Integer) For i =1 To 5 x=x+a(i) Next End Sub 在窗體上畫一個名稱為 Text1 的文本框和一個名稱為 Command1 的命令按鈕，然后編寫如下的事件過程： Private Sub Command1_ Click() Dim arr(5) As Variant For i=1 To 5 arr(i)=i Next n=10 Call Fun(arr(),n) =n End Sub 程序運(yùn)行后，單擊命令按鈕，則在文本框中顯示的內(nèi)容是 A) 10 B) 15 C) 25 D) 24 (25) 在窗體上畫一個名稱為 Command1 的命令按鈕，然后編寫如下代碼 : Option Base 1 Private Sub Command1_Click() d=0 c=10 x=Array(10, 12, 21, 32, 24) For i= 1 To 5 If x(i) c Then d=d+x(i) c=x(i) Else d=dc End If Next i Print d End Sub 程序運(yùn)行后，如果單擊命令按鈕，則在窗體上輸出的內(nèi)容為 A) 89 B) 99 C) 23 D) 77 (26) 在窗體上畫兩個滾動條，名稱分別為 Hscroll Hscroll2；六個標(biāo)簽，名稱分別為 Labe11?Labe1 Labe1 Labe1 Labe1 Labe1其中標(biāo)簽 Labe14~Labe16 分別顯示“ A”、“ B”、“ A*B”等文字信息，標(biāo)簽 Labe1 Labe12 分別顯示其右側(cè)的滾動條的數(shù)值，Labe13 顯示 A*B 的計(jì)算結(jié)果。則以下能表示當(dāng)前被選中的列表項(xiàng)內(nèi)容的是 A) B) C) D) (9) 程序運(yùn)行后，在窗體上單擊鼠標(biāo)，此時窗體不會接收到的事件 是 A) MouseDown B) MouseUp C) Load D) Click (10) 設(shè) a=10, b=5, c=1, 執(zhí)行語句 Print abc 后，窗體上顯示的是 A) True B) False C) 1 D) 出錯信息 (11) 如果要改變窗體的標(biāo)題，則需要設(shè)置的屬性是 A) Caption B) Name C) BackColor D) BorderStyle (12) 以下能判斷是否到達(dá)文 件尾的函數(shù)是 A) BOF B) LOC C) LOF D) EOF (13) 如果一個工程含有多個窗體及標(biāo)準(zhǔn)模塊，則以下敘述中錯誤的是 A) 如果工種中含有 Sub Main 過程，則程序一定首先執(zhí)行該過程 B) 不能把標(biāo)準(zhǔn)模塊設(shè)置為啟動模塊 C) 用 Hide 方法只是隱藏一個窗體，不能從內(nèi)存中清除該窗體 D) 任何時刻最多只有一個窗體是活動窗體 (14) 窗體的 MouseDown 事件過程 Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 有 4 個參數(shù)，關(guān)于這些參數(shù)，正確的描述是 A) 通過 Button 參數(shù)判定當(dāng)前按下的是哪一個鼠標(biāo)鍵 B) Shift 參數(shù)只能用來確定是否按下 Shift 鍵 C) Shift 參數(shù)只能用來確定是否按下 Alt 和 Ctrl 鍵 D) 參數(shù) x， y 用來設(shè)置鼠標(biāo)當(dāng)前位置的坐標(biāo) (15) 設(shè)組合框 Combol 中有 3 個項(xiàng)目，則以下能刪除最后一項(xiàng)的語句是 A) Text B) 2 C) 3 D) (16) 以下關(guān)于焦點(diǎn)的敘述中，錯誤的是 A) 如果文本框的 TabStop 屬性為 False，則不能接收從鍵盤上輸入的數(shù)據(jù) B) 當(dāng)文本框失去焦點(diǎn)時，觸發(fā) LostFocus 事件 C) 當(dāng)文本框的 Enabled 屬性為 False 時，其 Tab 順序不起作用 C D) 可以用 TabIndex 屬性改變 Tab 順序 (17) 如果要在菜單中添加一個分隔線，則應(yīng)將其 Caption 屬性設(shè)置為 A) = B) * C) amp。 (2) (2) Visual Basic 提供的對數(shù)據(jù)文件的三種訪問方式為隨機(jī)訪問方式、 【 2】 和二進(jìn)制該問方式。列表框中顯示若干城市的名稱。請?jiān)? [6] 處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。程序運(yùn)行后，如果單擊命令按鈕，則顯示一個輸入對話框，在該對話框中輸入一個整數(shù)，并用這個整數(shù)作為實(shí)參調(diào)用函數(shù)過程 F1。 Next J Print Next I End Sub 程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是 A) BB B) A C) B D) AA CC BB CC BBB DDDD CCC DDD CCCC EEEEE DDDD EEEE DDDDD (16) 圖像框有一個屬性，可以自動調(diào)整圖形的大小，以適應(yīng)圖像框的尺寸，這個屬性是 A) Autosize B) Stretch C) AutoRedraw D) Appearance (17) 在窗體上畫兩個名稱分別為 Text Texte2 的文本框和一個名稱為 Command1 的命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() Dim x As Integer,n As Integer x=1 n=0 Do While x20 x=x*3 n=n+1 Loop =Str(x) =Str(n) End Sub 程序運(yùn)行后，單擊命令按鈕，在兩個文本框中顯示的值分別是 A) 15 和 1 B) 27 和 3 C) 195 和 3 D) 600 和 4 (18) 在窗體上畫一個名稱為 Text1 的文本框和一個名稱為 Command1 的命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() Dim i As Integer,n As Integer For I=0 To 50 i=i+3 n=n+1 If i10 Then xit for Next =Str(n) End Sub 程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是 A) 2 B) 3 D) 4 D) 5 (19) 在窗體上畫一個名稱為 Text1 的文本框和一個名稱為 Command1 的命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() Dim array1(10,10) As Integer Dim i,j As Integer For i=1 To 3 For j=2 To 4 array1(i,j)=i+j Next j Next I =array1(2,3)+array1(3,4) End Sub 程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是 A) 12 B) 13 C) 14 D) 15 (20) (20) 在窗體上畫一個名稱為 Command1 的命令按鈕，然后編寫如下程序： Private Sub Command1_Click() Dim i As Integer,j As Integer Dim a(10,10)As Integer For i=1 To 3 For j=1 To 3 a(i,j)=(i1)*3+j Print a(i,j)。 Private Sub Command1_Click() For i=0 To 3 If [3] =True then opt=Option1(i).Caption End If Next Select Case [4] Case” +” Result=Val()+Val() Case” ” Result=Val()Val() Case” *” Result=Val()*Val() Case” /” Result=Val()/Val() End Select [5] =Result End Sub (3) 在窗體上畫一個名稱為 Command1 的命令按鈕和一個名稱為 Text1 的文本框。 Private Sub Form_load() ”北京” ”上?！? ”湖北” End Sub Private Sub [14] () = [15] End Sub 評分標(biāo)準(zhǔn)和參考答案 一、 一、 選擇題（ (1)— (20)每小題 2 分， (21)— (30)每小題 2 分，共 70 分 ） (1) (1) C (2) (2) A (3) (3) C (4) (4) A (5) (5) D (6) (6) B (7) (7) B (8) (8) D (9) (9) D (10) (10) B (11) (11) D (12) (12) D (13) (13) D (14) (14) C (15) (15) A (16) (16) B (17) (17) B (18) (18) C (19) (19) A (20) (20) D (21) (21) C (22) (22) C (23) (23) B (24) (24) B (25) (25) C (26) (26) D (27) (27) A (28) (28) D (29) (29) C (30) (30) A (31) (31) C (32) (32) B (33) (33) A (34) (34) B (35) (35) A 二、填空題 (每空 2 分 ,共 20 分 ) 【 1】 Change 【 2】 Value 【 3】 Option(i).Value 【 4】 opt 【 5】 或 或 或 【 6】 Change 【 7】 PopupMenu 【 8】 x=0 【 9】 xamin 或 x=aminx或 amin=x 【 10】 計(jì)算機(jī) 【 11】 等級考試 【 12】 200 【 13】 Interval 【 14】 List1_DblClick 或 或 【 15】 或 List1 或 或 或 或 20xx1全國計(jì)算機(jī)等級考試二級筆試試卷 Visual Basic 語言程序設(shè)計(jì) （考試時間 120 分鐘，滿分 100 分） 一、選擇題（ (1)— (20)每小題 2分， (21)— (30)每小題 2 分，共 70分） 下列各題 A) 、 B)、 C)、 D)四個選項(xiàng)中，只有一個選項(xiàng)是正確的，請將正確選項(xiàng)涂寫在答題卡相應(yīng)位置上，答在試卷上不得分。該窗口的 標(biāo)題為“ Save”，缺省文件名為“ Savefile”，在“文件類型”欄中顯示 *.txt。 Private Sub Combo1_ 【 12】 (KeyAscii As Integer) If KeyAscii=13 Then For i=0 To If = 【 13】 Then =輸入項(xiàng)已在組合框中 Exit Sub End if Next i =已成功添加輸入項(xiàng) Combo1. 【 14】 End if End Sub (10) (10) 設(shè)有如下程序 Private Sub search(a() As Variant,ByVal Key As Variant,Index%) Dim I% For I=LBound(a) To UBoun