【正文】 ic”，下面使 b=“ Basic”的語句是 A) b=Left(a,8,12) B) b=Mid(a,8,5) C) b=Rigth(a,5,5) D) b=Left(a,8,5) (11) 以下能夠觸發(fā)文本框 Change 事件的操作是 A) 文本框失去焦點 B) 文本框獲得焦點 C) 設(shè)置文本框的焦點 D) 改變文本框的內(nèi)容 (12) 在窗體上有一個文本框控件，名稱為 TxtTime：一個計時器控件，名稱為 Timerl，要求每一秒鐘在文本框中顯示一次當(dāng)前的時間。 Next J Print Next I End Sub 程序運行后，如果單擊命令按鈕，則在窗體上顯示的內(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 程序運行后，單擊命令按鈕，在兩個文本框中顯示的值分別是 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 程序運行后，單擊命令按鈕，在文本框中顯示的值是 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 程序運行后，單擊命令按鈕，在文本框中顯示的值是 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)。在 F1 中判斷所輸入的整數(shù)是否是奇數(shù)，如果是奇數(shù)，過程 F1 返回 1，否則返回 0。要求當(dāng)執(zhí)行事件過程 Command1_Click 時，在順序文件 中寫入一條記錄。請在 [1] 和 [2] 處填入適當(dāng)?shù)膬?nèi)容，將程序補充完整。 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() =False End Sub Private Sub Text1_ [6] () =True End Sub (4) 在菜單編輯器中建立了一個菜單，名為 pmenu，用下面的語句可以把它作為彈出式菜單彈出，請?zhí)羁?。amax,” Min=” 。 (9) 在窗體上畫一個名稱為 Lable1 的標(biāo)簽和一個名稱為 List1 的列表框。 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ī) 【 11】 等級考試 【 12】 200 【 13】 Interval 【 14】 List1_DblClick 或 或 【 15】 或 List1 或 或 或 或 20xx1全國計算機(jī)等級考試二級筆試試卷 Visual Basic 語言程序設(shè)計 （考試時間 120 分鐘，滿分 100 分） 一、選擇題（ (1)— (20)每小題 2分， (21)— (30)每小題 2 分，共 70分） 下列各題 A) 、 B)、 C)、 D)四個選項中，只有一個選項是正確的，請將正確選項涂寫在答題卡相應(yīng)位置上，答在試卷上不得分。當(dāng)單擊列表框中的某個城市名時，在標(biāo)簽中顯示選中城市的名稱。編寫程序，使得驅(qū)動器列表框與目錄列表框、目錄列表框與文件列表框同步變化，并且在標(biāo)簽 Label１中顯示當(dāng)前文件夾中文件的數(shù)量。 設(shè)有如下的類型聲明 Type Person name As String*8 major As String*20 End Type 當(dāng)單擊“保存”按鈕時，將兩個文本框中的內(nèi)容寫入一個隨機(jī)文件 中。該窗口的 標(biāo)題為“ Save”，缺省文件名為“ Savefile”，在“文件類型”欄中顯示 *.txt。 (3) (3) 執(zhí)行下面的程序段后，變量Ｓ的值為 【 3】 。請?zhí)羁? Private Sub Command1_Click() For i=1 To 20 x=Int( 【 6】 *200+100) If 【 7】 =0 Then Print x S=S+ 【 8】 End if Next i PrintSum=。 (8) (8) 在窗體上畫一個名稱為 Command1 的命令按鈕，編寫如下事件過程 Private Sub Command1_Click() Dim a As String a= 【 11】 For i=1 to 5 Print Space(6i)。 Private Sub Combo1_ 【 12】 (KeyAscii As Integer) If KeyAscii=13 Then For i=0 To If = 【 13】 Then =輸入項已在組合框中 Exit Sub End if Next i =已成功添加輸入項 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 UBound(a) If key=a(I) Then index=I Exit Sub End if Next I Index=1 End Sub Private Sub Form_Load() Show Dim b() As Variant Dim n As Integer b=Array(1,3,5,7,9,11,13,15) Call search(b,11,n) Print n End Sub 程序運行后，輸出結(jié)果是 【 15】 。 D) (18) 執(zhí)行語句 Open“ ” For Random As l Len=50 后，對文件 中的數(shù)據(jù)能夠執(zhí)行的操作是 A) 只能寫，不能讀 B) 只能讀，不能寫 C) 既可以讀，也可以寫 D) 不能讀，不能寫 (19) 在窗體上畫一個名稱為 Commandl 的命令按鈕和兩個名稱分別為 Textl?Text2 的文本框，然后編寫如下事件過程 : Private Sub Command1_Click() n= Select Case n Case 1 To 20 x=10 Case 2, 4, 6 x=20 Case Is 10 x=30 Case 10 x=40 End Select =x End Sub 程序運行后，如果在文本框 Text1 中輸入 10，然后單擊命令按鈕，則在 Text2 中顯示的內(nèi)容是 A) 10 B) 20 C) 30 D) 40 (20) 設(shè)有以下循環(huán)結(jié)構(gòu) Do 循環(huán)體 Loop While條件 則以下敘述中錯誤的是 A）若“條件”是一個為 0 的常數(shù)，則一次也不執(zhí)行循環(huán)體 B) “條件“可以是關(guān)系表達(dá)式、邏輯表達(dá)式或常數(shù) C) 循環(huán)體中可以使用 Exit Do 語句 D) 如果“條件”總是為 True，則不停地執(zhí)行循環(huán)體 (21) 在窗體上畫一個名稱為 Command1 的命令按鈕，然后編寫如下事件過程 : Private Sub Command1_Click() Dim num As Integer num =1 Do Until num6 Print num。如圖所示 ?當(dāng)移動滾動框時，在相應(yīng)的標(biāo)簽中顯示滾動條的值。 s=2 For i= To Step s=s+1 Next i (2) 把窗體的 KeyPreview 屬性設(shè)置為 True，然后編寫如下兩個事件過程： Private Sub Form _KeyDown (KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form。以下不能實現(xiàn)上述功能的事件過程是 A) Private Sub Command1_Click() =Str(Val()*Val()) End Sub B) private Sub Command1_Click() =