1、VB程序設計試題及答案(一)一、單選題1. 是一種而向B的編程環境。(A) 機器(B)對象(C)過程(D)應用2. 要使FormI窗體的標題欄顯示”歡迎使用VB'以下D語句是正確的。(A) = “歡迎使用VB”(B) -歡迎使用VB'(C) =歡迎使用VB(D) =H歡迎使用VB"3. 若要使命令按鈕不可操作，要對A屬性進行設置。(A) Enabled (B)Visible(C) Backcolor (D)Caption4. 如果在窗體上己經創建了一個文本框對象Textl ,可以通過C事件獲得輸入鍵值的ASCII碼。(A) Change (B) LostFocus(C

2、) KeyPress (D) GotFocus5. 下而A是合法的變量名。(A) X_yz (B) 123ab (C) integer (D) X-Y6. 以下關系表達式中，其值為False的是A。(A) “ABC”>”AbC“ (B) “ 女">"男”(C) "BASICH=UCase("basic) (D) T23”v“23“7. 為了給x、y、z三個變量賦初值1,下面正確的賦值語句是A。(A) x=l:y=l:z=l (B) x=l,y=l,z=l(C) x=y=z= 1 (D) xyz=l8. VB提供了結構化程序設計的三種基本結構，

3、三種基本結構是D。(A) 遞歸結構、選擇結構、循環結構(B) 選擇結構、過程結構、順序結構(C) 過程結構.輸入輸岀結構.轉向結構 (D)選擇結構、循環結構、順序結構9. 下面If語句統計滿足性別為男、職稱為副教授以上、年齡小于40歲條件的人數，不正確的語句是Do(A) If sex="男 ” And age =40 And InStr(duty,"教授")>O Then n=n+l(B) If sex="男"And age =40 And (duty="教授"Or duty=" 副教授")Then

4、 n=n+l(C) Ifsex=M男"And age =40 And Right(duty,2)="教授"Then n=n+l(D) If sex=M男"And age=4O And duty=” 教授"And duty=” 副教授"Thenn=n+110下列關于Do Loop循環結構執行循環次數的描述正確的是D o(A) Do WhileLoop循環和 Do Loop Until 循環至少都執行一次(B) Do WhileLoop循環和Do Loop Until循環可能都不執行(C) Do WhileLoop循環至少執彳丁一次和Do

5、 Loop Until循環可能不執行(D) Do WhileLoop循環可能不執行和 Do Loop Until 循環至少執行一次11. 以下B是正確的For Next結構。(A) For x=l To Step 10 (B) For x=3 To -3 Step -3Next x Next x(C) For x=l To 10 (D) For x=3 to 10 step 3Ne xt x Ne xt yIfi=10 Then GoTO re12. 如下數組聲明語句，B是正確的。(A) Dim a3,4 As Integer(B) Dim a(3,4) As Integer(C) Dim a

6、(n,n) As Integer(D) Dim a(3 4) As Integer13下列語句中(假定變量n有值)，能正確聲明可變長數組的是A o(A) Dim a() As Integer (B) Dim a() As IntegerRe Dim a(n) Re Dim a(n) As String(C) Dim a() As Integer (D) Dim a(10) As IntegerRe Dim a(3, 4) Re Diin a(n+10)Re Dim Preserve a(4, 4)14. 要想從子過程調用后返回兩個結果，下面子過程語句說明合法的是C。(A) Sub f2(ByV

7、al n%, By Vai m%) (B) Sub fl (n%, By Vai m%)(C) Sub fl(n%, m%) (D) Sub fl (ByVai n%, m%)15. 設有如下程序段：Public Sub Fl(n%)n=3*n+4End SubPrivate Sub Comma nd l_Click()Dim n%, m%n=3m=4'調用Fl語句End Sub則在Commandl_CUck事件中有效的調用語句是B。(A)CallFl(n+m) (B) Call Fl(m) (C) CallFl(5)(D) Call Fl(m+5)16. 用來設置粗體字的屬性是C o

8、(A) Fontltalic (B) FontName (C) FontBold (D) FontSize17. 假定定時器的Interval 屬性為1000, Enabled屬性為True ,調用下面的事件過程，程序運行結束后變量x的值為D oDim x As IntegerSub Timerl_Tiiner()For i=l to 10x=x+lNe xt iEnd Sub(A) 1000 (B) 10000 (C) 10 (D)以上都不對18. 在下列關于通用對話框的敘述中，錯誤的是B。(A) 顯示“字體”對話框(B) 在“打開”或“另存為”對話框中，用戶選擇的文件名可以經File Ti

9、tle 屬性返回(C) 在“打開”或“另存為”對話框中，用戶選擇的文件名機器路徑可以經File Na me屬性返回(D)19. 當用戶按下并且釋放一個鍵后會觸發KeyPress、KeyUp和Key Down事件，這三個事件發生的順序 是C。(A) KeyPress、Key Down、KeyUp(B) KeyDown > KeyUp> KeyPress(C) Key Down、KeyPress、KeyUp(D) 沒有規律20. 在下面關于順序文件的描述中，正確的是 C。(A) 順序文件中每行的長度都是相同的。(B) 可以通過編程對文件中的某行方便地進行修改(C) 數據以ASCII碼的

