《vb程序設(shè)計》期末復(fù)習(xí)題及答案

《《vb程序設(shè)計》期末復(fù)習(xí)題及答案》由會員分享，可在線閱讀，更多相關(guān)《《vb程序設(shè)計》期末復(fù)習(xí)題及答案（52頁珍藏版）》請在裝配圖網(wǎng)上搜索。

1、vb 程序設(shè)計》期末復(fù)習(xí)題及答案 一、填空題 1.創(chuàng)建一個VB應(yīng)用程序三個主要的步驟是 、和 2．當(dāng)程序運行時，要求窗體中的文本框呈現(xiàn)空白，則在設(shè)計時，應(yīng)當(dāng)在此文本框的 窗口中，把此文本框的 屬性設(shè)置成空白。 3 ． Label 和 TextBox 控件用來顯示和輸入文本，如果僅需要讓應(yīng)用程序在窗體中顯示文本 信息，可使用 控件；若允許用戶輸入文本，則應(yīng)使用 控件。 4．窗體的常用方法有 、 、 和 。 5 .要想在代碼中給名為 txtshow的文本框賦予文本：GOOD WORK應(yīng)當(dāng)編寫的語句是 6 .若命令按鈕的名稱為 Cmdopen程序要求單擊該命令

2、按鈕時，打開一個窗口 frml ,請對 以下事件過程填空。 Private Sub Cmdopen End Sub 7 ． Visual Basic 6 種類型的表達(dá)式是 、 、 、 、 、 。 Visual Basic 根據(jù)表 達(dá)式的 來確定表達(dá)式的類型。 8 .表達(dá)式 93 \ 7 Mod 2人2 的值是。 9．已知 a=3， b=4， c=5 ，表達(dá)式 a>b and Not c>a Or c>b And ca And Not b

3、2/02# 的值為 。 11．?dāng)?shù)學(xué)表達(dá)式 sin2x+ 寫成等價的 Visual Basic 表達(dá)式為 。 12.設(shè)某個程序中要用到一個二維數(shù)組，要求數(shù)組名為 A,類型為字符串類型，第一維下 標(biāo)從 1 到 5，第二維下標(biāo)從 -2 到 6，則相應(yīng)的數(shù)組聲明語句為 13．事件就是在對象上所發(fā)生的事情， Visual Basic 中的事件如 、 等。一個對象響應(yīng)的事件可以有 個，用戶不能建立新 的事件。事件過程是指 。假設(shè)某一事件 過程如下： Private Sub cmd1_Click（） Form1.Caption="VB 示例 " End Sub

4、 則響應(yīng)該過程的對象名是 ，事件名是 。 14．對象的方法用于 。當(dāng)方法不需要任何參數(shù)并且也沒有返回值時， 調(diào)用對象的方法的格式為 ,例如，對窗體 Forml使用Show方法，應(yīng)寫成 15． PictureBox 控件可通過設(shè)置其 屬性為 True 使之可自動調(diào)整大??；而 Image 控件可通過設(shè)置其 屬性為 True ，使其加載的圖片能自動調(diào)整大小以適應(yīng) Image。 16．在 Visual Basic 程序中實現(xiàn)復(fù)制文件“ c:\ ”到 d: 盤根目錄下的語句為 、單項選擇題 1 ．下列控件中沒有 Caption 屬性的是（ ） A、標(biāo)簽 B、文本框 C

5、、框架 D、命令按紐 2．除框架外，能對單選按紐分組的控件是（ ）。 A、窗體 B、標(biāo)簽 C、圖片框 D、圖像 3 ．下列符號不能作為 VB 中變量名的是（ ）。 A 、 ABCDEFG B 、 P00000 C 、 89YWDDF D、 xyz 4 ． 下列不屬于 Visual Basic 數(shù)據(jù)文件的是（ ）。 A、順序文件 B、隨機(jī)文件 C、二進(jìn)制文件 D、數(shù)據(jù)庫文 件 5．若要求從文本框中輸入密碼時在文本框中只顯示 * 號，則應(yīng)用在此文本框的屬性窗口中 設(shè)置（ ）。 A、 Text 屬性值為 * B 、 Caption 屬性值為 * C、 Password 屬性值為

6、空 D 、 PasswordChar 屬性值為 * ）。 6.表達(dá)式2*3A2+2*8/4+3人2 的值為（ 7． A、 8． A、 A 、 64 mid("abcdefg",3,2) abc B 、 cd 數(shù)學(xué)表達(dá)式 Sin25 寫成 Sin25 B、 31 的值是（ C 、 bcd VB表達(dá)式是（ B 、 Sin ( 25) C、 Sin ）。 25) C、 49 D 、 abcde D、 Sin D、 42 25*3.14/180 9． Sub 過程與 Function 過程最根本的區(qū)別是（ ）。 A、 Sub 過程可以

7、使用 Call 語句或直接使用過程名調(diào)用，而 Function 過程不可以。 B、 Function 過程可以有參數(shù)， Sub 過程不可以。 C、。 兩種過程參數(shù)的傳遞方式不同O D、 Sub 過程的過程名不能返回值，而 Function 過程能夠通過過程名返回值。 10.選拔身高T超過1.7米且體重 W」、于62.5 公斤的人，表示該條件的布爾表達(dá)式為 A、 T>=1.7 And W<=62.5 B、 T<=1.7 Or W>=62.5 C、 T>1.7 And W<62.5 D、 T>=1.7 Or W<62.5 11. 下列對象不能響

