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

1、V B 程 序 設(shè) 計(jì) 試 題 及 答 案 ( 一 )、單選題1. VB6.0是一種面向 B的編程環(huán)境。(A) 機(jī)器 (B) 對(duì)象(C) 過程 (D) 應(yīng)用2. 要使Forml窗體的標(biāo)題欄顯示“歡迎使用 VB,以下 D語句是正確的(A) Forml.Caption= “歡迎使用 VB”(B) Forml.Caption= 歡迎使用 VB(C) Forml.Caption= 歡迎使用 VB(D) Forml.Caption= 歡迎使用 VB3. 若要使命令按鈕不可操作,要對(duì) A 屬性進(jìn)行設(shè)置。(A) Enabled (B)Visible(C) Backcolor (D)Caption4. 如果在

2、窗體上已經(jīng)創(chuàng)建了一個(gè)文本框?qū)ο骉extl,可以通過 C事件獲得輸入鍵值的ASCII碼。(A) Change (B) LostFocus(C) KeyPress (D) GotFocus5. 下面 A 是合法的變量名。(A) X_yz (B) 123ab。(C) integer (D) X-Y6. 以下關(guān)系表達(dá)式中，其值為False的是A。(A) ABCAbC (B) 女男(C) BASIC=UCase(basic) (D) 123O Then n=n+l(B) If sex=男“ And age=4O And (duty=教授Or duty=副教授)Then n=n+l(C) If sex=男

3、And age=4O And Right(duty , 2)=教授Then n=n+l(D) If sex=男“ And age=4O And duty=教授 “ And duty=副教授 “ Then n=n+l10. 下列關(guān)于DoLoop循環(huán)結(jié)構(gòu)執(zhí)行循環(huán)次數(shù)的描述正確的是D。(A) Do WhileLoop循環(huán)和DoLoop Un til循環(huán)至少都執(zhí)行一次(B) Do WhileLoop循環(huán)和 DoLoop Un til循環(huán)可能都不執(zhí)行(C) Do WhileLoop循環(huán)至少執(zhí)行一次和DoLoop Un til循環(huán)可能不執(zhí)行(D) Do WhileLoop循環(huán)可能不執(zhí)行和DoLoop Un

4、 til循環(huán)至少執(zhí)行一次11. 以下 B是正確的ForNext結(jié)構(gòu)。(A) For x=1 To Step 10 (B) For x=3 To -3 Step -3Next x Next x(C) For x=1 To 10 (D) For x=3 to 10 step 3re:Next x Next y If i=10 Then GoTO re12. 如下數(shù)組聲明語句， B 是正確的。(A) Dim a3,4 As Integer(B) Dim a(3,4) As Integer(C) Dim a(n,n) As Integer(D) Dim a(3 4) As Integer13. 下列語

5、句中(假定變量 n 有值)，能正確聲明可變長(zhǎng)數(shù)組的是 A 。(A) Dim a( ) As Integer (B) Dim a( ) As IntegerReDim a(n) ReDim a(n) As String(C) Dim a( ) As Integer (D) Dim a(10) As IntegerReDim a(3, 4) ReDim a(n+10)ReDim Preserve a(4, 4)14. 要想從子過程調(diào)用后返回兩個(gè)結(jié)果，下面子過程語句說明合法的是 C 。(A) Sub f2(ByVal n%, ByVal m%) (B) Sub f1(n%, ByVal m%)(C)

6、 Sub f1(n%, m%) (D) Sub f1(ByVal n%, m%)15. 設(shè)有如下程序段：Public Sub F1(n%)n=3*n+4End SubPrivate Sub Command1_Click( )Dim n%, m%n=3m=4調(diào)用F1語句End Sub則在 Command1_Click 事件中有效的調(diào)用語句是 B 。(A) Call F1(n+m) (B) Call F1(m) (C) Call F1(5) (D) Call F1(m+5)1 6.用來設(shè)置粗體字的屬性是 C 。(A) FontItalic (B) FontName (C) FontBold (D)

7、 FontSize17. 假定定時(shí)器的Interval屬性為1000 , Enabled屬性為True，調(diào)用下面的事件過程，程序運(yùn)行結(jié) 束后變量 x 的值為 D 。Dim x As IntegerSub Timer1_Timer( )For i=1 to 10x=x+1Next iEnd Sub(A) 1000 (B) 10000 (C) 10 (D) 以上都不對(duì)18. 在下列關(guān)于通用對(duì)話框的敘述中，錯(cuò)誤的是B 。(A) CommonDialog1.ShowFont 顯示“字體”對(duì)話框(B) 在“打開”或“另存為”對(duì)話框中，用戶選擇的文件名可以經(jīng) FileTitle 屬性返回(C) 在“打開”

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

