VB期末試卷(A卷帶答案 )

1、 高級(jí)語言程序設(shè)計(jì)（VB） 試卷（A卷）注意事項(xiàng)：1、本試卷共 頁，滿分為 100 分，考試時(shí)間為 110 分鐘。 2、標(biāo)準(zhǔn)答題卡使用2B鉛筆涂寫；文字題答題時(shí)請(qǐng)使用藍(lán)、黑鋼筆或圓珠筆，不得使用紅顏色墨水筆。題 目一二三四五總 分分?jǐn)?shù)核對(duì)得 分閱卷人讀卡一、單項(xiàng)選擇題（每空1分，共 30分）（請(qǐng)將答案按照題干上【】?jī)?nèi)的序號(hào)涂寫“標(biāo)準(zhǔn)答題卡”，否則不得分）1在VB 6.0中，擴(kuò)展名為.vbp的文件稱為 【1】 。A) 工程文件B) 窗體文件C) 類模塊文件D) 標(biāo)準(zhǔn)模塊文件2在VB 6.0集成開發(fā)環(huán)境的設(shè)計(jì)模式下，用鼠標(biāo)雙擊窗體上的某個(gè)對(duì)象后，打開的窗口是 【2】 。A) 代碼窗口B) 窗體設(shè)計(jì)

2、窗口C) 屬性窗口D) 工程資源管理器窗口3設(shè)有變量定義語句Dim a%，則變量a的數(shù)據(jù)類型是 【3】 。 A) 整型B) 單精度類型C) 雙精度類型D) 字符串類型4下列表達(dá)式中，值為False的是 【4】 。A) "AB"<"abc"B) "ABC" = UCase("abc")C) "ABCD"<"abc"D) Mid("ABCD",3,1)=Left("ABCD",3)5函數(shù)InStr("ABCDEF&qu

3、ot;, "CD")的值是 【5】 。A) 2B) 3C) True D) CDEF 6下列程序運(yùn)行后，單擊窗體，輸出結(jié)果是 【6】 。Private Sub Form_Click()Dim a As Integer, b As Integera = 3b = 5Print a + b; a & bEnd SubA) 8 8B) 35 35C) 8 35D) 35 87下列程序運(yùn)行后，單擊窗體，輸出結(jié)果是 【7】 。Private Sub Form_Click() a = 3: b = 7 a = a + b : b = a b : a = a - b Print

4、a; bEnd SubA) 4 3B) 7 3C) 3 7D) 10 7 8下面程序段所表示的數(shù)學(xué)關(guān)系式是 【8】 。If (a < b) Then If d = c Then x = 1 Else x = 2 End IfA) B) C) D) 9下列程序運(yùn)行后，單擊窗體，輸出結(jié)果是 【9】 。Private Sub Form_Click() s = 0: k = 1 Do s = s + k: k = k + 1 Loop Until k <= 5 Print sEnd SubA) 15B) 10C) 1D) 010下列程序段的輸出結(jié)果是 【10】 。For k = 4 To

5、2 Step -2 m = k Next k Print m; k;A) 2 2B) 2 0C) 2 1D) 0 0 11用下面的語句定義數(shù)組，則數(shù)組中的元素個(gè)數(shù)是 【11】 個(gè)。Option Base 1 Dim A(-1 To 2，5) As IntegerA) 5B) 10C) 15D) 2012下面程序段的輸出結(jié)果是 【12】 。Dim a(4) As Integer, s As IntegerFor k = 1 To 4 a(k) = 2 * kNext k For k = 1 To 4 Step 2 s = s + a(k) Print s; Next kA) 8B) 20C) 2

6、 8D) 2 6 12 2013設(shè)有如下的用戶自定義類型Private Type Stu name As String * 10 age As IntegerEnd Type則以下正確引用該類型成員的代碼是 【13】 。A) S="zhang"B) Dim s As Stu = "zhang"C) Dim s As Type Stu = "zhang"D) Dim s As Type = "zhang"14用“ 【14】 ”關(guān)鍵字聲明的變量稱為全局變量。A)

7、PrivateB) PublicC) DimD) Static15在窗體上放置一個(gè)文本框，程序運(yùn)行后，在文本框中輸入abc，但顯示的卻是*，可能的原因是該文本框的 【15】 屬性值已經(jīng)被設(shè)置為"*"。A) FontB) TextC) NameD) PasswordChar16在VB 6.0中，Print是對(duì)象的 【16】 。A) 屬性B) 方法C) 事件D) 名稱17在VB 6.0中，要判斷復(fù)選框是否為選中狀態(tài)，使用的屬性是 【17】 。 A) CaptionB) CheckedC) SelectedD) Value18設(shè)列表框List1中共有3個(gè)列表項(xiàng)，如右圖所示。則下列

