2006級VB期末試卷(帶答案)

1、VB 程序設(shè)計(jì)試卷(2006級)一、單項(xiàng)選擇題（每小題1分，共40分）1. Visual Basic中 窗體文件的擴(kuò)展名是 【1】 。A）frmB）vbpC）basD）frx2對象的組成的三個(gè)要素是 【2】 。 A） 函數(shù)、過程、語句 B） 窗體、控件、行為C） 屬性、方法、事件 D） 窗體、模塊、控件3以下敘述中錯(cuò)誤的是 【3】 。A）一個(gè)工程中只能有一個(gè)Sub Main過程B）窗體的Show方法的作用是將指定的窗體裝入內(nèi)存并顯示該窗體C）窗體的Hide方法和Unload方法的作用完全相同D）若工程文件中有多個(gè)窗體，可以根據(jù)需要指定一個(gè)窗體為啟動(dòng)窗體4以下能在窗體Form1的標(biāo)題欄中顯示“示

2、例窗體”的語句是 【4】 。 A） Form1.Name="示例窗體" B） Form1.Title="示例窗體" C） Form1.Caption="示例窗體" D） Form1.Text="示例窗體”5以下是關(guān)于MDI子窗體在運(yùn)行時(shí)特性的敘述，錯(cuò)誤的是【5】 。A）子窗體在MDI窗體的內(nèi)部區(qū)域顯示B）子窗體可在MDI窗體的外部區(qū)域顯示C）當(dāng)子窗體最小化時(shí)，它的圖標(biāo)在MDI窗體內(nèi)顯示D）當(dāng)子窗體最大化時(shí)，其標(biāo)題與MDI窗體的標(biāo)題合并，并顯示在MDI窗體的標(biāo)題欄中6. 要使某控件在運(yùn)行

3、中不起作用，應(yīng)對控件的 【6】 屬性進(jìn)行設(shè)置。A）Enabled B）CaptionC）FontD）Visible7如果要使計(jì)時(shí)器控件每秒產(chǎn)生100個(gè)計(jì)時(shí)器（Timer）事件，應(yīng)把該控件的Interval屬性的值設(shè)置為 【7】 。A）1 B）10 C）100D）10008為了在按下Esc鍵時(shí)執(zhí)行某個(gè)命令按鈕的Click事件過程，需要把該按鈕的 【8】 屬性設(shè)置為True。A）ValueB）DefaultC）CancelD）Enabled9在列表框中，當(dāng)前被選中的列表項(xiàng)的序號由 【9】 屬性返回。A）Columns B）List C）ListIndex D）ListCount10下列條件語句中，

4、能夠判斷復(fù)選框Ckeck1當(dāng)前為選中狀態(tài)的是 【10】 。 A）If Check1.Value=1 Then B）If Check1.Value=0 Then C）If Check1.Value=True Then D）If Check1.Value=False Then 11組合框分為下拉式組合框、簡單組合框和下拉式列表框，這三種類型由下列哪個(gè)屬性確定 【11】 。推薦精選A） StyleB） BorderStyle   C）BackStyleD） Name12當(dāng)單擊滾動(dòng)條兩端的箭頭時(shí)，將觸發(fā)滾動(dòng)條的 【12】 事件。A）ChangeB）MoveC）Scroll

5、D）SetFocus13在窗體上放置一個(gè)水平滾動(dòng)條，名稱為HScroll1；再放置一個(gè)文本框，名稱為Text1。要想使用滾動(dòng)條滑塊代表的值顯示在文本框中，則可滿足的語句是 【13】 。A）Text1.Value = HScroll1.MaxB）Text1.Text =  HScroll1.MinC）Text1.FontSize = HScroll1.ValueD）Text1.Text = str(HScroll1.Value)14要強(qiáng)制顯式聲明變量，可在窗體模塊或標(biāo)準(zhǔn)模塊的聲明段中加入語句 【14】 。A）Option Base 0B）Option Ex

