VB考試題庫二級習題(含答案)

1、精品文檔VB考試一1、能夠獲得一個文本框中被選取文本的內(nèi)容的屬性是 。A : SelStart B ： SelLength C： SelText D： Text參考答案：C2、在窗體上畫一個文本框，其名稱為 Textl,為了在程序運行后隱藏該文本框，應(yīng)當使用的 語句為：。A ： Textl.Enabled = False B： Textl.HideC ： Text1.ClearD ： Text1.Visible = False參考答案：D3、對于語句If x=1 Then y=1,下列說法正確的是 A : x=1和y=1均為賦值語句B ： x=1和y=1均為關(guān)系表達式C: x=1為賦值語句，y

2、=1為關(guān)系表達式D ： x=1為關(guān)系表達式，y=1為賦值語句參考答案：D4、以下變量名中， 是不符合Visual Basic的命名規(guī)范的。A : _mnu_Open_234 B : Abc901 C: price_ D ： K 參考答案：A5、MsgBox函數(shù)返回值的類型是 。A :數(shù)值或字符串 B:字符串 C:變體 D:整型數(shù)值 參考答案：D6、VB 一共有設(shè)計、運行和中斷三種模式，要使用調(diào)試工具應(yīng)該A:進入中斷模式 B:進入運行模式C:進入設(shè)計模式D:不用進入任何模式參考答案：A7、設(shè)a=6,則執(zhí)行x=IIF(a>5,-1,0) 后，x 的值為。A: -1 B: 6 C: 0 D:

3、5參考答案：A8、可以同時刪除字符前導(dǎo)和尾部空白的函數(shù)是 A ： Mid B ： Rtrim C： Trim D ： Ltrim參考答案：C9、以下語句的輸出結(jié)果是 。Print Format$("32548.5","000,000.00")A : 32,548.5 B: 32548.5C: 032,548.50 D: 32,548.50參考答案：C10、設(shè)有如下聲明：Dim X As Integer如果Sgn(X)的值為-1,則X的值是。A :等于0的整數(shù) B:大于0的整數(shù) C:整數(shù) D:小于0的整數(shù) 參考答案：D11、在窗體上畫一個命令按鈕，然后編寫

4、如下事件過程:Private Sub Command1_Click()For i = 1 To 4x = 4Forj = 1 To 3x = 3For k = 1 To 2x = x + 6Next kNext jNext iPrint xEnd Sub程序運行后，單擊命令按鈕，輸出結(jié)果是 。參考答案：15# 15 #15 #1512、執(zhí)行下面的程序段后，S的值為。s=5For i=2.6 To 4.9 Step 0.6s=s+1Next i參考答案：913、下列表達式有錯誤，正確的寫法應(yīng)該是。(a+b)+c/80-5 (d+e)參考答案：(a+b+c)/80-5/(d+e)# (a+b+c)

5、 /80-5/ (d+e)14、表示x是5的倍數(shù)或是9的倍數(shù)的邏輯表達式為 參考答案：x Mod 5 = 0 Or x Mod 9 = 0#x Mod 9 = 0 Or x Mod 5 = 015、以下程序的功能是：從鍵盤上輸入若干個數(shù)字，當輸入負數(shù)時結(jié)束輸入，統(tǒng)計出若干數(shù) 字的平均值，輸出結(jié)果。請?zhí)羁?。Private Sub Form_click()Dim x, y As SingleDim z As Integerx = InputBox("Enter a score")Do while x>=0y = y + xz = z + 1x = InputBox(&qu

6、ot;Enter a score") LoopIf z = 0 Thenz = 1End Ify =Print yEnd Sub參考答案：y/zVB考試二1、列表框中的列表項的數(shù)目可以通過以下哪個屬性的值獲得 。A ： Listindex B ： ListCount C： Count D ： Index參考答案：B2、在窗體上畫一個名稱為Listl的列表框，一個名稱為Labell的標簽。列表框中顯示若干城市的名稱。當單擊列表框中的某個城市名時，在標簽中顯示選中城市的名稱。下列能正確實現(xiàn)上述功能的程序是。A : Private Sub List1_Click()Label1.Capti

