VB程序設(shè)計試題及答案

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

2、) KeyPress (D) GotFocus5. 下而A是合法的變量名。(A) X_yz (B) 123ab (C) integer (D) X-Y6. 以下關(guān)系表達(dá)式中，其值為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提供了結(jié)構(gòu)化程序設(shè)計的三種基本結(jié)構(gòu)，

3、三種基本結(jié)構(gòu)是D。(A) 遞歸結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)(B) 選擇結(jié)構(gòu)、過程結(jié)構(gòu)、順序結(jié)構(gòu)(C) 過程結(jié)構(gòu).輸入輸岀結(jié)構(gòu).轉(zhuǎn)向結(jié)構(gòu) (D)選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)、順序結(jié)構(gòu)9. 下面If語句統(tǒng)計滿足性別為男、職稱為副教授以上、年齡小于40歲條件的人數(shù)，不正確的語句是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下列關(guān)于Do Loop循環(huán)結(jié)構(gòu)執(zhí)行循環(huán)次數(shù)的描述正確的是D o(A) Do WhileLoop循環(huán)和 Do Loop Until 循環(huán)至少都執(zhí)行一次(B) Do WhileLoop循環(huán)和Do Loop Until循環(huán)可能都不執(zhí)行(C) Do WhileLoop循環(huán)至少執(zhí)彳丁一次和Do

5、 Loop Until循環(huán)可能不執(zhí)行(D) Do WhileLoop循環(huán)可能不執(zhí)行和 Do Loop Until 循環(huán)至少執(zhí)行一次11. 以下B是正確的For Next結(jié)構(gòu)。(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. 如下數(shù)組聲明語句，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有值)，能正確聲明可變長數(shù)組的是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. 要想從子過程調(diào)用后返回兩個結(jié)果，下面子過程語句說明合法的是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. 設(shè)有如下程序段：Public Sub Fl(n%)n=3*n+4End SubPrivate Sub Comma nd l_Click()Dim n%, m%n=3m=4'調(diào)用Fl語句End Sub則在Commandl_CUck事件中有效的調(diào)用語句是B。(A)CallFl(n+m) (B) Call Fl(m) (C) CallFl(5)(D) Call Fl(m+5)16. 用來設(shè)置粗體字的屬性是C o

8、(A) Fontltalic (B) FontName (C) FontBold (D) FontSize17. 假定定時器的Interval 屬性為1000, Enabled屬性為True ,調(diào)用下面的事件過程，程序運(yùn)行結(jié)束后變量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. 在下列關(guān)于通用對話框的敘述中，錯誤的是B。(A) 顯示“字體”對話框(B) 在“打開”或“另存為”對話框中，用戶選擇的文件名可以經(jīng)File Ti

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

10、形式存放在文件中，所以可通過記事木打開(D) 文件的組織結(jié)構(gòu)復(fù)雜21. 隨機(jī)文件是因為C。(A)文件中的內(nèi)容是通過隨機(jī)數(shù)產(chǎn)生的(B) 文件中的記錄號通過隨機(jī)數(shù)產(chǎn)生的(C) 可對文件中的記錄根據(jù)記錄號隨機(jī)地讀/寫(D) 文件的每條記錄的長度是隨機(jī)的22. 從磁盤上讀入一個文件名為“ c:”順序文件，如下 A正確。(A) F= “c:”O(jiān)pen F For Input As #1(B) F= “c:”O(jiān)pen “F” For Input As #2(C) Open “c:” For Input As #1(D) Open c: For Input As #223. 坐標(biāo)度量單位可由通過來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數(shù)據(jù)控件建立與數(shù)據(jù)源的鏈接，設(shè)置操作過程按 A順序進(jìn)行。選擇數(shù)據(jù)源連接方式；選擇數(shù)據(jù)庫類型；指定數(shù)據(jù)庫文件名；指定記錄源(A)(B)(C)(D)®二、填空題1. VB是建立在BASIC語言基礎(chǔ)上的 可見 化編程語言或編程環(huán)境。2. 在窗體上己建立多個控件如Textl > Labell > Comman

12、d 1,若要程序一運(yùn)行時焦點就定位在Command 1控件上，應(yīng)對Command 1控件設(shè)置Tabindex 屬性的值為0。3 .在VB中，1234、123456&. +5、+5這4個常數(shù)分別表示整形、 長整形 、 單精度 、雙精度類型。4表示x是5的倍數(shù)或是9的倍數(shù)的邏輯表達(dá)式為 x mod 5 = 0 or x mod 9=0。5.數(shù)組聲明時下標(biāo)下界默認(rèn)為0,利用Opation Basel語句可以使下標(biāo)為1。6.傳地址方式是當(dāng)過程被調(diào)用時，形參和實參共享存儲單元7. 窗體中的模塊級變量應(yīng)在窗口模塊 段聲明，它作用于該窗體的全局范圍8. 當(dāng)用戶單擊滾動條的空口處時，滑塊移動的增量值由

13、LargeChange屬性決定。9. 如果菜單標(biāo)題的某個字母前輸入一個“ &”符號，那么該字母就成了熱鍵字母；如果建立菜單時在標(biāo)題文本框中輸入一個“(減號)”符號，那么顯示時形成一個分隔符。10. 使用Scale方法可以自定義坐標(biāo)系。11. 使用Line方法畫矩形，不許在指令中使用關(guān)鍵字 B。12. 使用 SQL語句設(shè)置ADO控件的 RecordSource 屬性，這 CommandType屬性需要設(shè)置成l(adCmdText)或者(adCmdUnknown) o13為了顯示一個窗體，所使用的方法為show；而為了隱藏一個窗體，所使用的方法為_Hideo14. 如果要將某個命令按鈕不顯

14、示，則可將 _Visible 屬性設(shè)置為False15. 在VB中窗體文件的擴(kuò)展名為。三、編程應(yīng)用題1. 程序閱讀，寫出下列程序的運(yùn)行結(jié)果。(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(

15、imin): a(iinin)=tPrint sum; a(0)End Sub輸出結(jié)果:510 19(2)Private Sub Commandl_Click()Dim ch as String*lch= ” 8 nThenIfUCase(ch)>= " A" And UCase<= " Zch; ”是字母字符”Elselfch>= " 0 " And ch<= " 9 n ThenCh； ”是數(shù)字字符”Elsech; ”是其他字符”End IfEnd Sub輸出結(jié)果：是數(shù)字字符(3)Public Sub Pr

16、oc(a%()Static i%Doa(i)=a(i)+a(i+l)i=i+lLoop While i<2End SubPrivate 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輸出結(jié)果：357452. 補(bǔ)充程序(1) 如下是賬號和密碼輸入的檢驗程序，運(yùn)行界而如下圖1所示。輸入帳號和密碼后，單擊“檢驗密碼”按鈕，如果密碼正確則程序結(jié)束，假定密碼為“ sOOl”；如果密碼不正確， 則彈出如下圖2所示對話框，單擊“取消”則程序結(jié)束，單擊“重試”則返回圖1窗體，且密碼文本框 Text2內(nèi)容被清空，等待再次輸入。補(bǔ)充完整如下程序。圖1圖2Private Sub Comma nd 1 _Click()Dim i As IntegerIf os 001 Theni = MsgBox(M 密碼錯誤",5 + vbExclamation," 警告")Ifi<>4 ThenEndElseEndEnd IfEnd IfEnd