VB程序設(shè)計(jì)期末考試試卷

1、VB程序設(shè)計(jì)期末考試試卷考試形式 : 閉卷考試考試時(shí)間： 120 分鐘題號(hào)得分一二三四五六總分班號(hào)學(xué)號(hào)姓名得分一、單選題（本題15 分，每小題 1 分)如果把一個(gè)人當(dāng)作對(duì)象，那么血型相當(dāng)于這個(gè)對(duì)象的:（A )(A ） 屬性(B ） 方法（ C） 事件（ D） 特征下列哪一種方法不能改變窗體的大?。?C）（A)設(shè)計(jì)時(shí)在窗體布局窗口中進(jìn)行調(diào)整(B ） 設(shè)計(jì)時(shí)在屬性窗口中設(shè)置相應(yīng)的屬性（C)運(yùn)行時(shí)設(shè)置相應(yīng)屬性的值(D ） 運(yùn)行時(shí)調(diào)用窗體的Move 方法一個(gè)對(duì)象可以執(zhí)行的動(dòng)作和可被對(duì)象識(shí)別的動(dòng)作分別稱為：(B)事件、方法（ B） 方法、事件（ C） 屬性、方法（ D)過(guò)程、事件在窗體Form1 的 C

2、lick 事件過(guò)程中有以下語(yǔ)句：(C)Label1.Caption = Visual Basic若本語(yǔ)句執(zhí)行之前，標(biāo)簽控件Label1 的 Caption 屬性為默認(rèn)值， 則標(biāo)簽控件的Name屬性和 Caption 屬性在執(zhí)行本語(yǔ)句之前的值分別為：（A ） Label ”、” Label(B)” Label”、 Caption ”（C） Label1 ” 、 ” Label1(D ） ” Caption ” 、 Label 5見上題。該語(yǔ)句執(zhí)行后，標(biāo)簽控件的Name 屬性和 Caption 屬性的值分別為：(B)”Label 、VisualBasic（ B） Label1 、Visual Ba

3、sicSub 過(guò)程與 Function 過(guò)程最根本的區(qū)別是:( D)（ A)前者可以使用Call 或直接使用過(guò)程名調(diào)用,后者不可以(B ） 后者可以有參數(shù)，前者不可以兩種過(guò)程參數(shù)的傳遞方式不同前者無(wú)返回值，但后者有返回值在定義函數(shù)過(guò)程時(shí)，不可能用到的關(guān)鍵字是：（ C）（ A) Exit（ B） As（ C) Sub(D） End8在定義通用過(guò)程時(shí),下列關(guān)鍵字中不能用來(lái)修飾形參的是：D（ A) ByVal（ B) ByRef（ C） Optional(D) Static9下面定義數(shù)組語(yǔ)句中錯(cuò)誤的是：（A ） Private A （ 10 To 5)D（ B） Dim A(10 ，10 To -1

4、0） As Integer(C） Dim A （) As Integer(D) Dim A(N) N 是變量10下面的哪一條語(yǔ)句與Visual Basic的默認(rèn)設(shè)置相同：(B)（A) Option Base 1(B) Option Base 0(C) ByRef（ D） Option Explicit下列哪類對(duì)象在運(yùn)行時(shí)一定是不可見的：(B)Line(B） Timer（ C) Shape(D ） Frame 12下面各類型對(duì)象中，沒有Move 方法的是：（C)(A) Form(B） Shape（ C） Line（ D) Image 13形狀控件所顯示的圖形不可能是：（ D)(A)圓(B） 橢圓

5、(C） 圓角正方形(D ） 等邊三角形14列表框控件的下列幾個(gè)屬性中，哪一個(gè)不是數(shù)組：( B）（ A ） List(B） ListIndex（ C） Selected（ D) ItemData 15向列表框中添加一個(gè)條目，應(yīng)使用列表框的什么方法：（ B)（ A ） InsertItem（B ） AddItem（ C) AppendItem(D ） RemoveItem二、判斷題（本題15 分，每小題 1 分）標(biāo)簽控件是專門用來(lái)顯示信息的，所以不能響應(yīng)鼠標(biāo)的單擊事件。錯(cuò)窗體的Move 方法不但可以移動(dòng)窗體，而且可以改變窗體的大小，同時(shí)也會(huì)改變窗體與大小和位置有關(guān)的屬性值.對(duì)窗體的 Enabled

6、 屬性為 False 時(shí)，窗體上的按鈕、文本框等控件都不會(huì)對(duì)用戶的操作作出反應(yīng)。 對(duì)一條 Visual Basic 語(yǔ)句如果不超過(guò)80 個(gè)字符是不能續(xù)行的。錯(cuò)在 Visual Basic 程序中不可能同時(shí)出現(xiàn)txtA 和 txta 兩個(gè)控件名。對(duì)If 與End If 關(guān)鍵字必須成對(duì)地使用,有一個(gè) If 就有一個(gè) End If 與之相對(duì)應(yīng)。 錯(cuò)Do 和Loop 關(guān)鍵字必須成對(duì)使用，有一個(gè)Do 就必須有一個(gè)Loop 與之對(duì)應(yīng) .對(duì)For和Exit For 必須成對(duì)使用，有一個(gè)For就必須有一個(gè) Exit For 與之對(duì)應(yīng)。 錯(cuò)Select Case語(yǔ)句實(shí)現(xiàn)的是一種循環(huán)結(jié)構(gòu)。錯(cuò)一個(gè) Do 循環(huán)只能使

7、用一個(gè)Loop 關(guān)鍵字，但可以使用多個(gè)Exit Do 語(yǔ)句。 對(duì)如果過(guò)程的一個(gè)形參使用了ByRef 修飾 ,且調(diào)用時(shí)相應(yīng)的實(shí)參是一個(gè)變量，則實(shí)參變量的數(shù)據(jù)類型必須與形參相同。對(duì)因?yàn)楹瘮?shù)過(guò)程有返回值，所以只能用在表達(dá)式中，不能使用Call 語(yǔ)句調(diào)用。 錯(cuò)事件過(guò)程只能在事件發(fā)生時(shí)由系統(tǒng)調(diào)用，不能在程序中使用代碼直接調(diào)用.錯(cuò)使用 Static 關(guān)鍵字定義的通用過(guò)程中過(guò)程級(jí)變量都為靜態(tài)變量。對(duì)在窗體模塊中，不能定義全局通用過(guò)程。錯(cuò)三、填空題（本題30 分,每小題 2 分)下列數(shù)據(jù)類型的變量各占多少字節(jié)的內(nèi)存：2把整型數(shù)1 賦給一個(gè)邏輯型變量，則邏輯變量的值為（True）。3剛被定義尚未賦值的日期型變量