10、形式存放在文件中，所以可通過記事木打開(D) 文件的組織結構復雜21. 隨機文件是因為C。(A)文件中的內容是通過隨機數產生的(B) 文件中的記錄號通過隨機數產生的(C) 可對文件中的記錄根據記錄號隨機地讀/寫(D) 文件的每條記錄的長度是隨機的22. 從磁盤上讀入一個文件名為“ c:”順序文件，如下 A正確。(A) F= “c:”Open F For Input As #1(B) F= “c:”Open “F” For Input As #2(C) Open “c:” For Input As #1(D) Open c: For Input As #223. 坐標度量單位可由通過來D改變。(

11、A)Drawstyle 屬性(B) DrawWidth 屬性(C) Scale 方法(D) Scale Mode 屬性24. 指令 “ Circle (1000, 1000), 500, 8,-6, -3” 將繪制 A。(A)畫圓(B)橢圓(C)圓弧(D)扇形25. 用ADO數據控件建立與數據源的鏈接，設置操作過程按 A順序進行。選擇數據源連接方式；選擇數據庫類型；指定數據庫文件名；指定記錄源(A)(B)(C)(D)®二、填空題1. VB是建立在BASIC語言基礎上的 可見 化編程語言或編程環境。2. 在窗體上己建立多個控件如Textl > Labell > Comman

12、d 1,若要程序一運行時焦點就定位在Command 1控件上，應對Command 1控件設置Tabindex 屬性的值為0。3 .在VB中，1234、123456&. +5、+5這4個常數分別表示整形、 長整形 、 單精度 、雙精度類型。4表示x是5的倍數或是9的倍數的邏輯表達式為 x mod 5 = 0 or x mod 9=0。5.數組聲明時下標下界默認為0,利用Opation Basel語句可以使下標為1。8. 當用戶單擊滾動條的空口處時，滑塊移動的增量值由LargeChange屬性決定。9. 如果菜單標題的某個字母前輸入一個“ &”符號，那么該字母就成了熱鍵字母；如果建

13、立菜單時在標題文本框中輸入一個“(減號)”符號，那么顯示時形成一個分隔符。10. 使用Scale方法可以自定義坐標系。11. 使用Line方法畫矩形，不許在指令中使用關鍵字 B。12. 使用 SQL語句設置ADO控件的 RecordSource 屬性，這 CommandType屬性需要設置成l(adCmdText)或者(adCmdUnknown) o13為了顯示一個窗體，所使用的方法為show；而為了隱藏一個窗體，所使用的方法為_Hideo14. 如果要將某個命令按鈕不顯示，則可將 _Visible 屬性設置為False15. 在VB中窗體文件的擴展名為。三、編程應用題1. 程序閱讀，寫出下列

14、程序的運行結果。(1)Private Sub Comma nd l_Click()Dim a, i%, min%, imin%, sum%, t%a=Array(26, 43, 61, 87, 33, 19, 37, 59, 76, 69)min=a(0): imin=0: sum=a(0)For i=l to UBound(a)sum=sum+a(i)If a(i)< min Then min=a(i): iinin=iNe xt it=a(O): a(0)=a(imin): a(iinin)=tPrint sum; a(0)End Sub輸出結果:510 19(2)Private S

15、ub Commandl_Click()Dim ch as String*lch= ” 8 nThenIfUCase(ch)>= " A" And UCase<= " Zch; ”是字母字符”Elselfch>= " 0 " And ch<= " 9 n ThenCh； ”是數字字符”Elsech; ”是其他字符”End IfEnd Sub輸出結果：是數字字符(3)Public Sub Proc(a%()Static i%Doa(i)=a(i)+a(i+l)i=i+lLoop While i<2End Su

16、bPrivate Sub Commandl_Click()Dim m%, n%, x%(10)For i=0 to 4: x(i)=i+l: Next iFor i=l to 2: Call Proc(x): Next iFor i=0 to 4: Print x(i); : Next iEnd Sub輸出結果：357452. 補充程序(1) 如下是賬號和密碼輸入的檢驗程序，運行界而如下圖1所示。輸入帳號和密碼后，單擊“檢驗密碼”按鈕，如果密碼正確則程序結束，假定密碼為“ sOOl”；如果密碼不正確， 則彈出如下圖2所示對話框，單擊“取消”則程序結束，單擊“重試”則返回圖1窗體，且密碼文本框 Text2內容被清空，等待再次輸入。補充完整如下程序。圖1圖2Private Sub Comma nd 1 _Click()Dim i As IntegerIf os 001 Theni = MsgBox(M 密碼錯誤",5 + vbExclamation," 警告")Ifi<>4 ThenEndElseEndEnd IfEnd IfEnd Sub