6、plicitC）Option Base 1D）Option Compare15執(zhí)行語句s=Lcase(Mid("VisualBasic",7,5)后，s的值是 【15】 。A）ALBASIC B）BASIC C）albasic D）basic16以下語句的輸出結(jié)果是 【16】 。 Print Format$(38.56, "0,#.#0")A）38.56 B）0,038.56C）0,038.560 D）38.56017. 下列語句執(zhí)行后的結(jié)果分別為【17】。 Print 5.8 2 Mod 2 Print 5.8 Mod 2 / 2A）1 0 B）1 1

7、 C）1 0 D）0 018下列表達(dá)式中，計(jì)算結(jié)果不等于0的表達(dá)式是 【18】 。A）Int(2.3) + Int(-2.3)B）CInt(2.3) + CInt(-2.3)C）Int(2.3) + Fix(-2.3)D）Fix(2.3) + Fix(-2.3)19正確表示大于等于5或小于1的邏輯表達(dá)式為【19】。A）a>=5 | a<1 B）a>=5 && a<1 C）a>=5 or a<1 D）a>=5 and a<120 在窗體上放置一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程： Private

8、60;Sub Command1_Click() x=Val(InputBox("輸入數(shù)據(jù)") )Select Case x Case 1,3 Print "分支 1" Case Is >4 Print "分支 2" Case Else Print "Else 分支 " End Select End Sub 推薦精選程序運(yùn)行后，單擊命令按鈕，如果在輸入對

9、話框中輸入2，則窗體上顯示的是 【20】 。 A）分支1 B）分支2 C）Else分支 D） 程序出錯(cuò)21設(shè)有以下循環(huán)結(jié)構(gòu)Do循環(huán)體Loop Until <條件>則以下敘述中錯(cuò)誤的是【21】。 A）若“條件”是一個(gè)不為0的常數(shù)，則執(zhí)行一次循環(huán)體B）“條件”可以是關(guān)系表達(dá)式、邏輯表達(dá)式或常數(shù)C）循環(huán)體中可以使用Exit Do語句 D）如果“條件”總是為True，則不停地執(zhí)行循環(huán)體22在窗體上放置一個(gè)命令按鈕，名稱為Command2，并編寫如下程序：Private Sub Command2_Click() Sum = 0 n = 0 For i

10、= 1 To 5 x = n / i Sum = Sum + x n = n + 1 Next i Print SumEnd Sub 運(yùn)行程序，單擊命令按鈕，在窗體上輸出的變量Sum的值對應(yīng)的是 【22】 。A） B） C） D）23設(shè)有如下事件過程：Private Sub Form_Click( )Dim x As Integer, n As Integerx=10: n = 9 Do While n < 12 x = x * 3 n = n + 2 Loop Print x, nEnd Sub程序運(yùn)行后，單擊窗體，輸出結(jié)果是 【23】 。A）109B）3011C）9013D）2701

11、5推薦精選24在窗體上放置一個(gè)命令按鈕和一個(gè)文本框，其名稱分別為Command1和Text1，把文本框的Text屬性設(shè)置為空白，然后編寫如下事件過程：Private Sub Command1_Click( )Dim i As IntegerDim a, b For i = 1 To 2 a = InputBox("輸入一個(gè)數(shù)據(jù)") b = InputBox("輸入一個(gè)數(shù)據(jù)")Next iText1.Text =b + aEnd Sub程序運(yùn)行后，單擊命令按鈕，如果在輸入對話框中分別輸入3,4,5和6，則文本框中顯示的內(nèi)容是 【24】 。A）3456 B）

12、11 C）56 D）6525用下面語句定義的數(shù)組的元素個(gè)數(shù)是【25】 。Dim A(3 To 8) As IntegerA）6B）3C）8D）926在窗體上放一個(gè)命令按鈕，并編寫如下程序，運(yùn)行后單擊命令按鈕，則輸出結(jié)果是 【26】 。 Private Sub Command1_Click( ) Dim A A = Array(1, 2, 3, 4) S = 1 For I = 2 To 3 S = S + A(I) Next I Print SEnd SubA）8 B）7 C）5D）627窗體上放置了三個(gè)命令按鈕，這三個(gè)命令按鈕組成一個(gè)控件數(shù)組，則下列關(guān)于該控件數(shù)組的敘述中錯(cuò)誤的是 【27】

13、。A）三個(gè)命令按鈕的（名稱）屬性必須相同   B）三個(gè)命令按鈕的Caption屬性必須相同  C）這三個(gè)命令按鈕的會觸發(fā)同一個(gè)單擊事件D）三個(gè)命令按鈕可以具有不同的外觀（如大小、字體等）28下面四個(gè)選項(xiàng)中，正確的用戶定義類型是 【28】 。A） Private Dec abc B） Private Dec abc xm As String xm As String * 4 nl As Integer nl As Integer xb As Boolean xb As BooleanEnd Dec End Dec推薦精選C） Private Type ab

14、c D） Private Type abc xm As String xm As String * 4 nl As Integer nl As Integer xb As Boolean xb As Boolean End Type End Type29以下關(guān)于函數(shù)過程的敘述中，錯(cuò)誤的是【29】。 A） 函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關(guān)系B） 在函數(shù)過程中，過程的返回值只可以有1個(gè)C） 當(dāng)數(shù)組作為函數(shù)過程的參數(shù)時(shí)，既能以傳值方式傳遞，也能以傳址方式傳遞D） 如果不指明函數(shù)過程參數(shù)的類型，則該參數(shù)的數(shù)據(jù)類型是變體型30VB工程中的三種主要組成模塊是 【30】 。 A） 標(biāo)準(zhǔn)模塊、類模塊

15、、函數(shù)模塊 B） 窗體模塊、標(biāo)準(zhǔn)模塊、通用模塊C） 窗體模塊、標(biāo)準(zhǔn)模塊、類模塊 D） 窗體模塊、函數(shù)模塊、過程模塊31下列關(guān)于消息框（MsgBox）的敘述中錯(cuò)誤的是 【31】 。 A） 消息框中的按鈕個(gè)數(shù)可以修改B） 消息框中的圖標(biāo)樣式可以修改C） 消息框的標(biāo)題可以修改D） 消息框中顯示的文字的顏色和字體可以修改32已知如下過程定義：Public Sub exam1(a As Integer, b As Integer, Optional x As Boolean) End Sub則對于上述過程定義，正確的調(diào)用格式是【32】 。A）exam1 5,"abc"  &

16、#160;B）Call exam1(5)  C）exam1(2,"abc",True)     D）Call exam1 5,"abc",False33以下敘述中錯(cuò)誤的是 【33】 。 A） 一個(gè)工程中可以包含多個(gè)窗體文件B） 在一個(gè)窗體文件中用Private定義的通用過程不能被其他窗體調(diào)用C） 在VB程序中，窗體模塊、標(biāo)準(zhǔn)模塊、類模塊等需要分別保存為不同類型的磁盤文件D） 全局變量可以在窗體模塊中定義，但不可以在標(biāo)準(zhǔn)模塊中定義34工程中有兩個(gè)窗體，名稱分別為Form1和Form2，F(xiàn)orm1為

17、啟動(dòng)窗體，該窗體上有命令按鈕Command1。要求程序運(yùn)行后，單擊該命令按鈕時(shí)顯示Form2窗體，則該按鈕的Click事件過程應(yīng)該是 【34】 。A）Private Sub Command1_Click( )        B）Private Sub Command1_Click( )    Form2.Show               

18、60;   Form2.Visible   End Sub                    End Sub C）Private Sub Command1_Click( )         D）Private Sub Command1_Click( )    Loa

19、d Form2                   Form2.Load   End Sub                    End Sub35以下關(guān)于文件的敘述中，錯(cuò)誤的是 【35】 。推薦精選A）順序文件中的記

20、錄一個(gè)接一個(gè)地順序存放 B）同一個(gè)隨機(jī)文件中記錄的長度是相同的 C）使用Append方式打開一個(gè)文件時(shí)，文件指針自動(dòng)指向文件的末尾 D）EOF函數(shù)返回文件的字節(jié)數(shù)36通用對話框中能打開“打開對話框”的方法是 【36】 。A）ShowOpen B）ShowColor C）ShowSave D）ShowPrinter37當(dāng)前窗體有兩個(gè)命令按鈕Command1和Command2，當(dāng)單擊命令按鈕Command1時(shí)能動(dòng)態(tài)隱藏或顯示Command2（即Command2當(dāng)前為顯示狀態(tài)時(shí)，將其隱藏；當(dāng)前為隱藏狀態(tài)時(shí)，將其顯示出來）。下列代碼中能夠?qū)崿F(xiàn)該功能的是 【37】 。A） Private Sub Com

