§2專業基礎知識§2.1Visualbasic程序開發環境1.以下關于VB的敘述中，錯誤的是BA)VB采用事件驅動的編程機制B)如果程序中有Sub_Main過程時，則一定從該過程開始執行C)工程文件中包含多個窗體時，可以指定啟動窗體D)VB程序既可以編譯執行，也可以解釋執行2.在VisualBasic中，不能關閉的窗口是BA)窗體設計器窗口B)工程窗口C)屬性窗口D)立即窗口3.VisualBasic集成環境由若干窗口組成，其中不能隱藏(關閉)的窗口是(A)。A)主窗口B)屬性窗口C)立即窗口D)窗體窗口4.為了用鍵盤打開菜單和執行菜單命令，第一步應按的鍵是(A)。A)功能鍵F10或AltB)Shift＋功能鍵F4C)Ctrl或功能鍵F8D)Ctrl＋Alt5.下面操作中，不能正確保存正在編輯的工程的是CA)鼠標右鍵單擊"工程資源管理器窗口"中該工程的圖標，在彈出的菜單中選"保存工程"B)單擊"文件"菜單，在下拉菜單中選"保存工程"C)單擊"工程"菜單，在下拉菜單中選"保存工程"D)6.在VisualBasic標準工具欄中，"菜單編輯器"的圖標是CA)B)C)D)7.以下不能作為容器使用的控件是AA)圖像框B)框架C)圖片框D)窗體8.以下關于VB文件的敘述中，錯誤的是(B)。A)標準模塊文件不屬于任何一個窗體B)C)一個工程只有一個工程文件D)一個工程可以有多個窗體文件9.VB中有這樣一類文件：該文件不屬于任何一個窗體，而且僅包含程序代碼，這類文件的擴展名是(B)。A).vbpB).basC).vbwD).frm10.類模塊文件的擴展名為BA).resB).clsC).vbpD).vbg11.以下敘述中正確的是(C)。A)在屬性窗口只能設置窗體的屬性B)在屬性窗口只能設置控件的屬性C)在屬性窗口可以設置窗體和控件的屬性D)在屬性窗口可以設置任何對象的屬性12.如果在VisualBasic集成環境中沒有打開屬性窗口，下列可以打開屬性窗口的操作是(D)。A)用鼠標雙擊窗體的任何部位B)執行"工程"菜單中的"屬性窗口"命令C)按Ctrl＋F4鍵D)按F4鍵13.在編輯VB應用程序時，如果不小心關閉了屬性窗口，則可以單擊主窗口標準工具欄上的一個按鈕直接打開屬性窗口，這個按鈕的圖標是DA)B)C)D)14.下列打開"代碼窗口"的操作中錯誤的是(A)。A)按F4鍵B)單擊"工程資源管理器"窗口中的"查看代碼"按鈕C)雙擊已建立好的控件D)執行"視圖"菜單中的"代碼窗口"命令15.如果要在窗體上畫一個標簽，應在工具箱窗口中選擇的圖標是(B)。A)B)C)D)16.為了在窗體上畫一個文件列表框，應先在工具箱窗口中選中的圖標是CA)B)C)D)§2.2對象及其操作1.下面不屬于對象基本特點的是BA)標識唯一性B)可復用性C)多態性D)封裝性2.以下關于VB對象屬性的敘述中，錯誤的是BA)屬性是對象的特征B)對象的所有屬性值都可以在屬性窗口中設置C)不同對象可以具有同名的屬性D)對象的某些屬性可以在程序中設置3.以下操作中，不能改變窗體大小的是CA)設計階段，在"屬性"窗口設置相應屬性B)運行階段，用賦值語句修改相應屬性C)運行階段，調用窗體的Show方法D)運行階段，調用窗體的Move方法4.以下關于事件、事件驅動的敘述中，錯誤的是(C)。A)事件是可以由窗體或控件識別的操作B)事件可以由用戶的動作觸發C)一個操作動作只能觸發一個事件D)事件可以由系統的某個狀態的變化而觸發5.在面向對象的程序設計中，可被對象識別的動作稱為(B)。A)方法B)事件C)過程D)函數6.以下關于VB特點的敘述中，錯誤的是(C)。A)VB中一個對象可有多個事件過程B)VB應用程序能以編譯方式運行C)VB應用程序從Form_Load事件過程開始執行D)在VB應用程序中往往通過引發某個事件導致對對象的操作7.以下關于VB的敘述中，錯誤的是(D)。A)VB采用事件驅動方式運行B)VB既能以解釋方式運行，也能以編譯方式運行C)VB程序代碼中，過程的書寫順序與執行順序無關D)VB中一個對象對應一個事件8.以下關于方法的敘述中，錯誤的是AA)在調用方法時，對象名稱是必不可缺少的B)方法是一種特殊的過程或函數C)不同對象的方法可以同名D)方法可以帶有參數9.以下敘述中錯誤的是(C)。A)VisualBasic是事件驅動型可視化編程工具B)VisualBasic應用程序不具有明顯的開始和結束語句C)VisualBasic工具箱中的所有控件都具有寬度(Width)和高度(Height)屬性D)VisualBasic中控件的某些屬性只能在運行時設置10.設工程文件中包名稱分別為Form1、Form2的兩個窗體，且Form1的菜單屬性設置如下：窗體Form1中的程序如下：DimFlagAsBooleanPrivateSubForm_Load()Flag＝TrueEndSubPrivateSubmnu1_Click(indexAsInteger)IfIndex＝1ThenIfFlag＝TrueThenmnu1(1).Caption＝"隱藏窗體2"Flag＝FalseElsemnu1(1).Caption＝"顯示窗體2"Flag＝TrueEndIfEndIfIfIndex＝2ThenEndEndSub關于上述程序，以下敘述中錯誤的是(D)。A)Index屬性的值可以用來區分控件數組元素B)Index為1的菜單項的標題可能會改變C)兩個名稱均為Mnu1的菜單項構成一個控件數組D)11.設窗體、框架、圖片框（PictureBox）、圖像框（Image）的名稱分別是Form1、Frame1、Picture1、Image1，有下面4條語句：①Form1.Print"VB"②Frame1.Print"VB"③Picture1.Print"VB"④Image1.Print"VB"其中正確的是CA)①和②B)②和③C)①和③D)③和④12.在設計窗體時雙擊窗體的任何地方，可以打開的窗口是(A)。A)代碼窗口B)屬性窗口C)工程資源管理器窗口D)工具箱窗口13.為了使窗體的大小可以改變，必須把它的BorderStyle屬性設置為(B)。A)1B)2C)3D)414.為了使窗體左上角不顯示控制框，需設置為False的屬性是(C)。A)VisibleB)EnabledC)ControlBoxD)Caption15.假定已在窗體上畫了多個控件，其中有一個被選中，為了在屬性窗口中設置窗體的屬性，預先應執行的操作是(A)。A)單擊窗體上沒有控件的地方B)單擊任意一個控件C)雙擊任意一個控件D)單擊屬性窗口的標題欄16.設窗體名稱為frmTest，為了在程序代碼中將窗體的標題改為"等級考試"，其代碼應該是AA)frmTest.Caption="等級考試"B)Form1.Caption="等級考試"C)frmTest.Title="等級考試"D)Form1.Title="等級考試"17.為了在運行時能顯示窗體左上角的控制框（即系統菜單），應執行的操作是BA)把窗體的ControlBox屬性設置為False，其他屬性任意B)把窗體的ControlBox屬性設置為True，并且把BorderStyle屬性設置為1到5中的一個數C)把窗體的ControlBox屬性設置為True，并且把BorderStyle屬性設置為0D)把窗體的ControlBox屬性設置為Fale，并且把BorderStyle屬性設置為1到5中的一個數18.為了通過屬性窗口設置窗體的ControlBox屬性值，下列正確的操作是DA)直接鍵入True或FalseB)利用彈出的對話框設置屬性值C)選擇ControlBox，然后按回車鍵D)雙擊ControlBox屬性條19.以下關于窗體的敘述中，錯誤的是AA)執行UnloadForm1語句后，窗體Form1被隱藏，但仍在內存中B)當窗體的Enabled屬性為False時，窗體不響應鼠標、鍵盤的操作C)當窗體的KeyPreview屬性為True時，則窗體能優先響應鍵盤事件D)窗體的Load事件在加載窗體時觸發20.對于窗體而言，在運行期間對其值改變無效的屬性是DA)CaptionB)EnabledC)AutoRedrawD)BorderStyle21.下列描述中錯誤的是DA)窗體是對象B)窗體必須有Name屬性C)窗體可以拖放和移動D)在設計階段雙擊一個控件可以打開屬性窗口22.窗體上有三個水平滾動條，名稱分別為HSRed、HSGreen和HSBlue，取值范圍均是0～255，代表顏色的三種基色。改變滾動框的位置，可以改變三種基色的值，從而改變窗體的背景色，如下圖所示。程序代碼如下：Dimcolor(3)AsIntegerPrivateSubForm_Load()Callfill(color())EndSubPrivateSubfill(c()AsInteger)Form1.BackColor＝RGB(c(1)，c(2)，c(3))EndSubPrivateSubHSRed_Change()Callfill(color())EndSubPrivateSubHSGreen_Change()Callfill(color())EndSubPrivateSubHSBlue_Change()Callfill(color())EndSub關于以上程序，如下敘述中錯誤的是(C)。A)color是窗體級整型數組B)改變任何一個滾動條滾動框的位置，窗體的背景色將立刻隨之改變C)3個滾動條Change事件過程中只設置了一個color數組元素的值，調用fill過程失敗D)fill函數定義中的形式參數是數組型參數23.在程序運行時，下面的敘述中正確的是(C)。A)用鼠標右鍵單擊窗體中無控件的部分，會執行窗體的Form_Load事件過程B)用鼠標左鍵單擊窗體的標題欄，會執行窗體的Form_Click事件過程C)只裝入而不顯示窗體，也會執行窗體的Form_Load事件過程D)裝入窗體后，每次顯示該窗體時，都會執行窗體的Form_Click事件過程24.設窗體的名稱為Form1，標題為Win，則窗體的MouseDown事件過程的過程名是(C)。A)Form1_MouseDownB)Win_MouseDownC)Form_MouseDownD)MouseDown_Form125.以下關于窗體的敘述中，錯誤的是(B)。A)Hide方法能隱藏窗體，但窗體仍在內存中B)使用Show方法顯示窗體時，一定觸發Load事件C)移動或放大窗體時，會觸發Paint事件D)雙擊窗體時，會觸發DblClick事件26.若要把一個窗體從內存中刪除，應該使用的方法是AA)UnLoadB)HideC)LoadD)Show27.在程序運行時，不會引發窗體Resize事件的操作是CA)使用了窗體的"還原"按鈕B)使用Move方法改變了窗體的大小C)使用Move方法改變了窗體的位置D)通過鼠標拖動邊框調整了窗體的大小28.下面不響應鍵盤事件的對象是DA)窗體B)按鈕C)復選框D)標簽29.編寫如下程序：PrivateSubForm_Click()Print"Welcome！"EndSubPrivateSubForm_MouseDown(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)Print"歡迎！"EndSubPrivateSubForm_MouseUp(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)Print"熱烈歡迎！"EndSub程序運行后，單擊窗體，輸出結果為(A)。A)歡迎！熱烈歡迎！Welcome!B)歡迎！Welcome！熱烈歡迎！C)Welcome！歡迎！熱烈歡迎！D)Welcome！熱烈歡迎！歡迎！30.下列敘述中，錯誤的是AA)控件數組元素的下標不能重復，且必須是連續的B)控件數組中所有元素的類型必須是相同的C)窗體的Load事件發生在所有因用戶操作而引發的事件之前D)一個窗體中，只能有一個命令按鈕的Cancel屬性被設置為True31.在VisualBasic中，所有標準控件都具有的屬性是(B)。A)CaptionB)NameC)TextD)Value32.為了把ActiveX控件加到工具箱中，首先應采取的操作是AA)執行"工程"菜單中的"部件"命令B)執行"視圖"菜單中的"工具箱"命令C)執行"工具"菜單中的"選項"命令D)執行"工程"菜單中的"引用"命令33.能夠用于標識對象名稱的屬性是(A)。A)NameB)CaptionC)ValueD)Text34.假定窗體上有一個名稱為txtMac的文本框，則執行語句txtMac="MyText"后的結果為BA)把字符串"MyText"存入變量txtMac中B)在文本框txtMac中顯示字符串"MyText"C)把文本框txtMac的Name屬性設置為MyTextD)把文本框txtMac的Value屬性設置為MyText35.VisualBasic為每種控件規定了一個默認屬性，在設置默認屬性時，不必給出屬性名。下列控件中默認屬性為Text的控件是BA)框架（Frame）B)組合框（ComboBox）C)標簽（Label）D)形狀（Shape）36.編寫如下程序：PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerDimarr()AsIntegern=InputBox("請輸入數值：")ReDimarr(n)Fori=1ToUBound(arr)arr(i)=iNextFori=1ToUBound(arr)\2temp=arr(i)arr(i)=arr(n-i+1)arr(n-i+1)=tempNextFori=1ToUBound(arr)Printarr(i);NextEndSub程序運行后，單擊命令按鈕Command1，并在輸入對話框中輸入7，輸出結果為AA)7654321B)1234567C)3214765D)432156737.編寫如下程序：PrivateSubCommand1_Click()DimaAsInteger,iAsIntegera=2Fori=1To3Printfun_s(a);NextiEndSubFunctionfun_s(aAsInteger)AsIntegerDimbAsIntegerStaticcAsIntegera=a+1b=b+1c=c+1fun_s=a+b+cEndFunction程序運行后，單擊命令按鈕Command1，輸出結果為CA)456B)567C)579D)46838.默認屬性是某種控件最常用或最重要的屬性，在VisualBasic中設置這樣的屬性時，不必給出屬性名。下列中默認屬性不是Value的控件是DA)垂直滾動條（VscrollBar）B)復選框（CheckBox）C)命令按鈕（CommandButton）D)列表框（ListBox）39.窗體上有一個名稱為Combo1的組合框，引用Combo1中最后一個列表項應使用的表達式是AA)Combo1.List(Combo1.ListCount-1)B)Combo1.List(ListCount)C)Combo1.List(ListCount-1)D)Combo1.List(Combo1.ListCount)40.在窗體上添加"控件"的正確的操作方式是(C)。A)先單擊工具箱中的控件圖標，再單擊窗體上適當位置B)先單擊工具箱中的控件圖標，再雙擊窗體上適當位置C)直接雙擊工具箱中的控件圖標，該控件將出現在窗體上D)直接將工具箱中的控件圖標拖動到窗體上適當位置41.為了對多個控件執行操作，必須選中這些控件。下列不能選中多個控件的操作是(A)。A)按住Alt鍵，不要松開，然后單擊每個要選中的控件B)按住Shift鍵，不要松開，然后單擊每個要選中的控件C)按住Ctrl鍵，不要松開，然后單擊每個要選中的控件D)拖動鼠標畫出一個虛線矩形，使所選中的控件位于這個矩形內42.以下敘述中錯誤的是(D)。A)在通用過程中，多個形式參數之間可以用逗號作為分隔符B)在Print方法中，多個輸出項之間可以用逗號作為分隔符C)在Dim語句中，所定義的多個變量可以用逗號作為分隔符D)當一行中有多個語句時，可以用逗號作為分隔符43.以下敘述中錯誤的是(C)。A)續行符與它前面的字符之間至少要有一個空格B)VisualBasic中使用的續行符為下劃線(_)C)以撇號(′)開頭的注釋語句可以放在續行符的后面D)VisualBasic可以自動對輸入的內容進行語法檢查44.下列有語法錯誤的賦值語句是(D)。A)y＝7＝9B)s＝m＋nC)Text1.Text＝10D)m＋n＝1245.設程序中分別將a、b、c、d定義為布爾型、整型、字符串型、日期型變量，下列賦值語句錯誤的是AA)a=#True#B)C)c=5&10D)d=#2013/01/01#46.以下敘述中錯誤的是AA)事件過程可以像通用過程一樣由用戶指定過程名B)在Sub過程中可以調用其它過程C)在Sub過程中不能定義其它過程D)如果過程被定義為Static類型，則該過程中的局部變量都是Static類型47.輸入VisualBasic源程序時，若一個命令行中包含兩個語句，則兩個語句之間的分隔符應使用AA)冒號（:）B)分號（;）C)下劃線（_）D)連字符（-）48.VisualBasic源程序的續行符為CA)冒號（:）B)分號（;）C)下劃線（_）D)連字符（-）49.下列打開"代碼窗口"的操作中錯誤的是(A)。A)按F4鍵B)單擊"工程資源管理器"窗口中的"查看代碼"按鈕C)雙擊已建立好的控件D)執行"視圖"菜單中的"代碼窗口"命令50.設計窗體時，雙擊窗體上沒有控件的地方，打開的窗口是(A)。A)代碼窗口B)屬性窗口C)工具箱窗口D)工程窗口51.以下敘述中，錯誤的是BA)標準模塊不屬于任何一個窗體D)一個應用程序可以有多個窗體52.在VB集成環境中要結束一個正在運行的工程，可單擊工具欄上的一個按鈕，這個按鈕是(D)。A)B)C)D)53.在VisualBasic環境下設計應用程序時，系統能自動檢查出的錯誤是(A)。A)語法錯誤B)邏輯錯誤C)邏輯錯誤和語法錯誤D)運行錯誤54.下面關于VB應用程序的敘述中正確的是CA)VB應用程序只能解釋運行B)VB應用程序只能編譯運行C)VB應用程序既能解釋運行，也能編譯運行D)VB應用程序必須先編譯，然后解釋運行55.以下關于VB的敘述中，錯誤的是AA)VB的窗體模塊只包含由控件組成的窗體B)在VB集成開發環境中，既可以運行程序，也可以調試程序C)VB采用事件驅動的編程機制D)56.以下關于VB的敘述中，錯誤的是BA)VB采用事件驅動的編程機制B)如果程序中有Sub_Main過程時，則一定從該過程開始執行C)工程文件中包含多個窗體時，可以指定啟動窗體D)VB程序既可以編譯執行，也可以解釋執行57.能夠被窗體或控件所識別的操作稱為AA)事件B)方法C)過程D)屬性§2.3程序設計基礎1.下面為單精度實型（即單精度浮點型）變量的是CA)x$B)x&C)x!D)x#2.為了建立隨機文件，要求文件的每條記錄應包含多個不同數據類型的數據項，則記錄應使用的數據類型是AA)記錄類型B)字符串類型C)字符串數組D)變體類型3.長整型常數的類型說明符為CA)%B)#C)&D)@4.雙精度浮點數的類型說明符為BA)%B)#C)&D)@5.VB變量x!的數據類型是AA)單精度類型B)字符串類型C)整型D)雙精度類型6.如果在程序中直接使用了沒有聲明的變量，則它的數據類型是DA)字符串型B)整型C)邏輯型D)變體型7.若在窗體模塊的聲明部分聲明了如下自定義類型和數組：PrivateTyperecCodeAsIntegerCaptionAsStringEndTypeDimarr(5)Asrec則下面的輸出語句中正確的是(C)。A)Printarr.Code(2)，arr.Caption(2)B)C)Printarr(2).Code，arr(2).CaptionD)PrintCode(2)，Caption(2)8.以下自定義數據類型的語句中，正確的是(B)。A)TypestudentIDAsString*20nameAsString*10ageAsIntegerEndstudentB)TypestudentIDAsString*20nameAsString*10ageAsIntegerEndTypeC)TypestudentIDAsStringnameAsStringageAsIntegerEndstudentD)TypeIDAsString*20nameAsString*10ageAsIntegerEndTypestudent9.設有以下定義語句：PrivateTypepointxAsIntegeryAsIntegerEndTypeDimaAspoint下面語句中正確的是BA)a=12B)a.x=12C)point=12D)point.x=1210.以下能正確定義數據類型TelBook的代碼是AA)TypeTelBookNameAsString*10TelNumAsIntegerEndTypeB)TypeTelBookNameAsString*10TelNumAsIntegerEndTelBookC)TypeTelBookNameString*10TelNumIntegerEndTypeTelBookD)TypedefTelBookNameString*10TelNumIntegerEndType11.某人在窗體模塊中定義了如下自定義類型：TypeRecnumAsIntegernameAsStringEndType但發現程序不能運行，關于這一問題，下面敘述中正確的是DA)自定義類型不能寫在窗體模塊中B)自定義類型只能寫在標準模塊中C)在TypeRec前面添加關鍵字Public就可解決問題D)在TypeRec前面添加關鍵字Private就可解決問題12.設有下面的類型和變量定義，PrivateTypeRecnameAsStringscore(5)AsIntegerEndTypeDimstudentAsRec則下面正確的語句是BA)student="張三"B)student.score(2)=75C)student(3).score=69D)score(4)=7713.窗體上有一個名稱為Text1的文本框，一個名稱為Command1的命令按鈕。窗體文件的程序如下：PrivateTypexaAsIntegerbAsIntegerEndTypePrivateSubCommand1_Click()DimyAsxy.a＝InputBox("")Ify.a\2＝y.a/2ThenElsey.b＝Fix(y.a/2)EndIfEndSub對以上程序，下列敘述中錯誤的是(D)。A)x是用戶定義的類型B)InputBox函數彈出的對話框中沒有提示信息C)D)Fix(y.a/2)把y.a/2的小數部分四舍五入，轉換為整數返回14.下列符號常量的聲明中不合法的是CB)ConstaAsDouble=5+8C)ConstaAsInteger="25"D)Consta="OK"15.窗體上有一個名稱為Picture1的圖片框控件，一個名稱為Label1的標簽控件，如圖所示。現有如下程序：PublicSubdisplay(xAsControl)IfTypeOfxIsLabelThenxCaption＝"計算機等級考試"ElsexPicture＝LoadPicture("pic.jpg")EndIfEndSubPrivateSubLabel1_Click()Calldisplay(Label1)EndSubPrivateSubPicture1_Click()Calldisplay(Picture1)EndSub對以上程序，下列敘述中錯誤的是(A)。A)程序運行時會出錯B)單擊圖片框，在圖片框中顯示一幅圖片C)過程中的x是控件變量D)單擊標簽，在標簽中顯示一串文字16.以下變量名中合法的是(C)。A)x2－1B)printC)str_nD)2x17.以下選項中，不合法的VisualBasic的變量名是(B)。A)a5bB)_xyzC)a_bD)andif18.以下變量名中合法的是(C)。A)x－2B)12abcC)sum_totalD)print19.以下合法的VB變量名是(D)。A)#_1B)123_aC)stringD)x_12320.以下合法的VB變量名是(D)。A)_xB)2yC)a#bD)x_1_x21.下列合法的變量名是(B)。A)sum－aB)num_9C)print$D)5avg22.以下合法的VB變量名是BA)_aB)yPrintC)a-bD)Type23.以下不合法的VB變量名是CA)filenameB)readC)_yD)e524.下面變量定義中錯誤的是AA)PublicmodAsIntegerB)StaticbufC)DimchAsString*10D)Dima!(-5To-1)25.下列說法中，錯誤的是BA)變量名長度不能超過255個字符B)變量名的第一個字符可以是字母或數字C)變量名只能由字母、數字和下劃線組成D)變量名不能使用保留字26.下列說法中，錯誤的是AA)變量名長度不能超過127個字符B)變量名的第一個字符必須是字母C)變量名不能使用保留字D)變量名只能由字母、數字和下劃線組成27.以下可作為VisualBasic合法變量名的是BA)A3#1B)BasicC)TabD)D%328.以下合法的VB變量名是AA)x_yB)PrintC)_bD)m-n29.以下合法的VB變量名是AA)x_B)3xC)varnameD)print30.為把圓周率的近似值3.14159存放在變量pi中，應該把變量pi定義為(C)。A)DimpiAsIntegerB)Dimpi(7)AsIntegerC)DimpiAsSingleD)DimpiAsLong31.下面程序運行時，若輸入395，則輸出結果是(B)。PrivateSubCommand1_Click()Dimx%x＝InputBox("請輸入一個3位整數")PrintxMod10，x\100，(xMod100)\10EndSubA)395B)539C)593D)35932.設窗體文件中有下面的事件過程：PrivateSubCommand1_Click()Dimsa%＝100PrintaEndSub其中變量a和s的數據類型分別是(C)。A)整型，整型B)變體型，變體型C)整型，變體型D)變體型，整型33.執行語句DimX，YAsInteger后(D)。A)X和Y均被定義為整型變量B)X和Y均被定義為變體類型變量C)X被定義為整型變量，Y被定義為變體類型變量D)X被定義為變體類型變量，Y被定義為整型變量34.某人編寫了向隨機文件中寫一條記錄的程序，代碼如下：TypeRTypeNameAsString*10TelAsString*20EndTypePrivateSubCommand1_Click()DimpAsRTypep.Name＝InputBox("姓名")p.Tel＝InputBox("電話號")Open"Books.dat"ForRandomAs#1Put#1，，pClose#1EndSub該程序運行時有錯誤，修改的方法是()。A)在類型定義"TypeRType"之前加上"Private"B)DimpAsRType必須置于窗體模塊的聲明部分C)應把Open語句中的ForRandom改為ForOutput(36)有如下程序：PrivateSubForm_Click()DimsAsInteger，pAsIntegerp＝1Fori＝1To4Forj＝1Tois＝s＋jNextjp＝p*sNextiPrintpEndSub程序運行后，單擊窗體，則輸出結果是(A)。A)在類型定義"TypeRType"之前加上"Private"B)DimpAsRType必須置于窗體模塊的聲明部分C)應把Open語句中的ForRandom改為ForOutputD)35.有如下數據定義語句：DimX，YAsInteger以上語句表明(C)。A)X、Y均是整型變量B)X是整型變量，Y是變體類型變量C)X是變體類型變量，Y是整型變量D)X是整型變量，Y是字符型變量36.為了聲明一個長度為128個字符的定長字符串變量StrD，以下語句中正確的是(D)。A)DimStrDAsStringB)DimStrDAsString(128)C)DimStrDAsString[128]D)DimStrDAsString*12837.有如下數據定義語句：Dima,bAsIntegerDimx%,yasInteger執行上述語句后，不是整型變量的是AA)aB)bC)xD)y38.語句x=x+1的正確含義是CA)變量x的值等于表達式x+1的值B)將變量x的值存放到變量x+1中C)將變量x的值加1后賦予變量xD)將變量"x+1"的值存放到變量x中39.有如下程序代碼：PrivateSubForm_Click()DimaAsIntegera=2Sum=0Fori=1To3Sum=Sum+f(a)NextiPrintSumEndSubFunctionf(mAsInteger)AsIntegerStaticbAsIntegerb=b+1f=m*bEndFunction運行程序，單擊窗體后，窗體上顯示的是AA)12B)3C)6D)940.編寫如下程序：PrivateSubCommand1_Click()StaticxAsIntegerIfxThenx=x+10Elsex=x+1PrintxEndSub程序運行后，第三次單擊命令按鈕Command1時，輸出的結果為DA)1B)3C)10D)2141.對于語句DimVar1,Var2AsString*10，下列說法中正確的是DA)Var1和Var2都被定義為定長字符串變量B)Var1被定義為變長字符串變量，Var2被定義為定長字符串變量C)Var1被定義為定長字符串變量，Var2被定義為變長字符串變量D)Var1被定義為變體變量42.對于語句DimVar1#,Var2AsInteger，下列說法中正確的是BA)Var1#和Var2都被定義為整型變量B)Var1被定義為雙精度型變量，Var2被定義為整型變量C)Var1被定義為長整型變量，Var2被定義為整型變量D)Var1#被定義為變體變量，Var2被定義為整型變量43.編寫如下程序：PrivateSubCommand1_Click()Dima%,b%,c%a=8:b=3Doc=a-bPrintc;a=b:b=cLoopUntilAbs(c)>10EndSub程序運行后，單擊命令按鈕Command1，輸出結果是CA)5B)5-27-9C)5-27-916D)一直輸出，是死循環44.編寫如下程序：PrivateSubCommand1_Click()DimkAsIntegerx=1Fork=1To3x=x*fun(k)NextkPrintxEndSubFunctionfun(xAsInteger)AsIntegerStaticaa=a+1fun=a*xEndFunction程序運行后，單擊命令按鈕Command1，輸出結果為BA)6B)36C)3D)3045.設有以下程序代碼：PrivateSubCommand1_Click()StaticaAsIntegerprocaPrintaEndSubSubproc(xAsInteger)x=x+1EndSub運行程序，3次單擊命令按鈕，第3次單擊后顯示的是CA)0B)1C)3D)446.窗體上有一個Text1文本框和一個Command1命令按鈕。程序的功能是在文本框中輸入密碼后單擊命令按鈕則進行密碼確認，若密碼正確，彈出信息框顯示"密碼正確"，若密碼錯誤，彈出信息框顯示"密碼錯誤，請重新輸入"，但最多允許輸出3次，若還不正確，則彈出信息框顯示"密碼錯誤，不能再輸入"，且命令按鈕變為無效。某人編寫了如下程序：PrivateSubCommand1_Click()DimnumAsIntegernum=num+1IfText1.Text="123456"ThenMsgBox"密碼正確"ElseIfnum=3ThenCommand1.Enabled=FalseMsgBox"密碼錯誤，不能再輸入"ElseMsgBox"密碼錯誤，請重新輸入"EndIfEndSub調試時發現有錯誤需要修改，下面正確的修改方案是CA)把ElseIfnum=3Then改為ElseIfnum>3ThenB)把Command1.Enabled=False改為Command1.Enabled=TrueC)把DimnumAsInteger改為StaticnumAsIntegerD)把num=num+1改為num=num+347.有如下通用過程：SubSa(aAsInteger,bAsInteger)b=at=a/bb=tModbEndSub在窗體上畫一個Command1命令按鈕，然后編寫如下事件過程：PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=5y=4Sax,yPrintx;yEndSub運行程序，單擊命令按鈕，輸出結果是DA)11B)54C)14D)5148.有如下程序代碼：FunctionSum(nAsInteger)StatickAsIntegerk=k+n+1Sum=kEndFunctionPrivateSubForm_Click()DimiAsIntegerDimsAsIntegerFori=1To3s=s+Sum(i)NextiPrintsEndSub運行程序，單擊窗體，輸出結果為DA)6B)9C)12D)1649.設有如下程序：OptionBase1Dima(3，4)AsInteger，b(4，3)AsIntegerPrivateSubCommand1_Click()'循環1Fori＝1To3Forj＝1To4b(j，i)＝a(i，j)NextjNexti'循環2x＝b(1，1)Fori＝1To4Forj＝1To3Printb(i，j)；Ifx<b(i，j)Thenx＝b(i，j)NextjPrintNextiEndSub程序中的數組a已被賦值。以下關于上述程序的敘述中，正確的是(B)。A)窗體模塊中，不能使用Dim聲明a、b數組B)"循環1"可以正常運行C)"循環2"中循環變量i、j的終值不對，所以不能正常運行D)程序可以正常運行，x中保存的是數組b中所有元素中最小的數50.有如下語句序列：Dima，bAsIntegerPrintaPrintb執行以上語句序列，下列敘述中錯誤的是(A)。A)輸出的a值是0B)輸出的b值是0C)a是變體類型變量D)b是整型變量51.下列關于數組的敘述中，正確的是AA)數組名的命名規則與簡單變量相同B)VisualBasic支持數組的隱式定義C)使用Static語句定義任何類型的數組時，都把該數組的全部元素初始化為0D)使用Dim語句定義任何類型的數組時，都將把數組的全部元素初始化為空字符串52.下面程序片段中有錯誤CSubpric()PublicxAsIntegerx=Array(1,2,3,4,5)……EndSub為了避免出錯，正確的修改方案是A)把PublicxAsInteger改為PublicxAsVariantB)把PublicxAsInteger改為Dimx(5)C)把PublicxAsInteger改為Staticx53.下面程序的功能是：從鍵盤輸入若干個自然數，輸入-1則結束輸入，然后計算平均值輸出（因事先不知道執行時會輸入多少個數，定義一個動態數組存放這些數）。PrivateSubCommand1_Click()Dima()AsIntegern=0Dox=InputBox("請輸入一個自然數，輸入-1結束")Ifx<>-1Thenn=n+1___________a(n)=xEndIfLoopUntilx=-1Fork=1Tons=s+a(k)NextPrints/nEndSub以上程序不完整，應在橫線處填寫的是BA)ReDima(n)B)ReDimPreservea(n)C)ReDimaD)ReDima()§2.4常用標準控件1.如果改變驅動器列表框的Drive屬性，則將觸發的事件是(A)。A)ChangeB)ScrollC)KeyDownD)KeyUp2.任何控件都具有的屬性為DA)CaptionB)ForeColorC)FontNameD)Name3.在窗體上畫一個文本框(名稱為Text1)和一個標簽(名稱為Label1)，程序運行后，在文本框中每輸入一個字符，都會立即在標簽中顯示文本框中字符的個數。以下可以實現上述操作的事件過程是(A)。A)PrivateSubText1_Change()Label1.Caption＝Str(Len(Text1.Text))EndSubB)PrivateSubText1_Click()Label1.Caption＝Str(Len(Text1.Text))EndSubC)PrivateSubText1_Change()EndSubD)PrivateSubLabel1_Change()Label1.Caption＝Str(Len(Text1.Text))EndSub4.設窗體上有一個標簽Label1和一個計時器Timer1，Timer1的Interval屬性被設置為1000，Enabled屬性被設置為True。要求程序運行時每秒在標簽中顯示一次系統當前時間。以下可以實現上述要求的事件過程是(B)。A)PrivateSubTimer1_Timer()Label1.Caption＝TrueEndSubB)PrivateSubTimer1_Timer()Label1.Caption＝Time$EndSubC)PrivateSubTimer1_Timer()Label1.Interval＝1EndSubD)PrivateSubTimer1_Timer()Label1.Caption＝TimerNextkEndSub5.為了使標簽控件在顯示其內容時不覆蓋其背景內容，需進行設置的屬性為(D)。A)BackColorB)BorderStyleC)ForeColorD)BackStyle6.VisualBasic控件一般都規定一個默認屬性，在引用這樣的屬性時，只寫對象名而不必給出屬性名。默認屬性為Caption的控件是(B)。A)列表框(ListBox)B)標簽(Label)C)文本框(TextBox)D)組合框(ComboBox)7.為了使標簽Label1透明且不具有邊框，以下正確的屬性設置是BA)Label1.BackStyle=0Label1.BorderStyle=1B)Label1.BackStyle=0Label1.BorderStyle=0C)Label1.BackStyle=1Label1.BorderStyle=1D)Label1.BackStyle=1Label1.BorderStyle=08.決定標簽內容顯示位置的屬性是CA)TextB)NameC)AlignmentD)Caption9.設Label1、Command1、Text1、Check1分別為標簽、命令按鈕、文本框、復選框的名稱，則以下屬性設置語句中，運行時不會出錯的是A)Label1.BackStyle=2B)Command1.Style=1C)Text1.ScrollBars=4D)Check1.Value=2參考答案：D10.下列不包含滾動條的控件是A)列表框B)標簽C)組合框D)文本框參考答案：B11.要使標簽中的文本靠右顯示，應將其Aligment屬性設置為A)0-LeftJustifyB)1-RightJustifyC)2-CenterD)3參考答案：B12.下列有關控件的敘述中，正確的是A)命令按鈕不響應DblClick事件B)標簽的主要作用是顯示文本信息，它不響應Click事件C)標簽中的文本信息通過Text屬性顯示D)在設計階段，圖片框中建立的控件可以拖拽到圖片框之外參考答案：A13.窗體上有1個名稱為Text1的文本框，1個名稱為Label1的標簽。程序運行后，如果在文本框中輸入信息，則立即在標簽中顯示相同的內容。以下可以實現上述操作的事件過程為()。A)PrivateSubLabel1_Click()EndSubB)PrivateSubLabel1_Change()EndSubC)PrivateSubText1_Click()EndSubD)PrivateSubText1_Change()EndSub參考答案：D14.以下控件中，能夠作為容器使用的是A)圖片框B)形狀控件C)圖像框D)標簽參考答案：A15.在窗體上畫1個名稱為Command1的命令按鈕，1個名稱為Label1的標簽，然后編寫如下事件過程：PrivateSubCommand1_Click()DimiAsInteger,jAsIntegerDimsAsIntegerFori=1To5Forj=1Tois=s+jNextjNextiLabel1.Caption=sEndSub程序運行后，單擊命令按鈕Command1，則標簽中顯示的內容是A)15B)20C)35D)55參考答案：C16.下面不響應鍵盤事件的對象是A)窗體B)按鈕C)復選框D)標簽參考答案：D17.在窗體上畫Text1、Text2兩個文本框，并編寫如下程序：PrivateSubForm_Load()Text2.PasswordChar="$"EndSubPrivateSubText1_Change()EndSub運行程序，在Text1文本框中輸入"ABCDEFG"，則產生的結果是A)在Text2中同步顯示與Text1同樣內容B)在Text2中同步顯示"abcdefg"C)在Text2中同步顯示與Text1中字符數量相同的"$"D)在Text1中顯示"$"，而在Text2中不顯示任何內容參考答案：C18.窗體上有1個名稱為Text1的文本框和1個名稱為Label1的標簽。運行以下程序，在文本框中輸入VisualBasic，則標簽中顯示內容為basic的是A)PrivateSubText1_Change()Label1.Caption=LCase(Mid(Text1.Text,7))EndSubB)PrivateSubText1_Change()Label1.Caption=UCase(Left(Text1.Text,5))EndSubC)PrivateSubText1_Change()Label1.Caption=UCase(Right(Text1.Text,5))EndSubD)PrivateSubText1_Change()Label1.Caption=LCase(Left(Text1.Text,5))EndSub參考答案：A19.如果把文本框的Enabled屬性設置為False并運行程序，則以下敘述中正確的是A)文本框中的文本變為灰色，且不能將光標置于文本框上B)文本框中的文本變為灰色，可以將光標置于文本框上，但不能改變文本框中的內容C)文本框中的文本變為灰色，可以改變文本框中的內容D)文本框中的文本正常顯示，可以將光標置于文本框上，但不能改變文本框中的內容參考答案：A20.窗體上有2個名稱分別為Text1和Text2的文本框。編寫如下程序：PrivateSubForm_Load()Text1.Text=""Text2.Text=""EndSubPrivateSubCommand1_Click()EndSub程序運行后，在Text1和Text2中依次輸入100和200，并單擊命令按鈕Command1，則輸出結果為A)100B)200C)300D)100200參考答案：D21.窗體上有一個由兩個文本框組成的控件數組，名稱為Text1，并有如下事件過程：PrivateSubText1_Change(IndexAsInteger)SelectCaseIndexCase0Text1(1).FontSize＝Text1(0).FontSize*2Text1(1).Text＝Text1(0).TextCase1Text1(0).FontSize＝Text1(1).FontSize/2Text1(0).Text＝Text1(1).TextCaseElseMsgBox"執行Else分支"EndSelectEndSub關于上述程序，以下敘述中錯誤的是()。A)Index用于標識數組元素B)本程序中CaseElse分支的語句永遠不會被執行C)向任何一個文本框輸入字符，都會在另一個文本框中顯示該字符D)下標為0的文本框中顯示的字符尺寸將越來越小參考答案：D22.在窗體上畫一個文本框，其名稱為Text1，為了在程序運行后隱藏該文本框，應使用的語句為()。A)B)Text1.Visible＝FalseC)D)Text1.Enabled＝False參考答案：B23.為了使文本框同時具有垂直和水平滾動條，應先把MultiLine屬性設置為True，然后再把ScrollBars屬性設置為()。A)0B)1C)2D)3參考答案：D24.在窗體上畫一個名稱為Combo1的組合框，名稱為Text1的文本框，以及名稱為Command1的命令按鈕，如圖所示。運行程序，單擊命令按鈕，將文本框中被選中的文本添加到組合框中，若文本框中沒有選中的文本，則將文本框中的文本全部添加到組合框中。命令按鈕的事件過程如下：PrivateSubCommand1_Click()IfText1.Se1Length<>0ThenElseCombo1.AddItemText1EndIfEndSub程序中橫線處應該填寫的是()。A)B)C)D)參考答案：C25.為了使文本框只具有垂直滾動條，應先把MultiLine屬性設置為True，然后再把ScrollBars屬性設置為()。A)0B)1C)2D)3參考答案：C26.若要使文本框能夠輸入多行文本，應該設置的屬性是()。A)MultiLineB)WordWrapC)ScrollBarsD)AutoSize參考答案：A26.為了使文本框顯示滾動條，除要設置ScrollBars外，還必須設置的屬性是()。A)AutoSizeB)AlignmentC)MultilineD)MaxLength參考答案：C27.窗體上有一個名稱為Command1的命令按鈕，一個名稱為Text1的文本框，其Text屬性值為"VBProgramming"。運行程序后，選中其中的"VB"，并執行如下事件過程：PrivateSubCommand1_Click()Text1.SelText="C++"EndSub則文本框中顯示的內容為A)VBB)VBProgrammingC)文本框被清空D)C++Programming參考答案：D28.將文本框的ScrollBar設置為2，文本框中卻沒有垂直滾動條，其原因可能是A)文本框中沒有內容B)文本框的MultiLine屬性值為FalseC)文本框的MultiLine屬性值為TrueD)文本框的Locked屬性值為True參考答案：B29.文本框的Locked屬性被設置為True后產生的效果是A)光標不能進入文本框B)不能使文本框中的文本左右滾動C)不能修改文本框中的文本D)在程序中不能引用文本框的內容參考答案：C30.為使文本框具有初始值"VB"，在設計階段正確的操作是A)選中該文本框，在屬性窗口中把Text屬性的值改為"VB"B)選中該文本框，在屬性窗口中把Caption屬性的值改為"VB"C)雙擊該文本框，在彈出的窗口中輸入"VB"D)單擊該文本框，在該文本框中直接輸入"VB"參考答案：A31.以下控件中，能顯示滾動條的是A)文本框B)形狀C)標簽D)圖片框參考答案：A32.如果將文本框的一個屬性設置為True,則運行時不能對該文本框中的內容進行編輯，這個屬性是A)LockedB)MultiLineC)TabStopD)Visible參考答案：A33.以下關于文本框Text1的敘述中，錯誤的是A)Text1.MaxLength=20表示文本框允許輸入的最大字符數為20B)Text1.PasswordChar="@"表示在文本框中輸入的字符都顯示為"@"C)a=Text1.Caption表示把在文本框中輸入的內容賦給變量aD)Text1.Enabled=False表示把文本框設置為禁用參考答案：C34.以下關于文本框的敘述中，正確的是A)當Enabled屬性為False時，其Tab順序不起作用B)當TabStop屬性為False時，不能接收從鍵盤輸入的數據C)當獲得焦點時，觸發LostFocus事件D)若PassWord屬性設為"a"，則輸入到文本框的字符將顯示為"*"參考答案：A35.窗體上有一個名稱為Text1的文本框，名稱為Check1的兩個復選框構成的控件數組，下標分別為1、2。窗體外觀如圖所示。要求在程序運行時，改變復選框選中狀態，則文本框中文本的字體做相應變化。為此，某人編寫了如下程序代碼：PrivateSubCheck1_Click(IndexAsInteger)IfIndex=1AndCheck1(1).ValuethenText1.FontItalic=TrueElseText1.FontItalic=FalseEndIfIfCheck1(2).value=1thenText1.FontBold=TrueEndIfIfCheck1(2).value=0ThenText1.FontBold=FalseEndIfEndSub但是，以上程序在運行中不能完全達到要求，應進行修改，下面正確的修改是A)將IfIndex=1AndCheck1(1).ValueThen改為IfCheck1(1).ValueThenB)將第1個If條件中的Check1(1).Value改為Check1(1).Value=TrueC)將第2個If條件中的Check1(2).Value=1改為Check1(2).Value=TrueD)將第3個If條件中的Check1(2).Value=0改為Check1(2).Value=False參考答案：A36.對于文本框控件，下列說法錯誤的是A)當Locked屬性值為True時，可以通過程序代碼修改文本框內容B)當Locked屬性值為False時，用戶可以直接編輯修改文本框內容C)MaxLength屬性值既可以在設計階段設定，也可以在運行時設定D)當文本框可以顯示多行文本時，MaxLength屬性用來確定每行最大字符數參考答案：D37.為了改變文本框中所顯示文本的顏色，需設置的屬性為A)FontColorB)BackColorC)ForeColorD)FillColor參考答案：C38.對于文本框，用來設置允許輸入的最大字符數的屬性為A)LengthB)MaxLengthC)SelLengthD)MultiLine參考答案：B39.窗體上有2個名稱分別為Text1和Text2的文本框，1個名稱為Command1的命令按鈕。單擊Command1時，Text1中選中的文本將顯示在Text2中。下列能實現上述操作的事件過程是A)PrivateSubCommand1_Click()Text2.Text=Mid(Text1.Text,Text1.SelStart,Text1.SelLength)EndSubB)PrivateSubCommand1_Click()Text2.Text=Mid(Text1.Text,,Text1.SelLength,Text1.SelStart)EndSubC)PrivateSubCommand1_Click()Text2.Text=Mid(Text1.Text,Text1.SelStart+1,Text1.SelLength)EndSubD)PrivateSubCommand1_Click()Text2.Text=Mid(Text1.Text,Text1.SelStart-1,Text1.SelLength)EndSub參考答案：C40.為了使文本框中的文本能夠水平滾動，應采取的正確方法是A)把文本框的ScrollBars屬性設置為1-HorizontalB)把文本框的MultiLine屬性設置為TrueC)