8、語句中，能夠刪除最后一個(gè)列表項(xiàng)的是 【18】 。A) List1.RemoveItem 2B) List1.RemoveItem "項(xiàng)目C"C) List1.RemoveItem List1. ListcountD) List1.RemoveItem List1. ListIndex19組合框分為下拉式組合框、簡(jiǎn)單組合框和下拉式列表框，在“屬性”窗口中這三種類型是由 【19】 屬性設(shè)置的。A) StyleB) FillStyleC) BackStyleD) BorderStyle20用戶單擊滾動(dòng)條的空白處（滑塊與兩端滾動(dòng)箭頭之間的區(qū)域）時(shí)，Value屬性所增加或減少的值，是

9、由 【20】 屬性決定的。A) MinB) MaxC) SmallChangeD) LargeChange21將圖片文件“b.jpg”作為背景圖片，裝入當(dāng)前窗體，正確的語句是 【21】 。A) Me.Picture=b.jpgB) Me.Picture= LoadPicture(b.jpg)C) Me.Picture="b.jpg"D) Me.Picture= LoadPicture("b.jpg")22要將兩個(gè)單選按鈕放置在同一個(gè)框架內(nèi)，使它們成為一組，正確的操作是 【22】 。A) 先放置一個(gè)框架，然后在框架中放置兩個(gè)單選按鈕B) 先放置兩個(gè)單選按鈕

10、，再放置一個(gè)框架，放置框架時(shí)覆蓋在單選按鈕上C) 先放置兩個(gè)單選按鈕，再放置一個(gè)框架，然后將兩個(gè)單選按鈕拖動(dòng)到框架內(nèi)D) 以上三種方法都正確23計(jì)時(shí)器控件能夠響應(yīng)的事件是 【23】 。A) LoadB) ClickC) ChangeD) Timer24要使命令按鈕處于無效狀態(tài)，可以設(shè)置按鈕的 【24】 屬性值為False。A) CaptionB) Enabled C) Style D) Visible25如果在一個(gè)工程中有多個(gè)窗體和模塊，則VB默認(rèn)的啟動(dòng)對(duì)象是 【25】 。A) 第一個(gè)標(biāo)準(zhǔn)模塊B) 最后一個(gè)被添加的窗體C) 設(shè)計(jì)時(shí)的第一個(gè)窗體D) 最后一個(gè)被添加的標(biāo)準(zhǔn)模塊26在窗體上放置一個(gè)圖

11、像框，名稱為Image1。程序運(yùn)行時(shí)，要保持圖像框大小不變，使框中的圖片能夠自動(dòng)適應(yīng)圖像框的大小，可以執(zhí)行語句 【26】 。A) Image1.AutoSize=TrueB) Image1.Stretch=TrueC) Image1.AutoSize=FalseD) Image1.Stretch=False27使用“菜單編輯器”建立菜單項(xiàng)之間的分隔線時(shí)，在菜單項(xiàng)的“標(biāo)題”中輸入的符號(hào)是 【27】 。A) 減號(hào)-B) 下劃線_C) &D) #28要將窗體Form1從內(nèi)存中卸載，正確的語句是 【28】 。A) Form1.ShowB) Load Form1C) Form1.HideD) U

12、nLoad Form129在窗體上單擊時(shí)，會(huì)觸發(fā)鼠標(biāo)事件MouseDown，其事件過程的一般格式如下：Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) End Sub此時(shí)，如果單擊的是鼠標(biāo)右鍵，則Button參數(shù)的值是 【29】 。A) 1B) 2C) 3D) 4 30獲取文件的長(zhǎng)度（字節(jié)數(shù)），可以使用的函數(shù)是 【30】 。A) LEN( )B) LOF( )C) EOF( )D) LOG( )二、填空題（每空 2分，共 20分）（請(qǐng)將答案按照題干上【】?jī)?nèi)的序號(hào)填寫

13、在下表中，否則不得分）分?jǐn)?shù)【1】【2】【3】【4】【5】【6】【7】【8】【9】【10】1數(shù)學(xué)表達(dá)式改寫為VB表達(dá)式，形式是 【1】 。答案 sqr(3*y) /(x+y)2在VB 6.0中，InputBox函數(shù)返回值的數(shù)據(jù)類型是 【2】 。答案：字符串類型或String3語句 Print Tab(5);"ABC" 的功能是 【3】 。答案：從第5列開始輸出字符串“ABC”4下面程序段的功能是：在文本框Text1中輸入一個(gè)數(shù)值x，如果滿足5<x<10，那么輸出“Yes”，否則輸出“No”。請(qǐng)?zhí)羁?。x =Val(Text1.Text)答案5 < x And

