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è)

2、計(jì)窗口C) 屬性窗口D) 工程資源管理器窗口3設(shè)有變量定義語句Dim a%，則變量a的數(shù)據(jù)類型是 【3】 。 A) 整型B) 單精度類型C) 雙精度類型D) 字符串類型4下列表達(dá)式中，值為False的是 【4】 。A) ABabcB) ABC = UCase(abc)C) ABCDabcD) Mid(ABCD,3,1)=Left(ABCD,3)5函數(shù)InStr(ABCDEF, CD)的值是 【5】 。A) 2B) 3C) True D) CDEF 6下列程序運(yùn)行后，單擊窗體，輸出結(jié)果是 【6】 。Private Sub Form_Click()Dim a As Integer, b As In

3、tegera = 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 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)行后，

4、單擊窗體，輸出結(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 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) 10

5、C) 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 8D) 2 6 12 2013設(shè)有如下的用戶自定義類型Private Type Stu name As String * 10 age As IntegerEnd Type則以下正確引用該類型成員的代碼是 【13】 。A) S=zhangB) Dim s As S

6、tu = zhangC) Dim s As Type Stu = zhangD) Dim s As Type = zhang14用“ 【14】 ”關(guān)鍵字聲明的變量稱為全局變量。A) 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

7、.0中，要判斷復(fù)選框是否為選中狀態(tài)，使用的屬性是 【17】 。 A) CaptionB) CheckedC) SelectedD) Value18設(shè)列表框List1中共有3個(gè)列表項(xiàng)，如右圖所示。則下列語句中，能夠刪除最后一個(gè)列表項(xiàng)的是 【18】 。A) List1.RemoveItem 2B) List1.RemoveItem 項(xiàng)目CC) List1.RemoveItem List1. ListcountD) List1.RemoveItem List1. ListIndex19組合框分為下拉式組合框、簡(jiǎn)單組合框和下拉式列表框，在“屬性”窗口中這三種類型是由 【19】 屬性設(shè)置的。A) Sty

8、leB) FillStyleC) BackStyleD) BorderStyle20用戶單擊滾動(dòng)條的空白處（滑塊與兩端滾動(dòng)箭頭之間的區(qū)域）時(shí)，Value屬性所增加或減少的值，是由 【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.jpgD) Me.Picture= LoadPicture(b.jpg)22要將兩個(gè)單選按鈕放置在同

9、一個(gè)框架內(nèi)，使它們成為一組，正確的操作是 【22】 。A) 先放置一個(gè)框架，然后在框架中放置兩個(gè)單選按鈕B) 先放置兩個(gè)單選按鈕，再放置一個(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

10、】 。A) 第一個(gè)標(biāo)準(zhǔn)模塊B) 最后一個(gè)被添加的窗體C) 設(shè)計(jì)時(shí)的第一個(gè)窗體D) 最后一個(gè)被添加的標(biāo)準(zhǔn)模塊26在窗體上放置一個(gè)圖像框，名稱為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)存

11、中卸載，正確的語句是 【28】 。A) Form1.ShowB) Load Form1C) Form1.HideD) UnLoad 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)

12、LOF( )C) EOF( )D) LOG( )二、填空題（每空 2分，共 20分）（請(qǐng)將答案按照題干上【】?jī)?nèi)的序號(hào)填寫在下表中，否則不得分）分?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，如果滿足5x10，那么輸出“Yes”，否則輸出“N

13、o”。請(qǐng)?zhí)羁铡 =Val(Text1.Text)答案5 x And x 10 If 【4】 Then Print Yes Else Print No5設(shè)a=1,b=2,c=3，語句 Print a b Or b c And c 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 = aBd12Re For k =

14、1 To Len(s) ch = Mid(s, k, 1) If ch = a And ch 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

15、(1, 1); 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 =

16、t 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 As Inte

17、ger 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)將答案按照題號(hào)填寫

18、在下表中，否則不得分）分?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 Timer1_Tim

19、er()(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 = 1e-4 e = e + p n = n + 1 p = 【6】 答案：p / nLoop Print e的近似值=; eEnd Sub3在下圖所示的窗體上放置的主要控件及其主要的屬性設(shè)置如下：控件類型控件名稱屬性屬性值標(biāo)簽Label1Caption示例文字命令按鈕Command1Caption設(shè)置單選按鈕Optio