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

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

2、 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=男And age=4O And Right(duty , 2)=教授Then n=n+l(D) If sex=男“ And age=4O A

3、nd 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 til循環(huán)至少執(zhí)行一次11. 以下 B是正確的ForNext結(jié)構(gòu)。(A) For x=1 To Step 10 (B) For x=3

4、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ù)組聲明語(yǔ)句， 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. 下列語(yǔ)句中(假定變量 n 有值)，能正確聲明可變長(zhǎng)數(shù)組的是 A 。(A) Dim a( ) As Integer (B) Dim a( ) As

5、 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. 要想從子過(guò)程調(diào)用后返回兩個(gè)結(jié)果，下面子過(guò)程語(yǔ)句說(shuō)明合法的是 C 。(A) Sub f2(ByVal n%, ByVal m%) (B) Sub f1(n%, ByVal m%)(C) Sub f1(n%, m%) (D) Sub f1(ByVal n%, m%)15. 設(shè)有如下程序段：Public Sub F1(n%)

6、n=3*n+4End SubPrivate Sub Command1_Click( )Dim n%, m% n=3 m=4調(diào)用F1語(yǔ)句End Sub則在 Command1_Click 事件中有效的調(diào)用語(yǔ)句是 B 。(A) Call F1(n+m) (B) Call F1(m) (C) Call F1(5) (D) Call F1(m+5)1 6.用來(lái)設(shè)置粗體字的屬性是 C 。(A) FontItalic (B) FontName (C) FontBold (D) FontSize17. 假定定時(shí)器的Interval屬性為1000 , Enabled屬性為T(mén)rue，調(diào)用下面的事件過(guò)程，程序運(yùn)行結(jié)

7、 束后變量 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ì)話(huà)框的敘述中，錯(cuò)誤的是B(A) 顯示 “字體 ”對(duì)話(huà)框(B) 在“打開(kāi) ”或“另存為 ”對(duì)話(huà)框中，用戶(hù)選擇的文件名可以經(jīng) FileTitle 屬性返回(C) 在“打開(kāi) ”或“另存為 ”對(duì)話(huà)框中，用戶(hù)選擇的文件名機(jī)器路徑可以經(jīng) FileName 屬性返回(D)19. 當(dāng)用戶(hù)按下并且釋放一個(gè)鍵后會(huì)觸發(fā)KeyPress、 KeyUp 和 KeyDo

8、wn 事件，這三個(gè)事件發(fā)生的順序是 C 。(A) KeyPress、 KeyDown、 KeyUp(B) KeyDown、 KeyUp、 KeyPress(C) KeyDown、 KeyPress、 KeyUp(D) 沒(méi)有規(guī)律20. 在下面關(guān)于順序文件的描述中，正確的是 C 。(A) 順序文件中每行的長(zhǎng)度都是相同的。(B) 可以通過(guò)編程對(duì)文件中的某行方便地進(jìn)行修改(C) 數(shù)據(jù)以ASCII碼的形式存放在文件中，所以可通過(guò)記事本打開(kāi)(D) 文件的組織結(jié)構(gòu)復(fù)雜21. 隨機(jī)文件是因?yàn)?C 。(A) 文件中的內(nèi)容是通過(guò)隨機(jī)數(shù)產(chǎn)生的(B) 文件中的記錄號(hào)通過(guò)隨機(jī)數(shù)產(chǎn)生的(C) 可對(duì)文件中的記錄根據(jù)記錄號(hào)隨

9、機(jī)地讀/寫(xiě)(D) 文件的每條記錄的長(zhǎng)度是隨機(jī)的22. 從磁盤(pán)上讀入一個(gè)文件名為順序文件，如下 A 正確。(A) F=Open F For Input As #1(B) F=Open “F”For Input As #2(C) Open “ ”For Input As #1 (D) Open c: For Input As #223. 坐標(biāo)度量單位可由通過(guò)來(lái)D 改變。(A)Drawstyle 屬性 (B) DrawWidth 屬性(C) Scale方法(D) ScaleMode 屬性24. 指令 Circle (1000, 1000), 500, 8, -6, -3 將繪制 A。(A) 畫(huà)圓 (

10、B) 橢圓 (C) 圓弧 (D) 扇形25. 用 ADO 數(shù)據(jù)控件建立與數(shù)據(jù)源的鏈接，設(shè)置操作過(guò)程按A 順序進(jìn)行。選擇數(shù)據(jù)源連接方式；選擇數(shù)據(jù)庫(kù)類(lèi)型；指定數(shù)據(jù)庫(kù)文件名；指定記錄源(A) (B) (C) (D) 二、填空題1. VB是建立在 BASIC語(yǔ)言基礎(chǔ)上的 可見(jiàn)化編程語(yǔ)言或編程環(huán)境。2在窗體上已建立多個(gè)控件如Text1、 Label1 、Command1 ，若要程序一運(yùn)行時(shí)焦點(diǎn)就定位在Command1 控件上，應(yīng)對(duì) Command1 控件設(shè)置 TabIndex 屬性的值為 0 。3.在 VB 中， 1234、123456&、+5、+5這4個(gè)常數(shù)分別表示 整形 、 長(zhǎng)整形 、 單精度 、

11、雙精 度 類(lèi)型。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 語(yǔ)句可以使下標(biāo)為 1 。6傳地址方式是當(dāng)過(guò)程被調(diào)用時(shí)，形參和實(shí)參共享存儲(chǔ)單元 。7窗體中的模塊級(jí)變量應(yīng)在窗口模塊 段聲明，它作用于該窗體的 全局范圍 。8當(dāng)用戶(hù)單擊滾動(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

12、方法可以自定義坐標(biāo)系。11使用 Line 方法畫(huà)矩形，不許在指令中使用關(guān)鍵字B 。12使用 SQL 語(yǔ)句設(shè)置 ADO 控件的 RecordSource 屬性，這 CommandType 屬性需要設(shè)置成1(adCmdText)或者(adCmdUnknown)。1 3 為了顯示一個(gè)窗體，所使用的方法為show ；而為了隱藏一個(gè)窗體，所使用的方法為_(kāi)Hide 。1 4如果要將某個(gè)命令按鈕不顯示，則可將_Visible 屬性設(shè)置為 False15 在 VB 中窗體文件的擴(kuò)展名為。三、編程應(yīng)用題1. 程序閱讀，寫(xiě)出下列程序的運(yùn)行結(jié)果。(1)Private Sub Command1_Click( )Dim

13、 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)= AAnd UCase=0And ch= 9Thench; 是數(shù)字字符Elsech; 是其他字符End IfEnd Sub輸出結(jié)果：是數(shù)字字符(3) Public Sub Proc(a%( ) ) Static i% Do a(i)=a(i)+a(i+1) i=i+1 Loop While i2 End Sub P

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