7、on=List1.TextEnd SubB : Private Sub List1_Click()Label1.Name=List1.ListIndexEnd SubC: Private Sub List1_Click()Label1.Name=List1.TextEnd SubD： Private Sub List1_Click()Label1.Caption=List1.ListindexEnd Sub參考答案：A3、在列表框中當前被選中的列表項的序號是由下列哪個屬性表示A ： Listindex B： Index C： List D： Tabindex參考答案：A4、為了清除列表框中的所

8、有內(nèi)容，應(yīng)使用的方法是： 。A: Clear B： Remove C： Removeitem D： Cls參考答案：A5、在窗體上畫一個名稱為Listl的列表框，為了對列表框中的每個項目都能進行處理，應(yīng)使用的循環(huán)語句為。A : For i=1 To Listl.ListCountNEXTB ： For i=0 To List1.Count-1NEXTC: For i=0 To List1.ListCount-1NEXTD ： For i=1 To Listl.CountNEXT參考答案：C6、設(shè)有如下程序：Option Base 0Private Sub Form_Click()Dim aDi

9、m i As Integera = Array(1,2, 3, 4, 5, 6, 7, 8, 9)Fori = 0 To 3Print a(5 - i);NextEnd Sub程序運行后，單擊窗體，則在窗體上顯示的是 。A : 6 5 4 3 B: 5 4 3 2 C: 4 3 2 1 D:7 6 5 4參考答案：A7、設(shè)執(zhí)行以下程序段時依次輸入1、3、5,執(zhí)行結(jié)果為 。Dim a(4) As Integer, b(4) As IntegerFor K = 0 To 2a(K + 1) = Val(InputBox("請輸入數(shù)據(jù)")b(3 - K) = a(K + 1)Ne

10、xt KPrint b(K)A: 0B: 3 C:5 D： 1參考答案：D8、在窗體上畫一個名稱為Commandl的命令按鈕，然后編寫如下程序：Private Sub Command1_Click()Dim i As Integer,j As IntegerDim a(10,10) As IntegerFor i=1 To 3For j=1 To 3a(i,j)=(i-1)*3+jPrint a(i,j);Next jPrintNext iEnd Sub程序運行后，單擊命令按鈕，窗體上顯示的是 。A :1 2 34 5 67 8 9B: 2 3 43 4 54 5 6C: 1 4 72 5 8

11、3 6 9D: 1 2 32 4 63 6 9參考答案：A9、用下面的語句所定義的數(shù)組的元素個數(shù)是： 。Dim arr(3 To 5,-2 to 2)A: 24 B: 12 C: 15 D: 20參考答案：C10、下列 語句可以為動態(tài)數(shù)組分配實際元素個數(shù)。A ： static 語句 B ： Dim 語句 C： public 語句 D： ReDim 語句 參考答案：D11、假定程序中有以下語句：answer = MsgBox("String1","String2","String3",2)執(zhí)行該語句后，將顯示一個信息框，此時如果單擊&q

12、uot;確定"按鈕，則answer的值為： A ： String3 B： String2 C： String1 D ： 1 參考答案：D12、設(shè)有語句x=InputBox("輸入數(shù)值","0","示例")程序運行后，如果從鍵盤上輸入數(shù)值10并按回車鍵，則下列敘述中正確的是 A: 0是默認值B:變量X的值是字符串"10"C:在InputBox對話框標題欄中顯示的是"示例"D ：變量X的值是數(shù)值10參考答案：B13、以下程序段運行的結(jié)果是： 。Dim a(-1 To 5) As Boole

13、anDim flag As Booleanflag = FalseDim i As IntegerDim j As IntegerDo Until flag = TrueFor i = -1 To 5j = j + 1If a(i) = False Thena(i) = TrueExit ForEnd IfIf i = 5 Thenflag = TrueEnd IfNextLoopPrint jA: 20 B: 7 C: 8 D: 35參考答案：D14、設(shè)a=5, b=6, c=7 , d=8 ,則執(zhí)行下列語句后，x的值為： 。x= IIF(a>b) And (c<d),10,20

14、)A: 300 B: 20 C: 30 D: 10參考答案：B15、要將一個組合框設(shè)置為簡單組合框(Simple Combo ),則應(yīng)將其Style屬性設(shè)置為 A: 0 B: 1 C: 3 D: 2參考答案：BVB考試三1、設(shè)組合框Combo1中有3個項目，則以下能刪除最后一項的語句是 。A : ComboI.Removeltem Combol.ListcountB : ComboI.Removeltem 2C: ComboI.Removeltem 3D ： ComboI.Removeltem Text參考答案：B 題分：62、在窗體上畫一個命令按鈕，其名稱為 Commandl ,然后編寫如下