8、的值為(#0 。00.00 ）；邏輯型變量的值為（False）；對(duì)象型變量的值為（ Nothing ）；變體變量的值為（ Emply ）Byte ： （ 1) ； Integer ： (2) ； Long ： （ 4） ;Single: （ 4） ;Double:（8) 。4對(duì)象型變量可以引用一個(gè)對(duì)象.使用 Dim objFirst As Object語(yǔ)句定義一個(gè)對(duì)象型變量，句.5在一條 Dim 語(yǔ)句中可以定義多個(gè)變量，如Dim strVar, intVar ， sngVar As Integer，則7 Visual Basic 為添加到窗體上的第一個(gè)圖片框提供的默認(rèn)對(duì)象名為（ 3）。8組合框

9、的列表框。(style）屬性決定了該組合框是簡(jiǎn)單組合框、下拉式組合框還是下拉式9當(dāng)復(fù)選框被選定,它的 Value 屬性值為（ 1)；單選框被選定時(shí),則的 Value 屬性為（true)。10不支持Click 事件的控件類型有（ 7）.22311 數(shù)學(xué)式y(tǒng)3ax2by2對(duì)應(yīng)的 VB 表達(dá)式為。已知 a=2， b=3,c=4,d=5 ,表達(dá)式 Not a=c Xor4c=b2Or ba+c 的值為。設(shè)變量 x 是一個(gè)兩位正整數(shù)，寫出判斷x 的十位數(shù)是個(gè)奇數(shù)數(shù)字的VB 邏輯表達(dá)式：x10mod2=1.寫出表達(dá)式Val(10abc.5) Int（ 2.7） 的值：寫出表達(dá)式（-30）。6/21/200

10、2 - 2 的值:2002621如果要把名稱為cmdFirst 的命令按鈕賦予它， 應(yīng)使用（ Setobject=cmdFirst )語(yǔ)strVar、intVar 與 sngVar的數(shù)據(jù)類型分別是（ Variant）、 （Variant ）和 （ Integer）.6定時(shí)器控件的Interval 屬性值是時(shí)間間隔，單位是（ ms 毫秒 ）；當(dāng)每隔此間隔的時(shí)間，定時(shí)器會(huì)引發(fā)一次（ timer）事件。四、程序閱讀題（本題10 分，每小題1寫出單擊窗體后程序的運(yùn)行結(jié)果。5 分）1Private Sub Form_Click（）22For i = 1 To 5333Print Space(5 - ）i

11、 ；4444For j = 1 To I55555Print Trim（Str（ i) ）; Next jPrint Next iEnd Sub寫出單擊窗體四次 ,第一次輸入6，第二次輸入7，第三次輸入8,第四次輸入9,窗體上顯示的結(jié)果。Private Sub Form_Click()Dim x As Integer Static s As Integerx = Val(InputBox（” x=)Select Case x Mod 3 Case 0s = s * x Case 1s = s - x Case Elses = s + x End SelectPrint”；s=”sEnd Sub

12、s=0 s=-7s=1 s=9五。簡(jiǎn)答題（本題10 分， 1.2 小題 3 分 第 3 小題 4 分)1。KeyDown 、KeyUp 與 KeyPress事件各有什么不同 ,應(yīng)分別用在什么場(chǎng)合 ?MouseUp、MouseDown、MouseMove 事件過(guò)程有些什么參數(shù)，每個(gè)參數(shù)的含義是什么 ?可以用哪些方法激活屬性窗口和工具箱窗口六、程序設(shè)計(jì)題（本題共20 分 1.2 小題 6 分 第 3 小題 8 分）我國(guó)現(xiàn)有人口 13 億，設(shè)年增長(zhǎng)率1，計(jì)算多少年后增加到20 億. Sub form click(）Dim p as double Dim r as double Dim n as double P