21、mand1_Click( ) If Command2.Visible Then Command2.Visible = True Else Command2.Visible = False End IfEnd SubB）Private Sub Command1_Click( ) If Command2.Enabled Then Command2.Enabled = False Else Command2.Enabled = True End IfEnd SubC）Private Sub Command1_Click( ) Command2.Visible = Not Command2.Visib

22、leEnd SubD）Private Sub Command1_Click( ) Command2. Enabled = Not Command2. EnabledEnd Sub38以下敘述錯(cuò)誤的是 【38】 。A）在KeyUp和KeyDown事件過程中，不能區(qū)分大小寫字母B）在KeyUp和KeyDown事件過程中，能夠識別光標(biāo)移動(dòng)鍵C）KeyPress事件中能夠識別是否按下了了Ctrl鍵或Shift鍵D）在KeyUp和KeyDown事件過程中，能夠識別是否按下了Ctrl鍵或Shift鍵39在下列關(guān)于菜單的說法中，錯(cuò)誤的是 【39】 。A）每一個(gè)菜單項(xiàng)都是一個(gè)控件，與其他控件一樣都有自己的屬性

23、和事件B）菜單項(xiàng)只有Click一個(gè)事件過程C）菜單項(xiàng)的快捷鍵可以任意設(shè)置D）在程序執(zhí)行時(shí)，如果菜單項(xiàng)的Enabled屬性為False，則該菜單項(xiàng)變成灰色，不能被用戶選擇40使菜單項(xiàng)“Edit”中字母“d”下帶下劃線（即將d設(shè)置為熱鍵），在菜單編輯器中“標(biāo)題”處的正確寫法是 【40】 。A） Edit(&E)B） Edit(E)C） &EditD） E&dit推薦精選二、填空題（每空2分，共10分）1. 將多個(gè)單選選擇按鈕控件進(jìn)行分組，所使用的容器控件是 【41】 。Frame（框架）或PictureBox（圖片框）2. 將數(shù)學(xué)表達(dá)式寫成VB的表達(dá)式，其正確的形式是 【4