15、程序:Function Func(ByVal x As Integer, y As Integer)y = x * yIf y > 0 ThenFunc = xElseFunc = yEnd IfEnd FunctionPrivate Sub Command1_Click()Dim a As Integer, b As Integera = 3b = 4c = Func(a, b)Print "a=" aPrint "b=" bPrint "c=" cEnd Sub程序運行后，單擊命令按鈕，其輸出結(jié)果為： 。A : a= 3b=

16、 4c= 12B: a= 13b= 12c= 12C: a= 3b= 4c= 3D： a= 3b= 12c= 3參考答案：D 題分：63、單擊命令按鈕時，下列程序代碼的執(zhí)行結(jié)果為 。Public Sub Procl(n As Integer, ByVal m As Integer)n = n Mod 10m = m / 10End SubPrivate Sub Command1_Click()Dim x As Integer, y As Integer x = 12: y = 34Call Procl(x, y)Print x; yEnd SubA :12 3 B: 2 3 C: 12 34

17、D: 2 34參考答案：D題分：64、以下關(guān)于函數(shù)過程的敘述中，正確的是 。A:在函數(shù)過程中，過程的返回值可以有多個B :函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關(guān)系C:當數(shù)組作為函數(shù)過程的參數(shù)時，既能以傳值方式傳遞，也能以傳址方式傳遞D:如果不指明函數(shù)過程參數(shù)的類型，則該參數(shù)沒有數(shù)據(jù)類型參考答案：B題分：65、以下說法錯誤的是。A:函數(shù)過程可以帶參數(shù)B:子過程沒有返回值C:函數(shù)過程沒有返回值D:子過程可以帶參數(shù)參考答案：C題分：66、在窗體上畫一個命令按鈕(名稱為 Commandl),然后編寫如下事件過程:Private Sub Command1_Click()Dim b As Intege