8、應(yīng) Click 事件的是（ A、列表框 B 、圖片框 C、窗 D 、計時器 12．在 Visual Basic 中，按文件的訪問方式不同，可以將文件分為（ A、順序文件、隨機(jī)文件和二進(jìn)制文件 B 、文本文件和數(shù)據(jù)文件 C數(shù)據(jù)文件和可執(zhí)行文件 D、ASCn文件和二進(jìn) 制文件 13．將通用對話框 CommonDialog 的類型設(shè)置成“顏色”對話框，可調(diào)用該對話框的 ）方法。 A、 ShowOpen B 、 ShowSave C 、 ShowColor D、 ShowFont 三、指出下列句中的錯誤，修改或者說明原因。 1.

9、 sum和int.sum 都可以作為 VB的變量名。 2 ．變量名的長度最長可達(dá) 1024 個字符。 3 ．下列程序運行結(jié)果： 3 ， 3 Option Explicit Private Sub Command1_Click() Dim a ， b As Integer a = 3.6 b = 3.6 Text1.Text = a Text2.Text = b End Sub 4．程序可以改變定長字符串的內(nèi)容和長度。 5 ． Variant 是一種特殊的數(shù)據(jù)類型，可以包含任何種類型的數(shù)據(jù)。 6 ．下列程序運行結(jié)果為 True Private Sub Command1

10、_Click() a = 1 b = 2 c = 3 Text1.Text = c > a + b Or b - 1 > c - 1 And c + a > a Xor b < c - 2 End Sub 7 ． #12/31/1999# - #12/20/1999# 的運算結(jié)果是 #12/11/1999# 8．可以在窗體的通用部分聲明靜態(tài)變量。 9 ．使用聲明語句建立一個變量后， Visual Basic 會自動對數(shù)值類型的變量賦初值 0，變長 的字符串被初始化為一個零長度的字符串 "" ，定長字符串用空格填充， Variant 變量被初 始化為 Empty ，布爾型的變量

11、被初始化為 False 。 10 .事件過程通常由事件驅(qū)動執(zhí)行，而 Sub過程通過過程調(diào)用執(zhí)行。 11．將焦點主動設(shè)置到指定的控件或窗體上應(yīng)采用 SetFocus 方法。 12.當(dāng)圖像控件(Image)的Stretch屬性為True時，Image控件能自動調(diào)整自己的尺寸 與顯示的圖片匹配。 四、讀程序題，寫出程序運行結(jié)果。 1． ． Private Sub Form_Click() For I = 1 To 9 For j = 1 To 30 - 3 * I Print " "; Next j For k = 1 To I Print k; Next k For k

12、= I - 1 To 1 Step -1 Print k; Next k Print Next I End Sub 2． Option Explicit Private Sub Command1_Click() Static S As Integer Dim i As Integer S = 1 For i = 1 To 5 S = S * i Next i Print S End Sub 3． For X = 5 To 1 Step -1 For Y = 1 To 6 - X Print Tab(Y + 5); "*" Next Y Print

13、 Next X 4． Private Sub Form_Activate() Print "aa" & "bb",-5 * 6,Not 2 <= 3 Print "aa" & "bb"; -5 * 6; Not 2 <= 3 Print Print "30+60", Print 30 + 60 ？ ？ "30+60"; 30 + 60 End Sub 5． X=1 Do While X<=10 If X Mod 7 =0 Then Y = X + 6 Else Z = X End If X = X + 2 Loop Print X,Y,Z 五、編程