14、x <10 If 【4】 Then Print "Yes" Else Print "No"5設(shè)a=1,b=2,c=3，語句 Print a < b Or b < c And c < a的輸出結(jié)果是 【5】 。答案：True 6在窗體上放置一個(gè)標(biāo)簽，名稱為L(zhǎng)abel1，使用語句 【6】 可以把標(biāo)簽的前景色設(shè)置為藍(lán)色。 Label1.ForeColor = vbBlue 或 RGB(0,0,255) 或QBColor(9)7在窗體上放置一個(gè)圖像框，名稱為Image1，要使該圖像框向下移動(dòng)10個(gè)默認(rèn)單位（twip），正確的語句是Imag

15、e1.Top = 【7】 答案：Image1.Top + 108使用“菜單編輯器”建立了一個(gè)主菜單，名稱為menu1。要把它作為窗體Form1的快捷菜單（也稱為彈出式菜單）彈出，使用的語句是： 答案：PopupmenuForm1. 【8】 menu19在窗體上放置一個(gè)通用對(duì)話框控件，名稱為CommonDialog1。使用該控件建立“打開”文件對(duì)話框時(shí)，要求只能顯示文本文件(即擴(kuò)展名為“.txt”的文件)，則正確的設(shè)置語句是CommonDialog1. 【9】 ="文本文件(*.txt)|*.txt"。答案：Filter10設(shè)磁盤上已存在順序文件“a.txt”，為了從文件中順

16、序讀取數(shù)據(jù)而打開該文件，正確的語句是 Open "a.txt" For 【10】 As #1。 答案：Input三、讀程序?qū)懡Y(jié)果（每空3分，共 24 分）（請(qǐng)將答案按照題干上【】?jī)?nèi)的序號(hào)填寫在下表中，否則不得分）分?jǐn)?shù)【1】【2】【3】【4】【5】【6】【7】【8】1下列面程序運(yùn)行后，單擊窗體，輸出結(jié)果是 【1】 。答案：1 3 9Private Sub Form_Click() s = 0 For n=1 To 3 p = 1 For k = 1 To n p = p * k Next k s = s + pPrint s; Next nEnd Sub2下列程序運(yùn)行后，單擊

17、窗體，輸出結(jié)果是 【2】 。答案：7Private Sub Form_Click() m = 0 For k = 1 To 4 Select Case k Case 1, 2 m = m + 1 Case Is > 3 m = m + 2 Case 1 To 4 m = m + 3 End Select Next k Print mEnd Sub3 在窗體上放置一個(gè)文本框，名稱為Text1。下列程序運(yùn)行后，單擊窗體，Text1中顯示的內(nèi)容是 【3】 。 答案：ade Private Sub Form_Click() Text1.Text = "" s = &

18、quot;aBd12Re" For k = 1 To Len(s) ch = Mid(s, k, 1) If ch >= "a" And ch <= "z" Then Text1.Text = Text1.Text + ch End If Next kEnd Sub4 下列程序運(yùn)行后，單擊窗體，輸出結(jié)果是 【4】 。 答案：11 24 Option Base 1Private Sub Form_Click() x = Array(3, 5, 4, 8, 2, 6, 11, 9, 7, 4) p = x(1): s=0 Fo

19、r k = 2 To UBound(x) If x(k) > p Then p = x(k) s = s + p End If Next k Print p; sEnd Sub5 下列程序運(yùn)行后，單擊窗體，輸出結(jié)果是 【5】 。 答案：1 5 1 Private Sub Form_Click() Dim a(1 To 3, 1 To 3) For i = 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);

20、 a(2, 3); a(3, 3)End Sub6在窗體上放置一個(gè)命令按鈕，名稱為Command2，并編寫如下代碼。Private Sub Command2_Click() Dim m As Integer, n As Integer, g As Integer m = 18: n = 12: g = 0 Call sub1(m, n, g) Print m; n; gEnd SubPublic Sub sub1(ByVal a As Integer, ByVal b As Integer, c As Integer) If a < b Then t = a: a = b: b = t

21、Do While b <> 0 r = a Mod b a = b b = r Loop c = aEnd Sub程序運(yùn)行后，單擊命令按鈕，則輸出結(jié)果是 【6】 。答案：18 12 67在窗體上放置一個(gè)命令按鈕，名稱為Command3，并編寫如下代碼。Private Sub Command3_Click() Dim k As Integer k = 1 Print fun1(k); Print fun1(k); Print fun1(k);End SubFunction fun1(a As Integer) As Integer Static c As Integer Dim b