9、開(D) 文件的組織結(jié)構(gòu)復(fù)雜21. 隨機(jī)文件是因?yàn)镃 。(A) 文件中的內(nèi)容是通過隨機(jī)數(shù)產(chǎn)生的(B) 文件中的記錄號(hào)通過隨機(jī)數(shù)產(chǎn)生的(C) 可對(duì)文件中的記錄根據(jù)記錄號(hào)隨機(jī)地讀/寫(D) 文件的每條記錄的長(zhǎng)度是隨機(jī)的22. 從磁盤上讀入一個(gè)文件名為“c:t1.txt ”順序文件，如下 A 正確。(A) F=“ c:t1.txt ”O(jiān)pen F For Input As #1(B) F=“ c:t1.txt ”O(jiān)pen “F” For Input As #2(C) Open “ c:t1.txt ” For Input As #1(D) Open c:t1.txt For Input As #22

10、3. 坐標(biāo)度量單位可由通過來D 改變。(A)Drawstyle 屬性 (B) DrawWidth 屬性(C) Scale方法(D) ScaleMode 屬性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在窗體上已建立多個(gè)控件如Text

11、1、 Label1 、Command1 ，若要程序一運(yùn)行時(shí)焦點(diǎn)就定位在Command1 控件上，應(yīng)對(duì) Command1 控件設(shè)置 TabIndex 屬性的值為 0 。3.在VB中，1234、123456&、1.2346E+5、1.2346D+5這4個(gè)常數(shù)分別表示 整形、長(zhǎng)整形、單 精度 、 雙精度 類型。4表示 x 是5的倍數(shù)或是 9的倍數(shù)的邏輯表達(dá)式為 x mod 5 = 0 or x mod 9=0 。 5數(shù)組聲明時(shí)下標(biāo)下界默認(rèn)為0，利用 Opation Base 1 語句可以使下標(biāo)為 1 。6傳地址方式是當(dāng)過程被調(diào)用時(shí)，形參和實(shí)參共享存儲(chǔ)單元 。7窗體中的模塊級(jí)變量應(yīng)在窗口模塊 段聲明，

12、它作用于該窗體的 全局范圍 。8當(dāng)用戶單擊滾動(dòng)條的空白處時(shí)，滑塊移動(dòng)的增量值由LargeChange 屬性決定。9如果菜單標(biāo)題的某個(gè)字母前輸入一個(gè)“& ”符號(hào)，那么該字母就成了熱鍵字母；如果建立菜單時(shí)在標(biāo)題文本框中輸入一個(gè)“- (減號(hào) ) ”符號(hào)，那么顯示時(shí)形成一個(gè)分隔符。10使用 Scale 方法可以自定義坐標(biāo)系。11使用 Line 方法畫矩形，不許在指令中使用關(guān)鍵字 B 。12使用 SQL 語句設(shè)置 ADO 控件的 RecordSource 屬性，這 CommandType 屬性需要設(shè)置成1(adCmdText)或者(adCmdUnknown)。1 3 為了顯示一個(gè)窗體，所使用的方法為sh

13、ow ；而為了隱藏一個(gè)窗體，所使用的方法為_Hide 。1 4如果要將某個(gè)命令按鈕不顯示，則可將_Visible 屬性設(shè)置為 False15 在 VB 中窗體文件的擴(kuò)展名為 .FRM 。三、編程應(yīng)用題1. 程序閱讀，寫出下列程序的運(yùn)行結(jié)果。(1)Private Sub Command1_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=1 to UBound(a)sum=sum+a(i)If a(i)= AA

14、nd UCase=0And ch= 9Thenform1.Print ch; 是數(shù)字字符Elseform1.Print ch; 是其他字符End IfEnd Sub 輸出結(jié)果： 是數(shù)字字符(3)Public Sub Proc(a%( ) )Static i%Doa(i)=a(i)+a(i+1)i=i+1Loop While i2End SubPrivate Sub Command1_Click( )Dim m%, n%, x%(10)For i=0 to 4: x(i)=i+1: Next iFor i=1 to 2: Call Proc(x): Next iFor i=0 to 4: Pri

15、nt x(i); : Next iEnd Sub 輸出結(jié)果：3 5 7 4 52. 補(bǔ)充程序 (1)如下是賬號(hào)和密碼輸入的檢驗(yàn)程序，運(yùn)行界面如下圖1所示。輸入帳號(hào)和密碼后，單擊“檢驗(yàn)密碼”按鈕，如果密碼正確則程序結(jié)束，假定密碼為“S001” ；如果密碼不正確，則彈岀如下圖2所示對(duì)話框，單擊“取消”則程序結(jié)束，單擊“重試”則返回圖1窗體，且密碼文本框Text2內(nèi)容被清空，等待再次輸入。補(bǔ)充完整如下程序。圖1 圖2Private Sub Command1_Click()Dim i AS IntegerIf text2.textS001 Theni = MsgBox(密碼錯(cuò)誤,5 + vbExclamation,警告)If i 4 ThenEndElseEndText2.SetFocusEnd IfEnd IfEnd Sub (2)以下是求最大公約數(shù)和最小公倍數(shù)