24、2】 。 Sqr(abs(sin(a)3)+5*exp(3) 3在菜單編輯器中建立了一個(gè)菜單項(xiàng)，名稱為menuPop，用下面的語句可以把它作為彈出式菜單彈出，請?zhí)羁铡?Form1. 【43】 menuPop Popupmenu4. 在窗體Form1中放置一個(gè)文本框控件，名稱為Text1，并有代碼如下：Text1.Move 0,0,Form1.Width, Form1.Height則上述代碼的功能是 【44】 。文本框充滿整個(gè)窗體5. 將C盤根文件夾下的圖片文件“bmp.jpg”作為背景圖片，裝入當(dāng)前窗體的語句為 【45】 。Me.Picture=LoadPicture("C: bmp

25、.jpg")三讀程序?qū)懡Y(jié)果 (每空2分，共30分)請將正確答案按【 】中的序號寫入【文字答題卡】，否則不得分。1. 有下面程序段，運(yùn)行后單擊窗體，顯示的結(jié)果為 【46】 。4Private Sub Form_Click() For K = 1 To 3 If K < 3 Then a = 2 * K ElseIf K = 2 Then a = 2 * K + 1 ElseIf K = 1 Then a = K End If Next K Print aEnd Sub2設(shè)有如下事件過程：Private Sub Form_Click() Dim i As Integer, sum

26、As Integer sum = 0 For i = 2 To 99 If i 10 = 0 And i Mod 3 = 0 Then sum = sum + i End If Next i Print sum推薦精選End Sub程序運(yùn)行后，單擊窗體，輸出結(jié)果是 【47】 。 183在窗體上放置一個(gè)命令按鈕，名稱為Command4，并編寫如下事件過程：Option Base 1Private Sub Command4_Click() Dim A A = Array(2, 15, 23, 6, 14, 8, 11, 7, 3, 16) x = A(10): y = A(10) For i =

27、1 To 10 If x < A(i) Then x = A(i) If y > A(i) Then y = A(i) Next i Print x, yEnd Sub運(yùn)行程序，單擊命令按鈕，則窗體上的輸出結(jié)果是 【48】 。23 24. 在窗體上放置一個(gè)命令按鈕，名稱為Command1，其單擊事件過程的代碼如下：Private Sub Command1_Click() Dim A(3, 3) As Integer, sum As Integer Dim m As Integer, n As Integer For m = 1 To 3 For n = 1 To 3 A(m, n)

28、 = m * 10 + n Next n Next m For m = 1 To 3 sum = sum + A(m, 1) Next mPrint sum End Sub運(yùn)行程序，單擊命令按鈕，則窗體上的輸出結(jié)果是 【49】 。 635編寫如下程序：Dim x As IntegerPrivate Sub Form_Click() Dim a As Integer a = 5: x = 20 Print fun1(a) Print xEnd SubPrivate Function fun1(m As Integer) As Integer m = m 2： x = 10 fun1 = mEnd

29、 Function程序運(yùn)行后，單擊窗體，則窗體上輸出結(jié)果的第一行是 【50】 ； 25 窗體上輸出結(jié)果的第二行是 【51】 。 10推薦精選6在窗體上放置一個(gè)列表框控件，名稱為List1，放置一個(gè)命令按鈕，名稱為Command3，并編寫如下事件過程：Private Sub Command3_Click( ) For i = 1 To List1.ListCount - 1 Print List1.List(i)； Next iEnd SubPrivate Sub Form_Load( ) List1.AddItem "10" List1.AddItem "20&q

30、uot; List1.AddItem "30" List1.AddItem "40"End Sub運(yùn)行程序，單擊命令按鈕，則窗體顯示的輸出結(jié)果是 【52】 。20 30 407在窗體上放置一個(gè)通用對話框，名稱為CDlg1，再放置一個(gè)命令按鈕，名稱為Command1，并編寫如下事件過程： Private Sub Command1_Click() CDlg1.Filter = "所有文件(*.*)|*.*|文本文件（*.txt)|*.txt|位圖文件(*.bmp)|*.bmp" CDlg1.FilterIndex = 2 CDlg1.Sh

31、owSave MsgBox CDlg1.FileNameEnd Sub程序運(yùn)行后，單擊命令按鈕，將彈出一個(gè)“另存為”對話框，此時(shí)在對話框的“文件類型”框中顯示的內(nèi)容是 【53】 。文本文件(*.txt)8有如下程序Dim z As IntegerPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single) z = 99 Print z;End SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, x A

