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

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

2、窗口C) 屬性窗口D) 工程資源管理器窗口3設有變量定義語句Dim a%，則變量a的數(shù)據類型是 【3】 。 A) 整型B) 單精度類型C) 雙精度類型D) 字符串類型4下列表達式中，值為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下列程序運行后，單擊窗體，輸出結果是 【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下列程序運行后，單擊窗體，輸出結果是 【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ù)學關系式是 【8】 。If (a < b) Then If d = c Then x = 1 Else x = 2 End IfA) B) C) D) 9下列程序運行后，單擊窗體，輸出結果是 【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下列程序段的輸出結果是 【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ù)組中的元素個數(shù)是 【11】 個。Option Base 1 Dim A(-1 To 2，5) As IntegerA) 5B) 10C) 15D) 2012下面程序段的輸出結果是 【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設有如下的用戶自定義類型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】 ”關鍵字聲明的變量稱為全局變量。A)

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

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

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

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

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

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

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

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

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

16、序讀取數(shù)據而打開該文件，正確的語句是 Open "a.txt" For 【10】 As #1。 答案：Input三、讀程序寫結果（每空3分，共 24 分）（請將答案按照題干上【】內的序號填寫在下表中，否則不得分）分數(shù)【1】【2】【3】【4】【5】【6】【7】【8】1下列面程序運行后，單擊窗體，輸出結果是 【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下列程序運行后，單擊

17、窗體，輸出結果是 【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 在窗體上放置一個文本框，名稱為Text1。下列程序運行后，單擊窗體，Text1中顯示的內容是 【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 下列程序運行后，單擊窗體，輸出結果是 【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 下列程序運行后，單擊窗體，輸出結果是 【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在窗體上放置一個命令按鈕，名稱為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程序運行后，單擊命令按鈕，則輸出結果是 【6】 。答案：18 12 67在窗體上放置一個命令按鈕，名稱為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程序運行后，單擊命令按鈕，則輸出結果是 【7】 。答案：7 11 158在窗體上放置一個文本框，其名稱為Text1，并編寫如下代碼。Dim s As StringPrivate Sub Text1_KeyPress(KeyAscii As Integer) s = s + Chr(KeyAscii) Print s;End Sub程序運行后，在文本框中輸入abc，則窗體上輸出的內容是 【8】 。答案：aababc四、改錯題（每題3分，共 6 分）（請將答

23、案按照題號填寫在下表中，否則不得分）分數(shù)第1題第2題1在窗體上放置一個計時器和一個標簽，計時器名稱為Timer1，標簽名稱為Label1。下列程序的功能是：（1）在窗體加載事件中設置計時器每秒鐘能夠觸發(fā)5次Timer事件；（2）每觸發(fā)一次Timer事件能夠將標簽上的字號加大2，當字號超過當前窗體的寬度時，將字號恢復為8。程序中有一處錯誤，請更正。說明錯誤時可以使用每條語句前的編號。(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下列程序的功能是計算1+3+5+99的和s。程序中有一處錯誤。請更正。說明錯誤時可以使用每條語句前的編號。(1)s = 0(2)k = 1(3)Do While k <= 99(4) k = k + 2 答案：將（4）、（5）調換順序(5) s = s + k(6)Loop(7)Print s五、程序填空題（每空2分

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

26、填空完善程序。Private Sub Form_ Load( ) Dim x As Integere Randomize For k = 1 To 10答案：Int(Rnd * 11 + 20) 或 Rnd*10+20 x = 【1】 '產生一個20,30之間的隨機整數(shù) 【2】 '將x作為列表項添加到List1中 Next k 答案：List1.AddItem x 或 List1.AddItem str(x)End SubPrivate Sub Command1_Click() Dim n As Integer ' n:存放是3的倍數(shù)的列表項的個數(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下列程序的功能是用近似公式 求自然對數(shù)的底 e 的值，直到最后一項小于10-4時停止計算。請?zhí)羁胀晟瞥绦?。Private Sub Form_Click()Dim e As Single, n As Integer, p As Single'e: 累加和 p: 參加求和的當前項e = 1: n = 1: p = 1 Do Wh