14、題 1( text1 )、 1 ．設(shè)計一個計算程序。該程序用戶界面如圖所示，由四個文本框：文本框 文本框 2 ( text2 )、文本框 3( text3 )、文本框 4 ( text4 )，和三個按鈕：命令按鈕 1 (command)、命令按鈕 2 (command2、命令按鈕 3 (command-4組成。程序運行后，用 戶單擊清除按鈕，則清除文本框中顯示的內(nèi)容。單擊計算按鈕，如果成績填寫不完全，則 給出提示信息，否則計算三科平均成績。單擊退出按鈕則退出。 2 ．設(shè)計程序。要求：從文本框 Text1 中接收輸入的數(shù)據(jù)，當(dāng)單擊確定按鈕( command1) 時，如果該數(shù)據(jù)滿足

15、條件：除以 3 余 2 ，除以 5 余 3，除以 7 余 4 ，則輸出；否則將焦點定 位在文本框 Text1 中，選中其中的文本。 3．設(shè)計一個歡迎程序。該程序用戶界面如圖所示。要求程序運行后，用戶選中粗體復(fù)選框 時，標(biāo)簽( Label1 )中的文字(歡迎您！)的字體變成粗體，用戶選中斜體復(fù)選框時，標(biāo) 簽的字體變成斜體。若取消選中，則恢復(fù)原字體。單擊結(jié)束，則退出。 4．任意輸入 3 個數(shù)，求大小排第二的那個數(shù)，寫出程序代碼。 《VB期末復(fù)習(xí)參考答案 一、填空題 1 ．創(chuàng)建應(yīng)用程序界面 設(shè)置屬性 編寫代碼 2 ．屬性、 text 3 ． Label TextBox 4 ．

16、Load 方法 Show 方法 Hide 方法 Unload 方法 5 ． txtshow.text="GOOD WORK" 6 ． Click() 、 frm1.show 7 ．算術(shù)表達(dá)式 字符串表達(dá)式 關(guān)系表達(dá)式 布爾表達(dá)式 日期表達(dá)式 對象表達(dá) 式 運算符 8 ． 1 9 ． True False 10 ． 12 11 . Sin(x) A 2 + Sqr(x A 2 - y A 2) / (2 * x) 12． Dim A(1 To 5 ， -2 To 6) As String 13 ．單擊 雙擊 裝載 多 響應(yīng)某個事件后所執(zhí)行的程序代 碼 cmd1 C

17、lick 14．完成某種特定的功能 對象名 . 方法名 Form1.Show 15 ． AutoSize Stretch 16 ． FileCopy "c:\" ， "d:\" 二、單項選擇題 1． B 2． C 3． C 4． D 5． D 6． B 7． B 8． D 9 ． D 10 ． C 11 ． D 12 ． A 13 ． C 三、指出下列句中的錯誤，修改或者說明原因。 1． int.sum 不正確。變量名中不能包括小數(shù)點。 2 ．變量名的長度最長可達(dá) 255 個字符。 3 ． 3.6 ， 4 因為 a 不是整型變量。 4．不正確。程序不可以改變字符的長度，

18、這是 VB 規(guī)定。 5 ．不完全正確。 Variant 是一種特殊的數(shù)據(jù)類型，除了定長字符串?dāng)?shù)據(jù)及用戶定義類型 外，可以包含任何種類型的數(shù)據(jù)，這是 VB規(guī)定。 6 ． False 。邏輯表達(dá)式計算結(jié)果。 7 ．不正確。兩個日期型數(shù)據(jù)相減，其結(jié)果是一個數(shù)值型數(shù)據(jù)。 8．不正確。靜態(tài)變量為局部變量，只能在過程中聲明。 9．正確。 10 ．正確。 11 ．正確。 12．不正確。該屬性設(shè)為 Ture 時， Image 控件不能自動調(diào)整自己的尺寸與顯示的圖片匹 配，而可以使圖片自動擴(kuò)展以適應(yīng)控件的尺寸。 四、讀程序題，寫出程序運行結(jié)果。 1 ．程序運行后，單擊窗體，輸出結(jié)果為：

19、 1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1 1 2 3 4 5 4 3 2 1 1 2 3 4 5 6 5 4 3 2 1 1 2 3 4 5 6 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1 2 .程序運行后，單擊按鈕 Command1輸出結(jié)果為：120。 3. * ** *** **** ***** 4. aabb -30 False aabb-30 False 30+60 90 30+60 90 5. 11

20、 13 五、編程題 1． Private Sub Command1_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" End Sub Private Sub Command2_Click() a = Trim(Text1.Text) b = Trim(Text2.Text) c = Trim(Text3.Text) If a = "" Or b = "" Or c = "" Then MsgBox " 成績填寫不完全！ ", vbCritical Else Te

21、xt4.Text = (Val(a) + Val(b) + Val(c)) / 3 End If End Sub Private Sub Command3_Click() Unload Me End Sub 2． Private Sub Command1_Click() x = Val(Text1.Text) If x Mod 3 = 2 And x Mod 5 = 3 And x Mod 7 = 4 Then Print x Else Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Tex

22、t) End If End Sub 3． Private Sub Check1_Click() If Check1.Value = 1 Then Label1.Font.Bold = True Else Label1.Font.Bold = False End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Label1.Font.Italic = True Else Label1.Font.Italic = False End If End Sub Private Sub Command1_C