22、As Integer a = a + 2: b = b + 2: c = c + 2 fun1 = a + b + cEnd Function程序運(yùn)行后，單擊命令按鈕，則輸出結(jié)果是 【7】 。答案：7 11 158在窗體上放置一個(gè)文本框，其名稱為Text1，并編寫如下代碼。Dim s As StringPrivate Sub Text1_KeyPress(KeyAscii As Integer) s = s + Chr(KeyAscii) Print s;End Sub程序運(yùn)行后，在文本框中輸入abc，則窗體上輸出的內(nèi)容是 【8】 。答案：aababc四、改錯(cuò)題（每題3分，共 6 分）（請(qǐng)將答

23、案按照題號(hào)填寫在下表中，否則不得分）分?jǐn)?shù)第1題第2題1在窗體上放置一個(gè)計(jì)時(shí)器和一個(gè)標(biāo)簽，計(jì)時(shí)器名稱為Timer1，標(biāo)簽名稱為L(zhǎng)abel1。下列程序的功能是：（1）在窗體加載事件中設(shè)置計(jì)時(shí)器每秒鐘能夠觸發(fā)5次Timer事件；（2）每觸發(fā)一次Timer事件能夠?qū)?biāo)簽上的字號(hào)加大2，當(dāng)字號(hào)超過當(dāng)前窗體的寬度時(shí)，將字號(hào)恢復(fù)為8。程序中有一處錯(cuò)誤，請(qǐng)更正。說明錯(cuò)誤時(shí)可以使用每條語句前的編號(hào)。(1)Private Sub Form_Load()(2) Timer1.Interval = 5 答案：200(3)Timer1.Enabled = True(4)End Sub(5)Private Sub Tim

24、er1_Timer()(6) Label1.FontSize = Label1.FontSize + 2(7) If Label1.FontSize > Me.Width Then(8) Label1.FontSize = 8(9) End If(10)End Sub2下列程序的功能是計(jì)算1+3+5+99的和s。程序中有一處錯(cuò)誤。請(qǐng)更正。說明錯(cuò)誤時(shí)可以使用每條語句前的編號(hào)。(1)s = 0(2)k = 1(3)Do While k <= 99(4) k = k + 2 答案：將（4）、（5）調(diào)換順序(5) s = s + k(6)Loop(7)Print s五、程序填空題（每空2分

25、，共 20 分）（請(qǐng)將答案按照題干上【】?jī)?nèi)的序號(hào)填寫在下表中，否則不得分）分?jǐn)?shù)第1題【1】【2】【3】【4】第2題【5】【6】第3題【7】【8】第4題【9】【10】1在窗體上放置一個(gè)列表框，名稱為L(zhǎng)ist1；放置一個(gè)文本框，名稱為Text1；放置一個(gè)命令按鈕，名稱為Command1，Caption屬性值為“統(tǒng)計(jì)3的倍數(shù)”。如右圖所示。下列程序的功能是：（1） 在窗體的Load事件中，產(chǎn)生10個(gè)2030（含20和30）之間的隨機(jī)整數(shù)，并作為列表項(xiàng)逐個(gè)添加到列表框List1中。（2） 單擊命令按鈕Command1時(shí)，能夠統(tǒng)計(jì)列表框中是3的倍數(shù)的列表項(xiàng)的個(gè)數(shù)，并將統(tǒng)計(jì)結(jié)果顯示在文本框Text1中。請(qǐng)

26、填空完善程序。Private Sub Form_ Load( ) Dim x As Integere Randomize For k = 1 To 10答案：Int(Rnd * 11 + 20) 或 Rnd*10+20 x = 【1】 '產(chǎn)生一個(gè)20,30之間的隨機(jī)整數(shù) 【2】 '將x作為列表項(xiàng)添加到List1中 Next k 答案：List1.AddItem x 或 List1.AddItem str(x)End SubPrivate Sub Command1_Click() Dim n As Integer ' n:存放是3的倍數(shù)的列表項(xiàng)的個(gè)數(shù) For k = 【3】 答案：0 To List1.ListCount 1 或 0 To 9 If Val(List1.List(k) 【4】 = 0 Then答案： Mod 3 n = n + 1 End If Next k Text1.Text = nEnd Sub2下列程序的功能是用近似公式 求自然對(duì)數(shù)的底 e 的值，直到最后一項(xiàng)小于10-4時(shí)停止計(jì)算。請(qǐng)?zhí)羁胀晟瞥绦?。Private Sub Form_Click()Dim e As Single, n As Integer, p As Single'e: 累加和 p: 參加求和的當(dāng)前項(xiàng)e = 1: n = 1: p = 1 Do Wh