32、s Single, Y As Single) If Button = 1 Then z = z + 1 Print z End IfEnd Sub程序運(yùn)行后，在窗體上單擊鼠標(biāo)右鍵，則輸出結(jié)果是 【54】 。999運(yùn)行下列程序，單擊窗體，則窗體上的輸出結(jié)果是 【55】 。40 27Private Sub mysub(ByRef n As Integer) n = 3 * nEnd SubPrivate Sub Form_Click() Dim m As Integer, n As Integer n = 1: m = 1 For I = 1 To 8 Step 3推薦精選 Call mysub(

33、n) m = m + n Next I Print m; nEnd Sub10在窗體上放置一個(gè)名稱為Command1的命令按鈕，然后編寫如下代碼：Private Function fun(ByVal m As Integer) As Integer If m Mod 2 = 0 Then fun = m Else fun = -1*m End IfEnd FunctionPrivate Sub Command1_Click() Dim i As Integer, s As Integer s = 0 For i = 1 To 5 s = s + fun(i) Next Print sEnd S

34、ub 程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的是 【56】 。 -311在窗體上放置一個(gè)命令按鈕Command1，并編寫如下事件過程和通用過程：Private Sub Command1_Click() Dim n As Integer For i= 1 To 2 Call Sub1(n+i) n = n+i Print n; Next IEnd SubPrivate Sub Sub1(m As Integer) Static x As Integer x = x + 2 m = 3 * xEnd Sub程序運(yùn)行后，單擊命令按鈕，則輸出結(jié)果為 【57】 1 312有如下程序Private Sub