23、lick() Unload Me End Sub 4． ")) ")) ")) a = Val(InputBox(" 輸入第一個數(shù)： b = Val(InputBox(" 輸入第二個數(shù)： c = Val(InputBox(" 輸入第三個數(shù)： If a < b Then t = a: a = b: b = t If a < c Then t = a: a = c: c = t If b < c Then t = b: b = c: c = t MsgBox (" 求大小排第二的數(shù)是： " & b) VB期末考試試題A卷 填空題 1、VB程序設(shè)計的主要特點是

24、 (1) 和 (2) 。 2、在 VB中，最主要的兩種對萩一 (3) 而 (4) 。 3、工程是構(gòu)成應(yīng)用程序文件的 ⑸ 。 4、方法是VB提供的一種 (6) ,用來完成一定的操作。 5、浮點類型數(shù)據(jù)包括單精度型和 (7) __數(shù)據(jù)。 6、事件是窗體或控件對象識別的 ( 8) 。 7、可用窗體的 —(9) _ 方法在窗體中顯示文字。 8、復(fù)選框控件Value屬性指示復(fù)選框處于 (10)―或禁止?fàn)顟B(tài)(暗淡的)中的某 一種。 9、在VB中，修改窗體的 (11)和 (12) 屬性值，可改變窗體的大小。 10、雙擊工具箱中的控件圖標(biāo)，可在窗體的 (13) 出現(xiàn)一個尺寸為缺省值的

25、控 件。 11、在MsgBox函數(shù)中，如果缺省title 參數(shù)，則使用 (14) 作為消息框的標(biāo)題。 12、設(shè) x= 34.58,語句 Print Format(x, “000.0 ”)的輸出結(jié)果是 (15)。 13、在VB中，數(shù)值型變量的初值為 (16) , Varant型變量的初值為 (17), 布爾型變量的初值為 (18) 。 14、設(shè)置窗體的 (19) 屬性,可在窗體上顯示圖片。 15、程序運行工程中，清除一MP圖片框中的圖片應(yīng)使用語句 (20)。 二、選擇題 1、菜單控件只包括一個事件，即 (1) ,當(dāng)用鼠標(biāo)單擊或鍵盤選中后按“回車”鍵 時觸發(fā)該事件，除分隔條以外

26、的所有菜單控件都能識別該事件。 A、GotFocus B 、Load C 、Click D 、KeyDown 2、滾動條控件(如圖所示)的Max屬性所設(shè)置的是 (2) 。 A、滾動框處于最右位置時，一個滾動條位置的 Value屬性最大設(shè)置值 B、單擊滾動條和滾動箭頭之間的區(qū)域時，滾動條中滾動塊的最大移動量 C、單擊滾動條的箭頭區(qū)域時，滾動條中滾動塊的最大移動量 H滾動條控件無該屬性 3、SQL 語句 Select * Form student 中的 * 表示 3) 。 A所有記錄 B 、所有字段 C 、所有表 D、都不對 4、以下選項中，不屬于標(biāo)簽的屬性是 (4)

