VB程序設計試題及答案一

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

2、窗體上已經創(chuàng)建了一個文本框對象Textl,可以通過 C事件獲得輸入鍵值的ASCII碼。(A) Change (B) LostFocus(C) KeyPress (D) GotFocus5. 下面 A 是合法的變量名。(A) X_yz (B) 123ab。(C) integer (D) X-Y6. 以下關系表達式中，其值為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. 下列關于DoLoop循環(huán)結構執(zhí)行循環(huán)次數的描述正確的是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結構。(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. 如下數組聲明語句， 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 有值)，能正確聲明可變長數組的是 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. 要想從子過程調用后返回兩個結果，下面子過程語句說明合法的是 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. 設有如下程序段：Public Sub F1(n%)n=3*n+4End SubPrivate Sub Command1_Click( )Dim n%, m%n=3m=4調用F1語句End Sub則在 Command1_Click 事件中有效的調用語句是 B 。(A) Call F1(n+m) (B) Call F1(m) (C) Call F1(5) (D) Call F1(m+5)1 6.用來設置粗體字的屬性是 C 。(A) FontItalic (B) FontName (C) FontBold (D)

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

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

9、開(D) 文件的組織結構復雜21. 隨機文件是因為C 。(A) 文件中的內容是通過隨機數產生的(B) 文件中的記錄號通過隨機數產生的(C) 可對文件中的記錄根據記錄號隨機地讀/寫(D) 文件的每條記錄的長度是隨機的22. 從磁盤上讀入一個文件名為“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. 坐標度量單位可由通過來D 改變。(A)Drawstyle 屬性 (B) DrawWidth 屬性(C) Scale方法(D) ScaleMode 屬性24. 指令“ Circle (1000, 1000), 500, 8, -6, -3 ”將繪制 A 。(A) 畫圓 (B) 橢圓 (C) 圓弧 (D) 扇形25. 用 ADO 數據控件建立與數據源的鏈接，設置操作過程按A 順序進行。選擇數據源連接方式；選擇數據庫類型；指定數據庫文件名；指定記錄源(A) (B) (C) (D) 二、填空題1. VB是建立在 BASIC語言基礎上的 可見化編程語言或編程環(huán)境。2在窗體上已建立多個控件如Text

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

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

13、ow ；而為了隱藏一個窗體，所使用的方法為_Hide 。1 4如果要將某個命令按鈕不顯示，則可將_Visible 屬性設置為 False15 在 VB 中窗體文件的擴展名為 .FRM 。三、編程應用題1. 程序閱讀，寫出下列程序的運行結果。(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; 是數字字符Elseform1.Print ch; 是其他字符End IfEnd Sub 輸出結果： 是數字字符(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 輸出結果：3 5 7 4 52. 補充程序 (1)如下是賬號和密碼輸入的檢驗程序，運行界面如下圖1所示。輸入帳號和密碼后，單擊“檢驗密碼”按鈕，如果密碼正確則程序結束，假定密碼為“S001” ；如果密碼不正確，則彈岀如下圖2所示對話框，單擊“取消”則程序結束，單擊“重試”則返回圖1窗體，且密碼文本框Text2內容被清空，等待再次輸入。補充完整如下程序。圖1 圖2Private Sub Command1_Click()Dim i AS IntegerIf text2.textS001 Theni = MsgBox(密碼錯誤,5 + vbExclamation,警告)If i 4 ThenEndElseEndText2.SetFocusEnd IfEnd IfEnd Sub (2)以下是求最大公約數和最小公倍數