35、 Form_Click() Dim z1, z2 As Integer z1 = 23.45 z2 = 45.23 Print z1; z2推薦精選End Sub運(yùn)行后輸出的結(jié)果是 【58】 。 23.45 4513在窗體上放置一個(gè)命令按鈕，名稱為Command5，然后編寫如下代碼：Private Sub Command5_Click() Print fun("ABCDEF")End SubFunction fun(st As String) As String strlen = Len(st) temp = "" For k = 1 To strlen

36、 / 2 temp = temp + Mid(st, k, 1) + Mid(st, strlen - k + 1, 1) Next k fun = tempEnd Function運(yùn)行程序后，單擊命令按鈕，則窗體上顯示的輸出結(jié)果是 【59】 。AFBECD14設(shè)有如下程序Option Base 1Private Sub Form_Click() Open "d:gds.txt" For Output As #1 a = Array(101, "張三", 102, "李四", 103, "王五", 0) no =

37、a(1): i = 1 For i = 1 To 6 Step 2 Write #1, a(i) Next CloseEnd Sub程序運(yùn)行后，單擊窗體，在文件gds.txt中的第二行數(shù)據(jù)是 【60】 。 102四程序填空題 (每空2分，共20分)請將正確答案按【 】中的序號寫入【文字答題卡】，否則不得分。注意：不得增行或刪行，也不得更改程序的結(jié)構(gòu)。1通過文本框Text1輸入正整數(shù)M，通過文本框Text2輸入正整數(shù)N，利用公式 求組合數(shù)，設(shè)計(jì)界面如下圖所示。推薦精選（1）首先編寫函數(shù)，應(yīng)用遞歸調(diào)用的方式求整數(shù)的階乘，函數(shù)定義如下：Public Function fact(n As Long)

38、As LongDim p As Integer 【61】 p=1 For k=1 To n p=p*kNext k 【62】 fact=pEnd Function（2）然后編寫文本框的事件過程，要求文本框中只能接收輸入的09的數(shù)字，而對其它輸入不進(jìn)行響應(yīng)；Private Sub Text2_KeyPress(KeyAscii As Integer) If 【63】 Then KeyAscii < Asc("0") Or KeyAscii > Asc("9") KeyAscii = 0 End IfEnd Sub（3）編寫“計(jì)算”按鈕Comma

39、nd1的鼠標(biāo)單擊事件過程，根據(jù)Text1和Text2中的輸入計(jì)算組合數(shù)，并在結(jié)果文本框Text3中顯示結(jié)果；Private Sub Command1_Click( ) Dim m As Long, n As Long Dim result As Double m = Val(Text1.Text) n = Val(Text2.Text) result = 【64】 fact(m) / (fact(n) * fact(m - n) Text3.Text = Str(result)End Sub（4）編寫“清除”按鈕Command2的鼠標(biāo)單擊事件過程，清除輸入和輸出文本框中的信息；Private

40、Sub Command2_Click( ) Text1.Text = "" Text2.Text = "" Text3.Text = ""End Sub（5）編寫退出按鈕Command3的鼠標(biāo)單擊事件過程，退出應(yīng)用程序。Private Sub Command3_Click( ) 【65】 EndEnd Sub推薦精選2把C：盤根文件夾下的順序文件mytext1.txt的全部內(nèi)容讀入到變量str中，并在文本框Text1中分行顯示出來。請完善程序。Private Sub Command1_Click( ) Dim str As String Text1.Text = "" Open 【66】 As #1 "C:mytext1.txt" For Input Do While 【67】 Not EOF(1) Input #1, str Text1.Text = 【68】 & Chr(13) & Chr(10) T