27、 。 A Enabled B 、Caption C 、Default D 、Font 5、要求改命令按鈕顯示的文本，應(yīng)當(dāng)在屬性窗口中改變的屬性是 (5) A、Caption B 、Name C 、Text D 、Label 所代表選項的選中狀態(tài)，應(yīng)當(dāng)在屬性窗口中改變的 6、設(shè)置一個單選按鈕 (OptionButton) 屬性是 (6 。 A、Caption B 、Name C 、Text D 、Value 7、允許在菜單項的左邊設(shè)置打勾標(biāo)記, A、在標(biāo)題項中輸入&,然后打勾 C、在有效項中打勾 下面哪種論述是正確的？ ⑴ B 、在索引項中打勾 D 、在復(fù)選項中打勾

28、 8、當(dāng)執(zhí)行以下過程時，在窗體上將顯示 (8) Private Sub Command1_Click() Print "VB"; Print "Hello!"; Print "VB" End Sub A VBHello!VB B 、VB Hello!VB C VB D 、VB Hello! VB Hello! VB 9、語句 Print "The answer is:";20/4-2 的結(jié)果為 (9) 。 A、The answer is 20/4-2 B 、The answer is 3 C The answer is "20/4-2" D 、非法語句 10、下列

29、哪個控件是容器控件 (10) 。 A、Image B 、Picture C 、ComboBox D 、FileListBox 11、若要將窗體從內(nèi)存中卸載出去，其實現(xiàn)的方法是 (11) 。 A.Show B.Hide C.Load D.UnLoad 12、以下選項中，不是 Visual Basic 控件的是 (12) 。 A.窗體 B.定時器 C.單選框 D.命令按鈕 13、雙擊窗體中的對象后， Visual Basic 將顯示的窗口是 (13) 。 A.代碼窗口 B .工具箱 C .項目(工程)窗口 D.屬性窗口 14、可決定窗體的左上角是否有控制菜單的屬性是 (14) 。

30、A.ControlBox B.MinButton C.MaxButton D.BorderStyle 15、設(shè)有如下語句： Strl = InputBox ("輸人"，""，"練習(xí)") 從鍵盤上輸人字符 “示例”后，Strl的值是 (15) 。 A . “輸入" B . " " C . “練習(xí)” D . “示例” 16、窗體Form1的Name屬性是Frm1,它的單擊事件過程名是 (16) A. Form1_Click B.Form_Click C. Frm1_Click D. Me_Click 17、窗體的hide屬性的含義是 (17) 。 A.隱藏 B. 展現(xiàn) C. 裝入

31、 D. 卸載 18、若要設(shè)置定時器控件的定時時間，需設(shè)置的屬性是 (18) 。 A. Enabled B . Value C. Interval D . Text 19、能夠改變復(fù)選框中背景顏色的屬性是 (19) 。 A . Value B . FontColor C . BackColor D . Font 20、窗體能響應(yīng)的事件是 (20) 。 A . ActiveForm B . Load C . Drive D . Change 、判斷題(判斷下列正確與否，正確的打，，錯誤的打X。 ) 1、三種方式的組合框都允許用戶輸入哪些不在列表框中的選項。 2、圖象框中的Stretc

32、h屬性為true時，其作用是圖形自動調(diào)整大小以適應(yīng)圖象控件。 3、在菜單編輯器中使用“索引”時，可有一組菜單項具有相同的“名字”。 4、通過改變屬性窗口中的 Name屬性，來改變窗體的標(biāo)題。 5、創(chuàng)建VB應(yīng)用程序的三個主要步驟是： （1）創(chuàng)建應(yīng)用程序界面（2）設(shè)置控件（3）編寫代 碼。 6、變量是指在程序運行過程中其值可以改變的那些量，而值不能改變的是常量。 7、已知 P= MsgBox（ "Howareyou?" , VbYesNo+VbQuestion, “Hello!"）,變量 P 是 Integer 數(shù)據(jù)類型。 8、工程文件的擴(kuò)展名是 .vbg 。 9、VB允許設(shè)計和使

33、用用戶自己設(shè)計的控件。 10、 OptionButton 控件沒有 DblCliek 事件。 11、同一條記錄中的各數(shù)據(jù)具有相同的類型。 12、使用 Data 控件可以直接顯示數(shù)據(jù)庫中的數(shù)據(jù)。 13、 ImageList 是一個圖像容器控件，可用作工具欄的圖像庫。 14、當(dāng)用戶單擊工具欄按鈕時，將觸發(fā)工具欄按鈕的 ButtonClick 事件。 15、在VB的工程資源管理器中，如果從工程中移除已經(jīng)保存過的文件，該文件仍然被物 理刪除（真正刪除）。 16、如果列表框的 ListConut 的屬性為 10，則列表框最后一項的 ListIndex 值為 10。 17、要是某個命令按

34、鈕不起作用，應(yīng)將該按鈕的 Enabeld 屬性設(shè)置為 False 。 18、使用數(shù)組定義語句： Dim D$（ 10），則數(shù)組 D 中各元素的值為空。 19、如果在一行中輸入多條語句，各語句之間用使用 ；分隔。 20、在代碼窗口中輸入某行代碼并按回車鍵之后，如果代碼變成紅色，說明該行代碼有 語法錯誤。 四、讀程序題，寫出程序運行結(jié)果 1 、 Private Sub Form_Click（） Static SUM As Integer I = 1 Do While I<=10 SUM = SUM + I I = I + 1 Loop Print SUM End Sub

35、運行程序，第一次單擊窗體： 第二次單擊窗體： 2、 Private Sub Form_Click() Print "*"; Tab(6); 2, Tab(15); 5 Print For I = 15 To 16 Print I; For j = 2 To 6 Step 3 Print Tab(3 * j); j * I; Next j Print Next I End Sub 程序運行結(jié)果： 五、編程題 (一)窗體中有圖片框 (Picturel)和計時器(Timeh)兩個控件，運行程序時，將圖片加 載到圖片框中，然后圖片框以每 2秒鐘一次的速度向窗體的右下腳移動，

36、每次向左、向右 移動100twip (20分之一像素)。請?zhí)羁眨? Private Sub Form_load() (1) =loadPicture( "Cball.ico ”) 2 .Interval=200 End Sub Private Sub Timer1_Timer() Static x , y As Integer x=x+100 y=y+100 Picturel.Move (3) End Sub (二)有一個單擊按鈕過程，其作用是產(chǎn)生 50個60?100的隨機(jī)數(shù)，統(tǒng)計其中被 6整除 余2的個數(shù)，并將這些數(shù)輸出。請?zhí)羁眨? Private Sub Comma

37、nd1_Click() Dim x As Integer, N% Dim Counter As Integer ⑴ Timer For N=1 To 50 X=Rnd()* (2) If (3) =2 Then Print x Counter= (4) (5) Next N Print Counter End Sub VB程序設(shè)計與應(yīng)用》參考答案 一、填空題 1 2 3 4 5 答案 可視化設(shè)計 事件驅(qū)動編程 窗體(form ) 控件 集合 題號 6 7 8 9 10 答案 特殊子程序 雙精度 動作 Print

38、 選中 題號 11 12 13 14 15 答案 高度 (Height ) 寬度(Width) 中央 工程1 34.6 題號 16 17 18 19 20 答案 0 空 False Picture Cls 二、選擇題 1 2 3 4 5 答案 C A B C A 題號 6 7 8 9 10 答案 D D A B B 題號 11 12 13 14 : 15 - 答案 D A A A D 題號 16 17 18 19 : 20 1 答案 C A C C

39、 B 三、判斷題 1 2 3 4 5 6 7 8 9 10 答案 X X X V X V V V V X 11 12 13 14 15 16 17 18 19 20 答案 V X V V X X V X X V 四、程序閱讀題： （一）（10 分） 1 、 55 2 、 110 （二）、 （10 分） * 2 5 15 30 75 16 32 80 五、編程題 （20分） （一） 1、Picture1.Picture 2、 Timeh 3、 x ,y （ 二）1、 Rand

40、omize 2 、 Rnd（）*41+60 3 、 x Mod 6 4 、 Counter +1 5 End If 一、單項選擇題（共 10分） 1 .在代碼中引用一個控件時，應(yīng)使用控件的（ B）屬性。 A. Caption B . Name C . Text D . Index 2 .設(shè)變量x = 4 , y = -1, a = 7 , b = -8,下面表達(dá)式（A）的值為 假”。 A. x+a <= b-y B . x > 0 AND y < 0 C. a = b OR x>y D . x+y > a+b AND NOT （y < b） 3 .表達(dá)式Int（Rnd

41、*71）+10 產(chǎn)生的隨機(jī)整數(shù)范圍是（C ）。 A. （10, 80） B. （10, 81） C . [10 , 80] D . [10, 81] 4 .函數(shù)Sgn（3.1416）的返回值是（C ）。 A. -1 B . 0 C . 1 D .以上都不對 5 . 67890屬于（D ）類型數(shù)據(jù)。 A .整型 B .單精度浮點數(shù) C .貨幣型 D .長整型 6 .下列變量名中正確的是( D)。 A. 3s B . Print C . Select My Name D . Select_1 7 .下列賦值語句(A )是有效的。 A. sum = sum -sum B . x+

42、2 = x + 2 C . x + y = sum D . last = y / 0 8 .以下的控件或方法具有輸入和輸出雙重功能的為( B)。 A. Print B . Textbox C . Optionbutton D . Checkbox 9 .若要獲得列表框中被選中的列表項的內(nèi)容，可以通過訪問( D)屬性來實現(xiàn)。 A. Name B . ListIndex C . ListCount D . Text 10 .下列代碼的運行結(jié)果為(B )。 Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k) = 1

