全國計算機等級考試二級vb試題庫完整.doc

專業(yè)資料52000. 下列敘述中正確的是(C)(單)A.只有窗體才是Visual Basic中的對象B.只有控件才是Visual Basic中的對象C.窗體和控件都是Visual Basic中的對象D.窗體和控件都不是Visual Basic中的對象 52001.下列可以激活屬性窗口的操作是(D)(單)A.用鼠標(biāo)雙擊窗體的任何部位B.執(zhí)行文件菜單中的屬性窗口命令C.執(zhí)行編輯菜單中的屬性窗口命令D.按F4鍵 52002下列能打開工具箱窗口的操作是(A)(單)A.執(zhí)行視圖菜單中的工具箱命令 B.按Alt鍵 C.單擊屬性窗口上的工具箱按鈕 D.按Ctrl鍵 52003.假定已在一個窗體上畫了多個控件，并有一個控件是活動的，為了在屬性窗口中設(shè)置該窗體的Name屬性，預(yù)先應(yīng)執(zhí)行的操作是(D)(單)A.單擊窗體上有控件的地方 B.單擊任一個控件C.不執(zhí)行任何操作 D.雙擊窗體的標(biāo)題欄 52004.為了把窗體上的某個控件變?yōu)榛顒拥?，?yīng)執(zhí)行的操作是(B)(單)A.單擊窗體的空白處 B.單擊該控件的內(nèi)部C.雙擊該屬性列表框 D.雙擊窗體52005.確定一個控件在窗體上的位置的屬性是(D)(單)A.Width或Height B.Top和HeightC.Top或Width D.Top和Left 52006.確定一個窗體或控件的大小的屬性是(A)(單)A.Width或Height B.Top和WidthC.Top或Left D.Top和Left52007.為了同時改變一個活動控件的高度和寬度，正確的操作是(A)(單)A.拖拉位于控件左上角 B.只能拖拉位于控件右下角C.只能拖拉位于控件左下角D.不能同時改變控件的高度和寬度52008.面向?qū)ο蟮某绦蛟O(shè)計指滿足(B)(單)A.虛擬化、結(jié)構(gòu)化、動態(tài)化 B.封裝性、繼承性、多態(tài)性C.對象的鏈接、動態(tài)鏈接、動態(tài)數(shù)據(jù)交換D.ODBC、DDE、OLE52009.用戶在屏幕上畫出應(yīng)用程序界面，并設(shè)置好對象的屬性，系統(tǒng)便可以自動生成程序代碼，這稱為(A)(單)A.面向?qū)ο蟮某绦蛟O(shè)計 B.結(jié)構(gòu)化程序設(shè)計C.事件驅(qū)動的編程機制 D.程序設(shè)計52010.VB集成開發(fā)環(huán)境開發(fā)的應(yīng)用程序不適宜的運行環(huán)境是(A)(單)A.WINDOS 32 B.WINDOWS 9XC.WINDOWS NTD.WINDOWS 200052011.VB6共有三個版本，按功能從弱到強的順序排列應(yīng)是(C)(單)A.學(xué)習(xí)版、專業(yè)版和工程版 B.學(xué)習(xí)版、工程版和專業(yè)版C.學(xué)習(xí)版、專業(yè)版和企業(yè)版 D.學(xué)習(xí)版、企業(yè)版和專業(yè)版52012.VB集成開發(fā)環(huán)境有三種工作狀態(tài)，不屬于三種工作狀態(tài)之一的是(B)(單)A.設(shè)計狀態(tài)B.編寫代碼狀態(tài)C.運行狀態(tài)D.中斷狀態(tài)52013.不能打開代碼窗口的操作是(B)(單)A.雙擊窗體設(shè)計器的任何地方 B.按下F鍵C.單擊工程窗口中的查看代碼按鈕D.選擇視圖下拉菜單中的代碼窗口52014.在VB中，工程文件的擴展名是(B)(單)A.frm B.vbp C.bas D.frx52015.在VB中，窗體文件的擴展名是(A)(單)A.frm B.vbp C.bas D.frx52016.VB集成開發(fā)環(huán)境可以(D)(單)A.編輯、調(diào)試、運行程序，但不能生成可執(zhí)行程序B.編輯、生成可執(zhí)行程序、運行程序，但不能調(diào)試程序C.編輯、調(diào)試、生成可執(zhí)行程序，但不能運行程序D.編輯、調(diào)試、運行程序，也能生成可執(zhí)行程序52017.英文VISUAL的含義是(A)(單)A.可視化 B.集成 C.結(jié)構(gòu)化 D.調(diào)試52018.標(biāo)準(zhǔn)模塊文件的擴展名是(C)(單)A.frm B.vbpC.bas D.vbg52019.VB集成開發(fā)環(huán)境中，在(C)中編寫代碼(單)A.狀態(tài)欄 B.屬性列表框C.代碼框 D.標(biāo)題欄52020.在面向?qū)ο蟮某绦蛟O(shè)計過程中，英文縮寫OOP的含義是(C)(單)A.事件驅(qū)動的編程機制 B.結(jié)構(gòu)化程序設(shè)計語言C.面向?qū)ο蟮某绦蛟O(shè)計 D.可視化程序設(shè)計52021.在窗體上畫一個名稱為Timer1的計時器控件，要求每隔0.5秒發(fā)生一次計時器事件，則以下正確的屬性設(shè)置語句是(D)(單)A.Timer1.Interval=0.5 B.Timer1.Interval=5C.Timer1.Interval=50 D.Timer1.Interval=50052022.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click( )Static x As IntegerClsFor t=1 To 2y=y+xx=x+2Next tPrint x,yEnd Sub程序運行后，連續(xù)三次單擊Command1按鈕后，窗體上顯示的是(A)(單)A.4 2 B.12 18 C.12 30 D.4 652023.以下關(guān)于多重窗體程序的敘述中，錯誤的是(A)(單)A.用Hide方法不但可以隱藏窗體,且能清除內(nèi)存中的窗體B.在多重窗體程序中，各窗體的菜單是彼此獨立的C.在多重窗體程序中，可以根據(jù)需要指定啟動窗體D.對于多重窗體程序中，單獨保存每個窗體52024.以下關(guān)于文件的敘述中，錯誤的是(B)(單)A.順序文件中的記錄一個接一個順序存放B.隨機文件中記錄的長度是不相同的C.執(zhí)行打開文件的命令后，自動生成一個文件指針D.EOF函數(shù)作用是判斷文件的指針是否指向文件末尾52025.以下敘述中錯誤的是(D)(單)A.事件過程是響應(yīng)特定事件的一段程序B.不同的對象可以具有相同名稱的方法C.對象的方法是執(zhí)行指定操作的過程D.編程者可以自由更改代碼框右上邊的過程列表的事件名稱52026.以下合法的Visual Basic變量的名稱是(A)(單)A.a3 B.Const C.9abc D.a#x!52027.當(dāng)一個復(fù)選框被選中時，它的Value屬性的值是(C)(單)A.3 B.2 C.1 D.052028.表達(dá)式 5 Mod 3+53的值是(B)(單)A.0 B.3 C.4 D.652029.設(shè)x=4,y=8,z=7, 表達(dá)式：(xy) Or zx 的值是(C)(單)A.1 B.-1 C.TRUE D.FALSE52030.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click( )a$=VisualBasicPrint String(3,a$)End Sub程序運行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是(A)(單)A.VVV B.VisC.sic D.1152031.設(shè)有如下程序段：x=2For c=1 To 4 Step 2x=x+cNext c運行以上程序后，x的值是(A)(單)A.6 B.7C.8 D.952032.以下敘述中錯誤的是(A)(單)A.在KeyPress事件過程中不能識別鍵盤鍵的按下與釋放B.在KeyPress事件過程中不能識別回車鍵C.在KeyDown和KeyUp事件過程中，從鍵盤輸入的字母A和字母a對應(yīng)的KeyCode視作相同的字母D.在KeyDown和KeyUp事件過程中，從大鍵盤上輸入的1和從右側(cè)小鍵盤上輸入的1被視作不同的字符52033.執(zhí)行如下兩條語句，窗體上顯示的是(C)(單)A=9.8596Print Format(a,000.00)A.0,009.86 B.9.86 C.009.86 D.0,009.8652034.在窗體上畫一個名稱為CommandDialog1 的通用對話框，一個名稱為Command1的命令按鈕。然后編寫如下事件過程：Private Sub Command1_Click( )CommonDialog1.FileName =CommonDialog1.Filter=All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.TxtCommonDialog1.FilterIndex=1CommonDialog1.DialogTitle=VBTestCommonDialog1.Action=1End Sub對于這個程序，以下敘述中錯誤的是(D)(單)A.該對話框被設(shè)置為打開對話框B.在該對話框中指定的文件名為空C.該對話框的標(biāo)題為VBTestD.在該對話框中指定的默認(rèn)文件類型為文本文件(*.Txt)52035.設(shè)一個工程由兩個窗體組成，其名稱分別為Form1和Form2，在Form1上有一個名稱為Command1的命令按鈕。窗體Form1的程序代碼如下：Private Sub Command1_Click( )Dim a As Integera=10Call g(Form2,a)End SubPrivate Sub g(f As Form,x As Integer)y=Iif(x10,100,-100)f.Showf.Caption=yEnd Sub運行以上程序，正確的結(jié)果是(B)(單)A.Form1的Caption屬性值為100B.Form2的Caption屬性值為-100C.Form1的Caption屬性值為-100D.Form2的Caption屬性值為10052036.在窗體上畫一個名稱為Command1的命令按鈕，并編寫如下程序：Private Sub Command1_Click( )Dim x As IntegerStatic y As Integerx=10y=5Call f1(x,y)Print x,yEnd SubPrivate Sub f1(ByRef x1 As Integer, y1 As Integer)x1=x1+2y1=y1+2End Sub程序運行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是(D)(單)A.10 5 B.12 5C.10 7 D.12 752037.Option Base 1Private Sub Command1_Click( )Dim a(10) As IntegerDim n As Integern=3If n10 ThenCall GetArray(a,n)End IfEnd SubPrivate Sub GetArray(b( ) As Integer,n As Integer)Dim c(10) As Integerj=0For t=1 To nb(t)=Rnd*100If b(t)/2=b(t)2 Thenj=j+1c(j)=b(t)End IfNext tPrint jEnd Sub以下敘述中錯誤的是(C)(單)A.數(shù)組b中的數(shù)范圍為0-100 B.c數(shù)組下標(biāo)的下界從1開始C.GetArray過程的參數(shù)n是按值傳送的D.語句If b(t)/2=b(t)2 Then 是判斷數(shù)組b中元素的值是否為整數(shù)52038.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：Option Base 1Private Sub Command1_Click( )Dim aa= Array(1,2,3,4,5)For c=1 To Ubound(a)a(c) = a(c)+c-1Next cPrint a(3)End Sub程序運行后，單擊命令按鈕，則在窗體上顯示的內(nèi)容是(B)(單)A.4 B.5C.6 D.752039.閱讀程序：Option Base 1Private Sub Form_Click( )Dim arrDim Sum%Sum = 0arr = Array(1, 3, 5, 7, 9)For t = 1 To 5Sum = Sum + arr(t)Next tPrint SumEnd Sub程序運行后，單擊窗體，輸入結(jié)果為(B)(單)A.5 B.9C.25 D.1552040.在窗體上畫一個名稱為File1的文件列表框，并編寫如下程序：Private Sub File1_DblClick( )x=Shell(File1.FileName,1)End Sub以下關(guān)于該程序的敘述中，錯誤的是(A)(單)A.x沒有實際作用，因此可以將該語句寫為：Call Shell(File1,FileName,1)B.雙擊文件列表框中的文件，將觸發(fā)該事件過程C.要執(zhí)行的文件的名字通過File1.FileName指定D.File1中顯示的是當(dāng)前驅(qū)動器、當(dāng)前目錄下的文件52041.在窗體上畫一個名稱為Label1、標(biāo)題為VisualBasic考試的標(biāo)簽，兩個名稱分別為Command1和Command2、標(biāo)題分別為開始和停止的命令按鈕，然后畫一個名稱為Timer1的計時器控件，并把其Interval屬性設(shè)置為500。編寫如下程序：Private Sub Form_Load( )Timer1.Enabled=FalseEnd SubPrivate Sub Command1_Click( )Timer1.Enabled=TrueEnd SubPrivate Sub Timer1_Timer( )If Label1.Left Form1.Width ThenLabel1.Left = Label1.Left + 20ElseLabel1.Left=0End IfEnd Sub程序運行后，單擊開始按鈕，標(biāo)簽在窗體中移動。 對于這個程序，以下敘述中錯誤的是(A)(單)A.標(biāo)簽的移動方向為自右向左B.單擊停止按鈕后再單擊開始按鈕，標(biāo)簽從停止的位置繼續(xù)移動C.當(dāng)標(biāo)簽全部移出窗體后，將從窗體的另一端出現(xiàn)并重新移動D.標(biāo)簽按指定的時間時隔移動52042.規(guī)范地說，VB是一種(A)的開發(fā)工具(單)A.面向?qū)ο?B.面向用戶 C.面向屏幕 D.面向窗體52043.VB6設(shè)計界面包含多個視窗，控制這些視窗顯示或關(guān)閉的命令包含在(D)下拉菜單中(單)A.文件 B.工程C.編輯 D.視圖52044下面(D)操作不是激活或顯示屬性列表框的操作(單)A.按快捷鍵F4B.點擊工具欄中的屬性列表框按鈕C.選擇視圖下拉菜單的屬性窗口項D.雙擊窗體中的某一對象52045.Visual Basic程序中分隔各語句的字符是(B)(單)A. B.:C. D._52046.假定窗體的名稱(Name屬性)為Form1，則把窗體的標(biāo)題設(shè)置為VB Test的語句為(B)(單)A.Form1 = VB Test B.Caption =VB TestC.Form1.Text = VB TestD.Form1.Name =VB Test52047.下列不能打開代碼窗口的操作是(D)(單)A.雙擊窗體上的某個控件雙擊 B.雙擊窗體C.按F7鍵D.單擊窗體或控件52048.Visual Basic程序中語句行的續(xù)行符是(D)(單)A. B.:C. D. _52049.Visual Basic程序中的注釋所使用的字符是(A)(單)A. B.:C. D._52050.下列說法中正確的是：為了保存一個Visual Basic應(yīng)用程序，應(yīng)當(dāng)(D)(單)A.只保存窗體模塊文件(.frm) B.只保存工程文件(.vbp)C.分別保存工程文件和標(biāo)準(zhǔn)模塊文件(.bas)D.分別保存工程文件、窗體文件和標(biāo)準(zhǔn)模塊文件52051.為了使窗體的大小可以改變，必須把它的BorderStyle屬性設(shè)置為(B)(單)A.1 B.2C.3 D.452052.下列說法中正確的是：為了載入一個只有一個工程（此工程下有三個窗體）的Visual Basic應(yīng)用程序，應(yīng)當(dāng)(B)(單)A.只裝入窗體模塊文件(.frm)B.先裝入工程文件(.vbp)即可C.分別裝入工程文件和標(biāo)準(zhǔn)模塊文件(.bas)D.分別裝入工程文件、窗體文件和標(biāo)準(zhǔn)模塊文件52053.要使一個標(biāo)簽?zāi)軌蝻@示所需要的文本，應(yīng)設(shè)置該標(biāo)簽的(A)屬性的值(單)A.Caption B.Name C.Text D.AutoSize52054.要使一個命令按鈕上有圖形，應(yīng)該設(shè)置該按鈕的(A)屬性值，同時設(shè)置它的style屬性為1(單)A.Picture B.StyleC.DownPictureD.DisabledPicture52055.為使計時器對象每隔5秒鐘產(chǎn)生一個時鐘事件(Timer事件)，則其Interval屬性值應(yīng)設(shè)置為(D)(單)A.5 B.300C.500 D.500052056一個標(biāo)準(zhǔn)的VB應(yīng)用程序至少要包含一個(C)對象(單)A.文本框 B.標(biāo)簽框 C.窗體 D.命令按鈕52057.要使一個文本框?qū)ο竽軌蝻@示多行文字，應(yīng)設(shè)置該對象的(B)屬性值為True(單)A.Text B.MultiLine C.Style D.Visible52058.下列的(A)對象支持KeyPress事件(單)A.文本框 B.命令按鈕 C.標(biāo)簽框 D.圖像框52059.若要將窗體從內(nèi)存中卸載，其實現(xiàn)的方法或語句是(B)(單)A.Show B.UnloadC.Load D.Hide52060.以下選項中，不是VB標(biāo)準(zhǔn)控件的是(C)(單)A.命令按鈕 B.定時器 C.通用對話框 D.單選框52061.雙擊窗體中的對象后，VB將顯示的窗口是(C)(單)A.工具箱 B.項目（工程）窗口C.代碼窗口 D.屬性窗口52062.下述選項中，VB的程序設(shè)計方法是(B)(單)A.面向?qū)ο?、順序?qū)動 B.面向?qū)ο?、事件?qū)動C.面向過程、事件驅(qū)動D.面向過程、順序驅(qū)動52063.在VB中，要將一個窗體裝載到內(nèi)存進行變量初始化等預(yù)處理，但沒有顯示該窗體，應(yīng)使用的方法或語句是(C)(單)A.Show B.UnloadC.Load D.Hide52064.文本框的默認(rèn)屬性是(B)(單)A.Caption B.TextC.Name D.Top52065.標(biāo)簽?zāi)J(rèn)屬性是(A)(單)A.Caption B.TextC.Name D.Top52066.執(zhí)行以下程序段：a$=abbacddcbaFor I=6 To 2 Step -2X=Mid(a,I,I)Y=Left(a,I)z=Right(a,I)z=Ucase(X&Y&z)Next IPrint z輸出結(jié)果為(B)(單)A.ABA B.BBABBAC.ABBABA D.AABAAB52067.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下程序：Option Base 1Private Sub Command1_Click( )Dim a As Varianta=Array(1,2,3,4,5)Sum=0For I=1 To 5Sum = sum+a(I)Next Ix=Sum/5For I =1 To 5If a(I)x Then Print a(I);Next IEnd Sub程序運行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是(D)(單)A.1 2 B.1 2 3C.3 4 5 D.4 552068.假定一個工程由一個窗體文件Form1和兩個標(biāo)準(zhǔn)模塊文件Model1及Model2組成。Model1代碼如下：Public x As IntegerPublic y As IntegerSub S1( )x =1S2End SubSub S2( )y=10Form1.ShowEnd SubModel2的代碼如下：Sub Main( )S1End Sub其中Sub Main被設(shè)置為啟動過程。程序運行后，各模塊的執(zhí)行順序是(C)(單)A.Form1-Model1-Model2 B.Model1-Model2-Form1C.Model2-Model1-Form1D.Model2-Form1-Model152069.設(shè)有如下程序段：a$=beijingshanghaib$=Mid(a$,InStr(a$,g)+1)執(zhí)行上面的程序段后，變量b$的值為【shanghai】52070.以下程序段的輸出結(jié)果是【3】Num =0Do While num2num = num+1LoopPrint num52071.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click( )Move 500，500End Sub程序運行后，單擊命令按鈕，執(zhí)行的操作為(A)(單)A.命令按鈕移動到距窗體左邊界、上邊界各500的位置B.窗體移動到距屏幕左邊界、上邊界各500的位置C.命令按鈕向左、上方向各移動500D.窗體向左、上方向各移動50052072.在窗體上有若干控件，其中有一個名稱為Text1的文本框。影響Text1的Tab順序的屬性是(D)(單)A.TabStop B.Enabled C.Visible D.TabIndex52073.在窗體上畫一個名稱為List1的列表框，為了對列表框中的每個項目都能進行處理，應(yīng)使用的循環(huán)語句為(A)(單)A.For i=0 To List1.ListCount-1 . Next iB.For i=0 To ListCount-1 . Next iC.For i=1 To List1.listCount . Next iD.For i=1 To ListCount . Next i52074.以下Case語句中錯誤的是(C)(單)A.Case 0 To 10 B.Case Is10C.Case Is10 And Is50D.Case 3,5,Is1052075.以下關(guān)于圖片框控件的說法中，錯誤的是(D)(單)A.可以通過Print方法在圖片框中輸出文本B.清空圖片框控件中圖形的方法之一是加載一個空圖形C.圖片框控件可以作為容器使用D.用圖片框控件的Stretch屬性可以自動調(diào)整圖片框中圖形的大小52076.執(zhí)行語句s=Len(Mid(VisualBasic,1,6)后，s的值是(A)(單)A.Visual B.BasicC.6 D.1152077.以下敘述中錯誤的是(D)(單)A.下拉式菜單能用菜單編輯器建立B.在多窗體程序中，每個窗體都可以建立自己的菜單系統(tǒng)C.能夠?qū)Σ藛雾椀腃lick事件編程D.如果把一個菜單項的Enabled屬性設(shè)置為False，則該菜單項不可見52078.在窗體上畫一個命令按鈕，其名稱為Command1，然后編寫如下事件過程：Private Sub Command1_Click( )a = 12345Print Format$(a, 000.00)End Sub程序運行后，單擊命令按鈕，窗體上顯示的是(B)(單)A.123.45 B.12345.00C.12345 D.00123.4552079.以下關(guān)于函數(shù)過程的敘述中，正確的是(A)(單)A.函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關(guān)系B.在函數(shù)過程中，過程的返回值可以有多個C.當(dāng)數(shù)組作為函數(shù)過程的參數(shù)時，既能以傳值方式傳遞，也能以傳址方式傳遞D.如果不指明函數(shù)過程參數(shù)的類型，則該參數(shù)不能有數(shù)據(jù)類型的參數(shù)52080.以下關(guān)于變量作用域的敘述中，正確的是(C)(單)A.用dim定義變量是靜態(tài)變量B.靜態(tài)變量必須在標(biāo)準(zhǔn)模塊中聲明C.用public定義變量是全局變量D.Static類型變量的作用域范圍是它所在的窗體或模塊文件52081.確定一個控件在窗體上的位置的屬性是(C)(單)A.Width和HeightB.Width或HeightC.Top和LeftD.Top或Left52082.在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click( )Text1.Text = VisualMe.Text1 = BasicText1 = Program End Sub程序運行后，如果單擊命令按鈕，則在文本框中顯示的是(C)(單)A.Visual B.BasicC.Program D.出錯52083.以下關(guān)系表達(dá)式中，其值為False的是(A)(單)A.ABCAbCB.thetheyC.VISUAL=UCase(Visual)D.IntegerInt52084.語句Print int(5/4*65) Mod 2的輸出結(jié)果是(B)(單)A.0 B.1C.2 D.352085.在窗體上畫一個文本框、一個標(biāo)簽和一個命令按鈕，其名稱分別為Text1、Label1和Command1，然后編寫如下兩個事件過程：Private Sub Command1_Click( )strText = InputBox(請輸入)Text1.Text = strTextEnd SubPrivate Sub Text1_Change( )Label1.Caption = Right(Trim(Text1.Text), 3)End Sub程序運行后，單擊命令按鈕，如果在輸入對話框中輸入abcdef，則在標(biāo)簽中顯示的內(nèi)容是(D)(單)A.空 B.abcdefC.abc D.def52086.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click( )x = -5If x 0 Theny = x 2Elsey = xEnd IfPrint yEnd Sub程序運行后，單擊命令按鈕，窗體上顯示的是(A)(單)A.-5 B.25C.1 D.-152087.一個工程中含有窗體Form1、Form2和標(biāo)準(zhǔn)模塊Model1，如果在Form1中有語句Pubilc X AsInteger，在Model1中有語句Pubilc Y As Integer，則以下敘述中正確的是(A)(單)A.變量X、Y的作用域相同 B.Y的作用域是Model1C.在Form1的任何地方中可以直接使用YD.在Form2中可以直接使用X和Y52088.在窗體上畫一個名稱為Drive1的驅(qū)動器列表框，一個名稱為Dir1的目錄列表框。當(dāng)改變當(dāng)前驅(qū)動器時，目錄列表框應(yīng)該與之同步改變。設(shè)置兩個控件同步的命令放在一個事件過程中，這個事件過程是(A)(單)A.Drive1_Change B.Drive1_ClickC.Dir1_ClickD.Dir1_KeyPress52089.在窗體上畫一個命令按鈕（其NAME屬性為Command1），然后編寫如下代碼：Option Base 1Private Sub Command1_Click( )Dim as = 0a = Array(1, 2, 3, 4)For I = 4 To 1 Step -1s = s + a(I)Next IPrint sEnd Sub運行上面的程序，單擊命令按鈕，其輸出結(jié)果是(D)(單)A.4321 B.1234C.34 D.1052090.在窗體上畫一個名稱為Text1的文本框，編寫以下代碼：Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii 65 Or KeyAscii 90 ThenmsgBox 請輸入大寫字母KeyAscii = 0End IfEnd Sub以下能說明該事件過程正確是(A)(單)A.要求文本框只能接收大寫字母的輸入B.要求文本框只能接收小寫字母的輸入C.要求文本框只能接收數(shù)字的輸入D.要求文本框只能接收65到90之間的數(shù)值的輸入52091.在窗體上畫一個名稱為Text1的文本框，一個名稱為Command1的命令按鈕，然后編寫如下事件過程和通用過程：Private Sub Command1_Click( )n = Val(Text1.Text)If n2 = n/2 Thenf = f1(n)Elsef = f2(n)End IfPrint f; nEnd SubPublic Function f1(ByRef x)x=x*xf1=x+xEnd FunctionPublic Function f2(ByVal x)x=x*xf2=x+x+xEnd Function程序運行后，在文本框中輸入3，然后單擊命令按鈕，窗體上顯示的是(D)(單)A.72 36 B.108 36C.72 6 D.27 352092.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click( )c = 1234For i = 1 To 4c1 = Trim(Str( )Printc1Next iEnd Sub程序運行后，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容1121231234則在下劃線處應(yīng)填入的內(nèi)容為(B)(單)A.Right(c1,i) B.Left(c1,i)C.Mid(c1,i,1) D.Mid(c1,i,i)52093.在窗體上畫一個名稱為Command1的命令按鈕和一個名稱為Text1的文本框，然后編寫如下事件過程：Private Sub Command1_Click( )n = Val(Text1.Text)For i = 2 To nFor j = 2 To sqr(i)If i Mod j = 0 Then Exit ForNext jIf j Sqr(i) Then Print iNext iEnd Sub該事件過程的功能是(C)(單)A.輸出n以內(nèi)的奇數(shù)B.輸出n以內(nèi)的偶數(shù)C.輸出n以內(nèi)的素數(shù)D.輸出n以內(nèi)能被j整除的數(shù)52094.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下通用過程和命令按鈕的事件過程：Private Function f(m As Integer)If m Mod 2 = 0 Thenf = mElsef = 1End IfEnd FunctionPrivate Sub Command1_Click( )Dim i As Integers = 0For i = 1 To 5s = s + f(i)NextPrint sEnd Sub程序運行后，單擊命令按鈕，在窗體上顯示的是(C)(單)A.11 B.10C.9 D.852095.在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click( )Dim array1(10, 10) As IntegerDim i As Integer, j As IntegerFor i = 1 To 3For j = 2 To 4array1(i, j) = i + jNext jNext iText1.Text = array1(2, 3) + array1(3, 4)End Sub程序運行后，單擊命令按鈕，在文本框中顯示的值是(D)(單)A.15 B.14C.13 D.1252096.Visual Basic應(yīng)用程序中標(biāo)準(zhǔn)模塊文件的擴展名是【BAS或.BAS】(注意不要寫點)。52097.在菜單編輯器中建立一個菜單，其主菜單項的名稱為mnuEdit，Visible屬性為False，程序運行后，如果用鼠標(biāo)右鍵單擊窗體，則彈出與mnuEdit相應(yīng)的菜單。Private Sub Form_ 【mousedown】 (Button As Integer, Shift As Integer, X As Single, Y As Single)If Button=2 Thenpopupmenu mnuEditEnd IfEnd Sub52098.在菜單編輯器中建立一個菜單，其主菜單項的名稱為mnuEdit，Visible屬性為False，程序運行后，如果用鼠標(biāo)右鍵單擊窗體，則彈出與mnuEdit相應(yīng)的菜單。以下是實現(xiàn)上述功能的程序，請?zhí)羁?。Private Sub Form mousedown (Button As Integer, Shift As Integer, X As Single, Y As Single)If Button=2 Then【popupmenu】 mnuEditEnd If52099.為了使計時器控件Timer1每隔0.5秒觸發(fā)一次Timer事件，應(yīng)將Timer1控件的【Interval】屬性設(shè)置為500。52100.為了使計時器控件Timer1每隔0.5秒觸發(fā)一次Timer事件，應(yīng)將Timer1控件的Interval屬性設(shè)置為【500】。52101.與數(shù)學(xué)表達(dá)式ln(a+b)/(3x)+5 對應(yīng)的Visual Basic表達(dá)式是【log(a+b)/(3*x)+5或(log(a+b)/(3*x)+5】*52102.將C盤根目錄下的圖形文件moon.jpg裝入圖片框Picture1的語句是【】52103.在窗體上畫一個名稱為Text1的文本框，然后畫三個單選按鈕，并用這三個單選按鈕建立一個控件數(shù)組，名稱為Option1，程序運行后，如果單擊某個單選按鈕，則文本框中的字體將根據(jù)所選擇的單選按鈕切換。Private Sub Option1_Click(Index As Integer)Select Case 【Index】Case 0a = 宋體Case 1a = 黑體Case 2a = 楷體GB2312End Selecttext1.fontname=aEnd Sub52104.在窗體上畫一個名稱為Text1的文本框，然后畫三個單選按鈕，并用這三個單選按鈕建立一個控件數(shù)組，名稱為Option1，程序運行后，如果單擊某個單選按鈕，則文本框中的字體將根據(jù)所選擇的單選按鈕切換。Private Sub Option1_Click(Index As Integer)Select Case indexCase 0a = 宋體Case 1a = 黑體Case 2a = 楷體GB2312End Selecttext1.【fontname】=aEnd Sub52105.在窗體上畫兩個組合框，其名稱分別為Combo1、Combo2，然后畫兩個標(biāo)簽，名稱分別為Label1、Label2。程序運行后，如果在某個組合框中選擇一個項目，則把所選中的項目在其下面的標(biāo)簽中顯示出來。Private Sub Combo1_Click( )Call ShowItem(Combo1, Label1)End SubPrivate Sub Combo2_Click( )Call ShowItem(Combo2, Label2)End SubPublic Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)【tmplabel】.Caption =tmpCombo.TextEnd Sub52106.在窗體上畫兩個組合框，其名稱分別為Combo1、Combo2，然后畫兩個標(biāo)簽，名稱分別為Label1、Label2，程序運行后，如果在某個組合框中選擇一個項目，則把所選中的項目在其下面的標(biāo)簽中顯示出來。Private Sub Combo1_Click( )Call ShowItem(Combo1, Label1)End SubPrivate Sub Combo2_Click( )Call ShowItem(Combo2, Label2)End SubPublic Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)tmpLabel.Caption =【tmpcombo】.TextEnd Sub52107.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click( )n = 5f = 1s = 0For c = 1 To nf = f*【7】s = s + fNext cPrint sEnd Sub該事件過程的功能是計算1!+2!+3!+n!的值。52108.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下程序：Option Base 1Private Sub Command1_Click( )Dim a(10) As IntegerFor I = 1 To 10a(I) = INext ICall【swap】a( )For I = 1 To 10Print a(I);NextEnd SubSub swap(b( ) As Integer)n = ubound(b)For I = 1 To n / 2t = b(I)b(I) = b(n)b(n) = tn=n-1Next IEnd Sub上述程序的功能是，通過調(diào)用過程swap，調(diào)換數(shù)組中數(shù)值的存放位置，即a(1)與a(10)的值互換，a(2)與a(9)的值互換，a(5)與a(6)的值互換。52109.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下程序：Option Base 1Private Sub Command1_Click( )Dim a(10) As IntegerFor I = 1 To 10a(I) = INext ICall swap（a( )）For I = 1 To 10Print a(I);NextEnd SubSub swap(b( ) As Integer)n =【ubound(b)】For I = 1 To n / 2t = b(I)b(I) = b(n)b(n) = tn=n-1Next IEnd Sub上述程序的功能是，通過調(diào)用過程swap，調(diào)換數(shù)組中數(shù)值的存放位置，即a(1)與a(10)的值互換，a(2)與a(9)的值互換，a(5)與a(6)的值互換。52110.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下程序：Option Base