18、r b = b + 1End Sub運行程序，三次單擊命令按鈕后，變量b的值是： 。A: 2 B: 1 C: 0 D: 3參考答案：B題分：67、假定有以下函數(shù)過程：Function Fun(S As String) As StringDim s1 As StringFor i = 1 To Len(S) s1=UCase(Mid(S,i,1)+s1Next iFun = s1End Function在窗體上畫一個命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click()Dim Str1 As String,Str2 As StringStr1 = InputBo

19、x("請輸入一個字符串”)Str2= Fun(Strl)Print Str2End Sub程序運行后，單擊命令按鈕，如果在輸入對話框中輸入字符串"abcdefg"則單擊"確定"按鈕后在窗體上的輸出結(jié)果為。A: GFEDCBAB: ABCEDFGC: gfedcbaD : abcdefg參考答案：A題分：68、Sub過程與Function過程最根本的區(qū)別是。A:兩種過程參數(shù)的傳遞方式不同B : Function過程可以有參數(shù)，Sub過程不可以C: Sub過程可以使用 Call語句或直接使用過程名調(diào)用，而Function過程不可以D ： Sub過程

20、的過程名不能返回值，而 Function過程能通過過程名返回值參考答案：D題分：69、在代碼中定義了一個子過程:Sub P(a,b)End Sub下面 調(diào)用該過程的格式是正確的。A ： Call PB: Call P 10,20C: P(10,20)D： Call P(10,20)參考答案：D題分：610、在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下程序：Private Sub Command1_Click()Static X As IntegerStatic 丫 As Integer ClsY = 1Y = Y + 5X = 5 + XPrint X, YEnd Sub程序運

21、行時，三次單擊命令按鈕Commandl后，窗體上顯示的結(jié)果為 A: 1515B: 156C: 1516D: 56參考答案：B題分：611、設(shè)有以下循環(huán)結(jié)構(gòu)Do循環(huán)體Loop While< 條件 >則以下敘述中錯誤的是。A :循環(huán)體中可以使用Exit Do語句B:"條件"可以是關(guān)系表達式、邏輯表達式或常數(shù)C：若"條件"是一個為。的常數(shù)，則一次也不執(zhí)行循環(huán)體D：如果"條件"總是為True,則不停地執(zhí)行循環(huán)體參考答案：C題分：612、在窗體上畫一個名稱為Commandl的命令按鈕，然后編寫如下通用過程和命令按鈕的事件過程：Pri

22、vate Function fun(ByVal m As Integer)If m Mod 2 = 0 Thenfun = 2Elsefun = 1End IfEnd FunctionPrivate Sub Command1_Click()Dim i As Integer, s As Integers = 0For i = 1 To 5s = s + fun(i)NextPrint sEnd Sub程序運行后，單擊命令按鈕，在窗體上顯示是 。A: 7 B: 6 C: 8 D: 9參考答案：A題分：6VB考試四1、某人編寫了如下程序，用來求 10個整數(shù)(整數(shù)從鍵盤輸入)中的最大值：Private

23、 Sub Command1_Click()Dim a(10) As Integer,max As IntegerFor k=1 To 10a(k)=InputBox("輸入一個整數(shù)")Next kmax=0For k=1 To 10If a(k)>max Then max=a(k)End IfNext kPrint maxEnd Sub運行程序時發(fā)現(xiàn)，當輸入10個正數(shù)時，可以得到正確結(jié)果，但輸入10個負數(shù)時結(jié)果是錯誤的，程序需要修改。下面的修改中可以得到正確運行結(jié)果的是 。A :把 max=a(k)改為 a(k尸maxB:把 If a(k)>max Then 改

24、為 If a(k)<max ThenC:把第2個循環(huán)語句 For k=1 To 10改為For k=2 To 10D：把 max=0 改為 max=a(10)參考答案：D2、設(shè)有語句：Open "d:Test.txt" For Output As #1 ,以下敘述中錯誤的是 。A：執(zhí)行該語句后，就可以通過Print#語句向文件Test.txt中寫入信息B:用該語句建立的文件的文件號為1C:該語句打開d盤根目錄下一個已存在的文件Test.txt,之后就可以從文件中讀取信息D ：若d盤根目錄下無 Test.txt文件，則該語句創(chuàng)建此文件參考答案：C3、工程中有2個窗體，名

25、稱分別為 Form1、Form2 , Form1為啟動窗體，該窗體上有命令按 鈕Command1。要求程序運行后單擊該命令按鈕時顯示Form2 ,則按鈕Click事件過程應(yīng)該A : Private Sub Command1_Click() Form2.LoadEnd SubB : Private Sub Command1_Click() Form2.VisibleEnd SubC: Private Sub Command1_Click()Load Form2End SubD ： Private Sub Command1_Click() Form2.ShowEnd Sub參考答案：D4、在窗體上

26、畫一個名為Command1的命令按鈕，然后編寫如下代碼:Option Base 1Private Sub Command1_Click()Dim aa=Array(1,2,3,4)j=1For i=4 To 1 Step -1s=s+a(i)*jj=j*10Next iPrint sEnd Sub運行上面的程序，其輸出結(jié)果是 。A : 12B: 1234C: 34D: 4321參考答案：B5、設(shè)在窗體中有一個名稱為List1的列表框，其中有若干個項目(如圖) 。要求選中某一項后單擊Command1按鈕，就刪除選中的項，則正確的事件過程是 。A : Private Sub Command1_Cl

27、ick()List1.Clear List1.ListIndexEnd SubB : Private Sub Command1_Click()List1.ClearEnd SubC: Private Sub Command1_Click()List1.RemoveItemList1.ListIndexEnd SubD ： Private Sub Command1_Click()List1.RemoveItemEnd Sub參考答案：C6、窗體上有一個名稱為Frame1的框架(如圖)，若要把框架上顯示的"Frame1"改為漢字"框架"，下面正確的語句是。A

28、 : Frame1.Caption="框架"B : Frame1.Name="框架"C: Frame1.Text="框架"D ： Frame1.Value="框架"參考答案：A7、設(shè)窗體上有一個圖片框Picture1 ,要在程序運行期間裝入當前文件夾下的圖形文件File1.jpg ,能實現(xiàn)此功能的語句是 。A : Call LoadPicture("File1.jpg")B : Picture1.Picture=LoadPicture("File1.jpg")C: LoadP

29、icture("File1.jpg")D ： Picture1.Picture="File1.jpg"參考答案：B8、在窗體上畫一個名稱為Timeri的計時器控件，要求每隔0.5秒發(fā)生一次計時器事件，則以下正確的屬性設(shè)置語句是 。A: Timer1.Interval=50B ： Timer1.Interval=5C ： Timer1.Interval=0.5D ： Timer1.Interval=500參考答案：D9、在窗體上畫一個通用對話框，其名稱為 CommonDialogl ,然后畫一個命令按鈕，并編寫 如下事件過程：Private Sub Com

30、mand1_Click()CommonDialog1.Filter="All Files(*.*)|*.*|Text Files" &_(*.txt)|*.txt|Executable Files(*.exe)|*.exeCommonDialog1.FilterIndex=3CommonDialogl.ShowOpenMsgBox CommonDialogi.FileNameEnd Sub程序運行后，單擊命令按鈕，將顯示一個"打開"對話框，此時在"文件類型”框中顯示的是A ： Text Files(*.txt)B: AllFiles(*

31、.*)C: Executable Files(*.exe)D：不確定參考答案：C10、在窗體上畫一個名稱為Commandl命令按鈕，然后編寫如下事件過程:Private Sub Command1_Click()c = "ABCD"For n = 1 To 4PrintNextEnd Sub程序運行后，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容DCDBCDABCD則在 處填入的內(nèi)容為。A: Left(c,n) B： Right(c,n) C: Mid(c,n,n) D： Mid(c,n,1) 參考答案：B11、在窗體上畫一個名稱為Labell、標題為"VisualBas

32、ic考試"的標簽，兩個名稱分別為Commandl和Command2、標題分別為"開始"和"停止"的命令按鈕，然后畫一個名稱為 Timeri 的計時器控件，并把其 Interval屬性設(shè)置為500,如圖所示。 編寫如下程序：Private Sub Form_Load()Timer1.Enabled=FalseEnd SubPrivate Sub Command1_Click()Timer1.Enabled=TrueEnd SubPrivate Sub Command2_Click() Timerl.Enabled = FalseEnd SubPr

33、ivate Sub Timer1_Timer()If Label1.Left<Width ThenLabell.Left = Labell.Left + 20ElseLabel1.Left=0End IfEnd Sub程序運行后，單擊"開始"按鈕，標簽在窗體中移動。對于這個程序，以下敘述中錯誤的是 。A:單擊"停止"按鈕后再單擊"開始"按鈕，標簽從停止的位置繼續(xù)移動B:標簽的移動方向為自右向左C:當標簽全部移出窗體后，將從窗體的另一端出現(xiàn)并重新移動D:標簽按指定的時間時隔移動參考答案：B12、執(zhí)行下列語句strInput=Inp

34、utBox("請輸入字符串","字符串對話框","字符串")將顯示輸入對話框。此時如果直接單擊"確定"按鈕，則變量strInput的內(nèi)容是 。A ："請輸入字符串" B:空字符串C:"字符串" D："字符串對話框"參考答案：C13、假定在圖片框 Picturel中裝入了一個圖形，為了清除該圖形(不刪除圖片框)，應(yīng)采用的正確方法是。A :執(zhí)行語句 Picture1.Picture =""B :執(zhí)行語句 Picturel.Picture =

35、 LoadPicture ("")C:選擇圖片框，然后按 Del鍵D：選擇圖片框，在屬性窗口中選擇 Picture屬性條，然后按回車鍵 參考答案：B14、在窗體上畫一個命令按鈕和一個文本框，名稱分別為 Commandl和Textl ,然后編寫如 下程序：Private Sub Command1_Click()a=InputBox("請輸入日期(1 31)") t="旅游景點：”& IIf ( a > 0 And a <= 10,"長城","")_& IIf ( a >10

36、 And a <= 20,"故宮","")_& IIf ( a > 20 And a <= 31,"頤和園",”") Text1.Text = tEnd Sub程序運行后，如果從鍵盤上輸入16,則在文本框顯示的內(nèi)容是 。A:旅游景點：長城頤和園 B:旅游景點：長城故宮C:旅游景點：頤和園 D:旅游景點：故宮 參考答案：D15、若變量a未事先定義而直接使用(例如：a=0),則變量a的類型是 。A ： Variant B： StringC： Boolean D ： Integer參考答案：A16、有如下

37、程序：Private Sub Form_Click()Dim i As Integer, sum As Integersum = 0For i = 2 To 10If i Mod 2 <> 0 And i Mod 3 = 0 Then sum = sum + iEnd If Next i Print sumEnd Sub程序運行后，單擊窗體，輸出結(jié)果為 。A : 30 B: 12 C: 24 D: 18 參考答案：B17、以下能從字符串"VisualBasic"中直接取出子字符串"Basic"的函數(shù)是。 A : String B: Mid C

38、: Left D ： Instr參考答案：B18、設(shè)窗體上有一個列表框控件Listl ,含有若干列表項。以下能表示當前被選中的列表項內(nèi)容的是。A: Listl.ListIndexB: Listl.ListC: Listl.TextD： Listl.Index參考答案：C19、設(shè) a=5,b=10,則執(zhí)行 c = Int(b - a) * Rnd + a) + 1 后，c值的范圍為 A: 610B: 69C: 510D: 59參考答案：A20、在窗體上有1個名為Cd1的通用對話框，為了在運行程序時打開保存文件對話框，則 在程序中應(yīng)使用的語句是 。A ： Cd1.Action=2B ： Cd1.S

39、howSave=TrueC ： Cd1.Action=1D： Cd1.ShowSave=0參考答案：A21、下面可以正確定義 2個整型變量和1個字符串變量的語句是 。A : Dim a As Integer,b,c As StringB : Dim a%,b$,c As StringC: Dim n,m As Integer.s As StringD ： Dim x%,y As Integer,z As String參考答案：DCommand1和Text1 ,把文本框22、在窗體上畫一個命令按鈕和一個文本框，其名稱分別為 的Text屬性設(shè)置為空白，然后編寫如下事件過程：Private Sub

40、Command1_Click()a = InputBox("Enter an integer")b = InputBox("Enter an integer")Text1.Text = b + aEnd Sub程序運行后，單擊命令按鈕，如果在輸入對話框中分別輸入8和10,則文本框中顯示的內(nèi)容是 OA :出錯B: 18C: 810D: 108參考答案：D23、在窗體上畫一個名稱為CommonDialog1的通用對話框，一個名稱為 Command1的命令按鈕。然后編寫如下事件過程：Private Sub Command1_Click()CommonDialo

41、g1.FileName =""CommonDialog1.Filter="All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt”CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle="VBTest"CommonDialog1.Action=1End Sub對于這個程序，以下敘述中錯誤的是 。A:在該對話框中指定的默認文件類型為文本文件(*.Txt)B:在該對話框中指定的默認文件名為空C:該對話框的標題為VBTestD:該對話框被設(shè)置為“打開”對話框參考答案：A24、

42、設(shè)在窗體Forml上有一個列表框 Listl ,其中有若干個項目。要求單擊列表框中某一項時，把該項顯示在窗體上，正確的事件過程是 。A : Private Sub List1_Click()Print Form1.TextEnd SubB : Private Sub Form1_Click() Print List1.TextEnd SubC: Private Sub List1_Click()Print List1.TextEnd SubD ： Private Sub Form1_Click()List1.Print List1.TextEnd Sub參考答案：C25、在窗體上從左到右有 T

43、ext1、Text2兩個文本框(見圖)，要求運行程序時在 Text1中輸入1個分數(shù)后按回車鍵，則判斷分數(shù)的合法性，若分數(shù)為0100中的1個數(shù)，則光標移到Text2中；否則光標不動，并彈出對話框"分數(shù)錯"。下面程序中正確的是 A : Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then '回車符的 ASCII 碼是 13a=Val(Text1)If a<0 And a>100 ThenText2.SetFocusElseText1.SetFocus:MsgBox("分

44、數(shù)錯")End IfEnd IfEnd SubB : Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then '回車符的 ASCII 碼是 13a=Val(Text1)If a>=0 Or a<=100 ThenText2.SetFocusElseText1.SetFocus:MsgBox("分數(shù)錯")End IfEnd IfEnd SubC: Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13

45、Then '回車符的 ASCII 碼是 13a=Val(Text1)If a>=0 And a<=100 ThenText2.SetFocusElseText1.SetFocus:MsgBox("分數(shù)錯")End IfEnd IfEnd SubD ： Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then '回車符的 ASCII 碼是 13a=Val(Text1)If a>=0 And a<=100 ThenText1.SetFocusElseText2.S

46、etFocus:MsgBox("分數(shù)錯")End IfEnd IfEnd Sub參考答案：C26、假定通用對話框的名稱為CommonDialogl ,命令按鈕的名稱為 Commandl,則單擊命令按鈕后，能使打開白對話框的標題為"New Title"的事件過程是。A : Private Sub Command1_Click()CommonDialogl.DialogTitle = "New Title"CommonDialog1.ShowPrinterEnd SubB : Private Sub Command1_Click()Com

47、monDialog1.DialogTitle = "New Title"CommonDialog1.ShowColorEnd SubC: Private Sub Command1_Click()CommonDialog1.DialogTitle = "New Title"CommonDialog1.ShowOpenEnd SubD ： Private Sub Command1_Click()CommonDialog1.DialogTitle = "New Title"CommonDialog1.ShowFontEnd Sub參考答案：

48、C27、在窗體上畫一個通用對話框，程序運行后，通過 ShowOpen方法顯示"打開"對話框，要 求在該對話框的"文件類型”欄中只顯示擴展名為 DOC的文件，則對通用對話框的 Filter屬 性的正確設(shè)置是：。A : "(*.DOC)*.DOC" B: "(*.DOC)|(.DOC)" C: "(*.DOC)|*.DOC" D: "(*.DOC)|*.DOC" 參考答案：C28、以下說法中正確的是 。A：只有當某個窗體為當前活動窗體時，才能打開菜單編輯器B:任何時候都可以通過執(zhí)行&quo

49、t;工具"菜單中的"菜單編輯器”命令打開菜單編輯器C:任何時候都可以通過單擊標準工具欄上的"菜單編輯器"按鈕打開菜單編輯器D:只有當代碼窗口為當前活動窗口時，才能打開菜單編輯器參考答案：A29、為了暫時關(guān)閉計時器，應(yīng)把計時器的某個屬性設(shè)置為False,這個屬性是。A ： Timer B ： VisbleC： Enabled D ： Interval參考答案：C30、某人在窗體上畫了一個名稱為 Timer1的計時器和一個名稱為 Label1的標簽，計時器的 屬性設(shè)置為 Enabled=True, Interval=0 ,并編程如下。希望在程序運行時，可以每

50、 2秒在標 簽上顯示一次系統(tǒng)當前時間。Private Sub Timer1_Timer()Label1.Caption=Time$End Sub在程序執(zhí)行時發(fā)現(xiàn)未能實現(xiàn)上述目的，那么，他應(yīng)做的修改是 。A:通過屬性窗口把計時器的Enabled屬性設(shè)置為FalseB:把事件過程中的 Label1.Caption=Time$ 語句改為 Label1.Caption=Timen.TimeC:通過屬性窗口把計時器的Interval屬性設(shè)置為2000D：把事件過程中的 Label1.Caption=Time$ 語句改為 Timer1.Interval=Time$參考答案：C31、若設(shè)置了文本框的屬性Pa

51、sswordChar="$",則運行程序時向文本框中輸入8個任意字符后，文本框中顯示的是 。A :無任何內(nèi)容 B: 1個"$"C： 8個"*" D: 8個"$"參考答案：D32、在窗體上有如下圖所示的控件，各控件的名稱與其標題相同，并有如下程序：Private Sub Form_Load()Command2.Enabled = FalseCheck1.Value = 1End Sub剛運行程序時，看到的窗體外觀是 。A :B:C:D:參考答案：D33、要使兩個單選按鈕屬于同一個框架，正確的操作是 。A :先畫一個框

52、架，再在框架外畫兩個單選按鈕，然后把單選按鈕拖到框架中B:其他選項方法都正確C:先畫一個框架，再在框架中畫兩個單選按鈕D:先畫兩個單選按鈕，再畫框架將單選按鈕框起來參考答案：C34、在窗體上畫一個列表框和一個命令按鈕，其名稱分別為List1和Command1 ,然后編寫如下事件過程Private Sub Form_Load()Listl.AddItem "Iteml"Listl.AddItem "Item2"Listl.AddItem "Item3"End SubPrivate Sub Command1_Click()Listl.Li

53、st(Listl.ListCount) = "AAAA"End Sub程序運行后，單擊命令按鈕，其結(jié)果為 。A :把列表框中原有的最后一項改為"AAAA"B:把字符串"AAAA"添加到列表框的最后(即"Item3”的后面)C:把字符串"AAAA"添加到列表框中，但位置不能確定D：把字符串"AAAA"插入到列表框的最前面(即 "Iteml”的前面)參考答案：B35、在窗體上畫1個命令按扭(名稱為Commandl)和1個文本框(名稱為 Textl),然后編寫如下事件過程：Priv

54、ate Sub Command1_Click()x=Val(Text1.Text)Select Case xCase 1,3y=x*xCase Is>=10,Is<=-10y=xCase -10 To 10y=-xEnd SelectEnd Sub程序運行后，在文本框中輸入3,然后單擊命令按扭，則以下敘述中正確的是 。A :先執(zhí)行 y=x*x ,再執(zhí)行 y=-xB :執(zhí)行y=-xC:執(zhí)行 y=x*xD:程序出錯參考答案：C36、以下不能輸出"Program"的語句是。A : Print Left("VBProgram",7)B : Print

55、 Right("VBProgram",7)C: Print Mid("VBProgram",3)D： Print Mid("VBProgram",3,7)參考答案：A37、窗體上有1個名稱為Textl的文本框和1個名稱為Commandl的命令按鈕。要求程序運 行時，單擊命令按鈕，就可把文本框中的內(nèi)容寫到文件out.txt中，每次寫入的內(nèi)容附加到文件原有內(nèi)容之后。下面能夠正確實現(xiàn)上述功能的程序是 。A : Private Sub Command1_Click() Open "out.txt" For Append A

56、s #1 Print #1,Text1.TextClose #1End SubB : Private Sub Command1_Click() Open "out.txt" For Output As #1 Print #1,Text1.TextClose #1End SubC: Private Sub Command1_Click() Open "out.txt" For Input As #1 Print #1,Text1.TextClose #1End SubD ： Private Sub Command1_Click() Open "o

57、ut.txt" For Random As #1 Print #1,Text1.TextClose #1 End Sub參考答案：A38、設(shè)有如圖所示窗體和以下程序：Private Sub Command1_Click() Text1.Text="Visual Basic"End SubPrivate Sub Text1_LostFocus() If Text1.text<>"BASIC" ThenText1.Text="" Text1.SetFocus End IfEnd Sub程序運行時，在 Text1文本框

58、中輸入"Basic"(如圖所示)，然后單擊Command1按鈕，則產(chǎn) 生的結(jié)果是。A :文本框中為"Basic",焦點在文本框中B:文本框中無內(nèi)容，焦點在文本框中C:文本框中為"Basic",焦點在按鈕上D：文本框中為"Visual Basic",焦點在按鈕上參考答案：B39、為了使一個窗體從屏幕消失但仍在內(nèi)存中，所使用的方法或語句為 。 A : Unload B : Load C: Show D： Hide參考答案：D40、某人創(chuàng)建了 1個工程，其中的窗體名稱為Forml ;之后又添加了一個名為Form2的窗體，并希望程序執(zhí)行時先顯示Form2窗體，那么，他需要做的工作是 。A :把Form2的Tabindex屬性設(shè)置為1,把Forml的Tabindex屬性設(shè)置為