43、1 - k Next k x = 5 Print m(2 + m(x)) End Sub A. 2 B . 3 C.4 D . 5 二、填空題(10分) 1 .寫出整數(shù) n能同時被13和17整除的Basic表達(dá)n Mod 13=0 And n Mod 17=0 式 。 2 .代碼窗口中有兩個下拉列表框：左側(cè)是 (對象)列表框，右側(cè)是過程列表框。 3 .寫出在字符串 " Visual Basic 6.0 中截取 " Visual 的 Basic 表達(dá)式 LEFT( "Visual Basic 4 .0”，6) 4 .函數(shù)Len( "abcdef的返回值是(6) 。 5 .

44、設(shè) a = 2 , b = 5 , c = -2 , d = 100,則 a > b >= c AND a < b >= d 的值為 False 。 三、將下列數(shù)學(xué)表達(dá)式轉(zhuǎn)換為 VB表達(dá)式。(6分) 1. a2+2ab+b2 : aA2+2*a*b+bA2 2. 8exln10 : 8*exp(x)*log(10) 3. 2sin(450)cos(450) : 2*sin(3.1416/4)*cos(3.1416/4) 6.在VB中，用戶定義常量使用 Const語句，聲明變量使用 Dim語句。 1 .在VB 6.0中，擴(kuò)展名為.vbp的文件稱為 A。 A)工程文件 B)窗體文件

45、 C)類模塊文件 D)標(biāo)準(zhǔn)模塊文件 2 .在VB 6.0集成開發(fā)環(huán)境的設(shè)計模式下，用鼠標(biāo)雙擊窗體上的某個對象后，打開的窗口 是 A o A)代碼窗口 C)屬性窗口 B)窗體設(shè)計窗口 D)工程資源管理器窗口 3 .設(shè)有變量定義語句 Dim a%,則變量a的數(shù)據(jù)類型是 A A)整型 B)單精度類型 4 .下列表達(dá)式中，值為 False的是 D A) "AB"<"abc" C) "ABCD"<"abc" C)雙精度類型 D)字符串類型 B) "ABC" = UCase("abc") D) Mid("ABCD",3,1)=Left("ABCD",3) 5 .函數(shù) InSt

46、r("ABCDEF", "CD") 的值是 B A) 2 B) 3 C) True 6 .下列程序運行后，單擊窗體，輸出結(jié)果是 C 。 Private Sub Form_Click() Dim a As Integer, b As Integer a = 3 b = 5 Print a + b; a & b End Sub A) 8 8 B) 35 35 C) 8 35 7 .下列程序運行后，單擊窗體，輸出結(jié)果是 B 。 Private Sub Form_Click() a = 3: b = 7 a = a + b : b = a - b : a = a - b Print

47、 a; b End Sub A) 4 3 B) 7 3 C) 3 7 8 .下面程序段所表示的數(shù)學(xué)關(guān)系式是 C 。 D) CDEF D) 35 8 D) 10 7 If (a < b) Then If d = c Then x = 1 Else x = 2 End If A) x C) x 1(a 2(a 1(a 2(a b且 c d) b且 c d) b且 c d) b) B) x D) x 1(a b且 c d) 2(a b且 c d) 1(a b且 c

48、d) 2(c d) 9.下列程序運行后，單擊窗體，輸出結(jié)果是 C Private Sub Form_Click() s = 0: k = 1 Do s = s + k: k = k + 1 Loop Until k <= 5 Print s End Sub D) 0 A) 15 B) 10 C) 1 10.下列程序段的輸出結(jié)果是 B For k = 4 To 2 Step -2 Next k Print m; k; A) 2 2 B) 2 0 C) 2 1 D) 0 0 11.用下面的語句定義數(shù)組，則數(shù)組中的元素個數(shù)是 D 個。 Option

49、 Base 1 Dim A(-1 To 2 , 5) As Integer C) 15 D) 20 A) 5 B) 10 12.下面程序段的輸出結(jié)果是 C Dim a(4) As Integer, s As Integer For k = 1 To 4 a(k) = 2 * k Next k For k = 1 To 4 Step 2 s = s + a(k) Print s; Next k A) 8 B) 20 C) 2 8 D)2 6 12 20 13.設(shè)有如下的用戶自定義類型 Private Type Stu name As String * 10 age

50、 As Integer End Type 則以下正確引用該類型成員的代碼是 A) Stu.name="zhang" C) Dim s As Type Stu s.name = "zhang" B 。 B) Dim s As Stu s.name = "zhang" D) Dim s As Type s.name = "zhang" 14 .用“B”關(guān)鍵字聲明的變量稱為全局變量。 A) Private B) Public C) Dim D) Static 15 .在窗體上放置一個文本框，程序運行后，在文本框中輸入 abc,但顯示的卻是*** ,可 能的原因是該文本框的

51、 A) Font B) Text 屬性值已經(jīng)被設(shè)置為"*" C) Name D) PasswordChar 16 .在 VB 6.0 A)屬性 中，Print是對象的 B B)方法 C)事件 D)名稱 17 .在 VB 6.0 A) Caption 中，要判斷復(fù)選框是否為選中狀態(tài)，使用的屬性是 B) Checked C) Selected D) Value 18.設(shè)列表框 List1中共有3個列表項，如右圖所示。則下列語句 列表框 中，能夠刪除最后一個列表項的是 A—。 A) List1.RemoveItem 2 B) List1.Remo

52、veItem " 項目 C" C) List1.RemoveItem List1. Listcount D) List1.RemoveItem List1. ListIndex 19 .組合框分為下拉式組合框、簡單組合框和下拉式列表框，在 “屬性”窗口中這三種類型是由 A 屬性設(shè)置的。 A) Style B) FillStyle C) BackStyle D) BorderStyle 20 .用戶單擊滾動條的空白處(滑塊與兩端滾動箭頭之間的區(qū)域)時， Value屬性所增加 或減少的值，是由 D屬性決定的。 A) Min B) Max C) SmallChange

53、D) LargeChange 21 .將圖片文件“ b.jpg ”作為背景圖片，裝入當(dāng)前窗體，正確的語句是 D 。 A) Me.Picture=b.jpg B) Me.Picture= LoadPicture(b.jpg) C) Me.Picture="b.jpg" D) Me.Picture= LoadPicture("b.jpg") 22 .要將兩個單選按鈕放置在同一個框架內(nèi)，使它們成為一組，正確的操作是 A A)先放置一個框架，然后在框架中放置兩個單選按鈕 B)先放置兩個單選按鈕，再放置一個框架，放置框架時覆蓋在單選按鈕上 C)先放置兩個單選按鈕，再放置一個框架，然后將兩個

54、單選按鈕拖動到框架內(nèi) D)以上三種方法都正確 23 .計時器控件能夠響應(yīng)的事件是 D 。 A) Load B) Click C) Change D) Timer 24 .要使命令按鈕處于無效狀態(tài)，可以設(shè)置按鈕的 B 屬性值為False。 A) Caption B) Enabled C) Style D) Visible 25 .如果在一個工程中有多個窗體和模塊，則 VB默認(rèn)的啟動對象是 C。 A)第一個標(biāo)準(zhǔn)模塊 B)最后一個被添加的窗體 C)設(shè)計時的第一個窗體 D)最后一個被添加的標(biāo)準(zhǔn)模塊 26 .在窗體上放置一個圖像框，名稱為 Imagel。程序運行時，要保持圖像框大小不變

55、，使 框中的圖片能夠自動適應(yīng)圖像框的大小，可以執(zhí)行語句 B。 A) Image1.AutoSize=True B) Image1.Stretch=True C) Image1.AutoSize=False D) Image1.Stretch=False 27 .使用“菜單編輯器”建立菜單項之間的分隔線時，在菜單項的“標(biāo)題”中輸入的符號 是 A 。 A)減號- B)下劃線_ C) & D) # 28 .要將窗體Forml從內(nèi)存中卸載，正確的語句是 D—。 A) Forml.Show B) Load Forml C) Forml.Hide D) UnLoad Forml 29 .在

56、窗體上單擊時，會觸發(fā)鼠標(biāo)事件 MouseDown其事件過程的一般格式如下： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) End Sub 此時，如果單擊的是鼠標(biāo)右鍵，則 Button參數(shù)的值是 B。 A) 1 B) 2 C) 3 D) 4 30 .獲取文件的長度(字節(jié)數(shù))，可以使用的函數(shù)是 B。 A) LEN( ) B) LOF( ) C) EOF( ) D) LOG() 【1】 。答案 sqr(3*y)/(x+y) 1 .數(shù)學(xué)表達(dá)式 gy改寫為

57、VB表達(dá)式，形式是 x y 2 .在VB 6.0中，InputBox函數(shù)返回值的數(shù)據(jù)類型是 【2】 。答案：字符串類型或 String 3 .語句Print Tab(5);"ABC" 的功能是 【3】 。 答案：從第5列開始輸出字符串“ ABC 4 .下面程序段的功能是：在文本框 Textl中輸入一個數(shù)值 x,如果滿足5Vx<10,那么輸出 “Yes”，否則輸出“ No”。請?zhí)羁铡? x =Val(Text1.Text) 答案 5 < x And x <10 If 【4】 Then Print "Yes" Else Print "No" 5 .設(shè) a=1,b=2,c=3 ,語

58、句 Print a < b Or b < c And c < a 的輸出結(jié)果是 【5】 。答案：True 6 .在窗體上放置一個標(biāo)簽，名稱為 Labell ,使用語句 【6】 可以把標(biāo)簽的前景色 設(shè)置為藍(lán)色。 Labell.ForeC010r = vbBlue 或 RGB(0,0,255)或 QBColor(9) 7 .在窗體上放置一個圖像框，名稱為 Imagel,要使該圖像框向下移動 10個默認(rèn)單位 (twip ),正確的語句是 Imagel.Top = [J7] 答案：Imagel.Top + 10 8 .使用“菜單編輯器”建立了一個主菜單，名稱為 menul要把它作為窗體

59、Form1的快捷 菜單(也稱為彈出式菜單)彈出，使用的語句是： 答案：Popupmenu Form1. __[8]__menu1 9 .在窗體上放置一個通用對話框控件，名稱為 CommonDialog1。使用該控件建立"打開” 文件對話框時，要求只能顯示文本文件 (即擴(kuò)展名為“ .txt ”的文件)，則正確的設(shè)置語 句是 CommonDialog1. 【9] =" 文本文件(*.txt)|*.txt" 。 答案：Filter 10 .設(shè)磁盤上已存在順序文件“ a.txt ”，為了從文件中順序讀取數(shù)據(jù)而打開該文件，正確 的語句是 Open "a.txt" For 【10】 As #1

60、 。 答案：Input 1 .下列面程序運行后，單擊窗體，輸出結(jié)果是 [1]。答案：1 3 9 Private Sub Form_Click() s = 0 For n=1 To 3 p = 1 For k = 1 To n p = p * k Next k s = s + p Print s; Next n End Sub 2 .下列程序運行后，單擊窗體，輸出結(jié)果是 ⑵ 。答案：7 Private Sub Form_Click() m = 0 For k = 1 To 4 Select Case k Case 1,2 m = m + 1 Case Is > 3

61、 m = m + 2 Case 1 To 4 m = m + 3 End Select Next k Print m Text1中顯 End Sub 3 . 在窗體上放置一個文本框，名稱為 Textl。下列程序運行后，單擊窗體， 示的內(nèi)容是 [3】 。 答案：ade Private Sub Form_Click() Textl.Text ="" s = "aBd12Re” For k = 1 To Len(s) ch = Mid(s, k, 1) If ch >= "a" And ch <= "z" Then Text1.Text = Text1.Text +

62、ch End If Next k End Sub 4 . 下列程序運行后，單擊窗體，輸出結(jié)果是 [4] 。 答案：11 24 Option Base 1 Private Sub Form_Click() x = Array(3, 5, 4, 8, 2, 6, 11,9, 7, 4) p = x(1): s=0 For k = 2 To UBound(x) If x(k) > p Then P = x(k) s = s + p End If Next k Print p; s End Sub 5 . 下列程序運行后，單擊窗體，輸出結(jié)果是 [5] 。 答案：1 5 1

63、 Private Sub Form_Click() Dim a(1 To 3, 1 To 3) Fori = 1 To 3 For k = 1 To 3 If k = 1 Or i = k Then a(i, k) = 1 Else a(i, k) = i + k End If Next k Next i Print a(1, 1); a(2, 3); a(3, 3) End Sub 6 .在窗體上放置一個命令按鈕，名稱為 Command2并編寫如下代碼。 Private Sub Command2_Click() Dim m As Integer, n As I

64、nteger, g As Integer m = 18: n = 12: g = 0 Call sub1(m, n, g) Print m; n; g End Sub Public Sub sub1(ByVal a As Integer, ByVal b As Integer, c As Integer) If a < b Then t = a: a = b: b = t Do While b <> 0 r = a Mod b a = b b = r Loop c = a End Sub 程序運行后，單擊命令按鈕，則輸出結(jié)果是 [6] 。答案：18 12 6 7 .在窗體上放置一

65、個命令按鈕，名稱為 Command3并編寫如下代碼。 Private Sub Command3_Click() Dim k As Integer k = 1 Print fun1(k); Print fun1(k); Print fun1(k); End Sub Function fun1(a As Integer) As Integer Static c As Integer Dim b As Integer a = a + 2: b = b + 2: c = c + 2 fun1 = a + b + c End Function 程序運行后，單擊命令按鈕，則輸出結(jié)果是

66、[7] 。答案：7 11 15 8 .在窗體上放置一個文本框，其名稱為 Text1 ,并編寫如下代碼。 Dim s As String Private Sub Text1_KeyPress(KeyAscii As Integer) s = s + Chr(KeyAscii) Print s; End Sub 程序運行后，在文本框中輸入 abc,則窗體上輸出的內(nèi)容是 [8】 。答案：aababc 1 .在窗體上放置一個計時器和一個標(biāo)簽，計時器名稱為 Timer1 ,標(biāo)簽名稱為 Label1 。下 列程序的功能是： (1)在窗體加載事件中設(shè)置計時器每秒鐘能夠觸發(fā) 5次Timer事件； (2)每觸發(fā)一次 Timer事件能夠?qū)?biāo)簽上的字號加大 2,當(dāng)字號超過當(dāng)前窗體的寬度 時，將字號恢復(fù)為 8。 程序中有一處 錯誤，請更正。說明錯誤時可以使用每條語句前的編號。 ? ? (1) Private Sub Form_Load() (2) Timer1.Interval = 5 答案：200 (3