VB程序設(shè)計(jì)試題及答案

　　《VB程序設(shè)計(jì)》是2009年清華大學(xué)出版社出版的圖書(shū)。學(xué)了這些內(nèi)容之后，會(huì)面臨一些考試，在寫(xiě)試題的時(shí)候你知道正確的答案嗎?下面是小編整理的VB程序設(shè)計(jì)試題及參考答案，希望對(duì)你有用!

　　VB程序設(shè)計(jì)試題及參考答案

　　一、單選題

　　1. Visual Basic是一種面向?qū)ο蟮目梢暬�程序設(shè)計(jì)語(yǔ)言，采取了 A 的編程機(jī)制。

　　(A) 事件驅(qū)動(dòng) (B) 按過(guò)程順序執(zhí)行

　　(C) 從主程序開(kāi)始執(zhí)行 (D) 按模塊順序執(zhí)行

　　2. 若要使標(biāo)簽控件顯示時(shí)不覆蓋其背景內(nèi)容，要對(duì) D 屬性進(jìn)行設(shè)置。

　　(A) Backcolor (B) BorderStyle

　　(C) Forecolor (D) Backstyle

　　3. 在Visual Basic中最基本的對(duì)象是 C ，它是應(yīng)用程序的基石，是其他控件的容器。

　　(A) 文本框 (B) 命令按鈕

　　(C) 窗體 (D) 標(biāo)簽

　　4. 要判斷在文本框是否按下Enter鍵，應(yīng)在文本框的 D 事件中判斷。

　　(A) Change (B)KeyDown

　　(C) Click (D)KeyPress

　　5. 數(shù)學(xué)表達(dá)式3≤x<l0在VB中的邏輯表達(dá)式為 D 。

　　(A) 3<=x<10 (B) 3<=x AND x>10

　　(C) x>=3 Or x<10 (D) x>=3 AND x<10

　　6. Rnd函數(shù)不可能為下列 B 值。

　　(A) 0 (B) 1 (C) 0.1234 (D) 0.0005

　　7. 賦值語(yǔ)句:a=123+Mid("123456"，3，2)執(zhí)行后，a變量中的值是 D 。

　　(A) "12334" (B) 123 (C) 12334 (D) 157

　　8. 對(duì)于語(yǔ)句If x=l Then y=l，下列說(shuō)法正確的是 C 。

　　(A) x=l和y=l均為賦值語(yǔ)句

　　(B) x=l和y=l均為關(guān)系表達(dá)式

　　(C) x=l為關(guān)系表達(dá)式，y=l為賦值語(yǔ)句

　　(D) x=l為賦值語(yǔ)句，y=l為關(guān)系表達(dá)式

　　9. 下面程序段表示求兩個(gè)數(shù)中的大數(shù)， D 不正確。

　　(A) Max=IIf(x>y，x，y) (B) If x>y Then Max=x Else Max=y

　　(C) Max=x (D) Ify>=x Then Max=y

　　If y>=x Then Max=y Max=x

　　10.當(dāng)在文本框中輸入“ABCD”4個(gè)字符時(shí)，窗體上顯示的是 C 。

　　Private Sub Text1_Change( )

　　Print Text1;

　　End Sub

　　(A) ABCD (B) A (C) AABABCABCD (D) A

　　B AB

　　C ABC

　　D ABCD

　　11.下列哪個(gè)程序段不能分別正確顯示1!、2!、3!、4!的值 B 。

　　(A) For i=1 to 4 (B) For i=1 to 4

　　n=1 For j=1 to i

　　For j=1 to I n=1

　　n=n*j n=n*j

　　Next j Next j

　　Print n Print n

　　Next I Next i

　　(C) n=1 (D) n=1

　　For j=1 to4 j=1

　　n=n*j Do While j<=4

　　Print n n=n*j

　　Next j Print n

　　j=j+1

　　Loop

　　12.如下數(shù)組聲明語(yǔ)句，則數(shù)組a包含元素的個(gè)數(shù)有 A 。

　　Dim a(3, -2 to 2, 5)

　　(A) 120 (B) 75 (C) 60 (D) 13

　　13.以下程序的輸出結(jié)果是 D 。

　　Dim a

　　a=Array(1, 2, 3, 4, 5, 6, 7)

　　For i=Lbound(a) to Ubound(a)

　　a(i)=a(i)*a(i)

　　Next i

　　Print a(i)

　　(A) 49 (B) 0 (C) 不確定 (D) 程序出錯(cuò)

　　14.在過(guò)程中定義的變量，若希望離開(kāi)該過(guò)程后，還能保存過(guò)程中局部變量的值，則應(yīng)使用關(guān)鍵字 D 在過(guò)程中定義局部變量。

　　(A) Dim (B) Private (C) Public (D) Static

　　15.如下程序，運(yùn)行的結(jié)果是 B 。

　　Dim a%, b%, c%

　　Public Sub p1(x%, y%)

　　Dim c%

　　x=2*x: y=y+2: c=x+y

　　End Sub

　　Public Sub p2(x%, ByVal y%)

　　Dim c%

　　x=2*x: y=y+2: c=x+y

　　End Sub

　　Private Sub Command1_Click( )

　　a=2: b=4: c=6

　　Call p1(a, b)

　　Print “a=”; a; “b=”; b; “c=”; c

　　Call p2(a, b)

　　Print “a=”; a; “b=”; b; “c=”; c

　　End Sub

　　(A) a=2 b=4 c=6 (B) a=4 b=6 c=10

　　a=4 b=6 c=10 a=8 b=8 c=16

　　(C) a=4 b=6 c=6 (D) a=4 b=6 c=14

　　a=8 b=6 c=6 a=8 b=8 c=6

　　16.復(fù)選框的Value屬性為1時(shí)，表示 B 。

　　(A) 復(fù)選框未被選中 (B) 復(fù)選框被選中

　　(C) 復(fù)選框內(nèi)有灰色的勾 (D) 復(fù)選框操作有誤

　　17.下面關(guān)于菜單的說(shuō)法中，錯(cuò)誤的是 B 。

　　(A) 每個(gè)菜單項(xiàng)都是一個(gè)控件，與其他控件一樣也有自己的屬性和事件

　　(B) 除了Click事件之外，菜單項(xiàng)還能響應(yīng)其他的，如DbClick事件

　　(C) 菜單項(xiàng)的快捷鍵不能任意設(shè)置

　　(D) 在程序執(zhí)行時(shí)，如果菜單項(xiàng)的Enabled屬性為False，則該菜單項(xiàng)變成灰色，不能被用戶選擇

　　18.下面關(guān)于多重窗體的敘述中，正確的是 B 。

　　(A) 作為啟動(dòng)對(duì)象的Main子過(guò)程中能放在窗體模塊中

　　(B) 如果啟動(dòng)對(duì)象是Main子過(guò)程，則程序啟動(dòng)時(shí)不加載任何窗體，以后由該過(guò)程根據(jù)不同情況決定是否加載或加載哪一個(gè)窗體

　　(C) 沒(méi)有啟動(dòng)窗體，程序不能執(zhí)行

　　(D) 以上都不對(duì)

　　19.當(dāng)用戶將焦點(diǎn)移到另一個(gè)應(yīng)用程序時(shí)，當(dāng)前應(yīng)用程序的活動(dòng)窗體將 D 。

　　(A) 發(fā)生DeActivate事件

　　(B) 發(fā)生LostFocus事件

　　(C) 發(fā)生DeActivate和LostFocus事件

　　(D) DeActivate和LostFocus事件都不發(fā)生

　　20.順序文件是因?yàn)?D 。

　　(A) 文件中的數(shù)據(jù)按每行的長(zhǎng)度從小到大排序好的

　　(B) 文件中的數(shù)據(jù)按某個(gè)關(guān)鍵數(shù)據(jù)項(xiàng)從大到小進(jìn)行排序

　　(C) 文件中的數(shù)據(jù)按某個(gè)關(guān)鍵數(shù)據(jù)項(xiàng)從小到大進(jìn)行排序

　　(D) 數(shù)據(jù)按進(jìn)入的先后順序存放的，讀出也是按原寫(xiě)入的先后順序讀出

　　21.文件號(hào)最大可取值為 B 。

　　(A) 255 (B) 511 (C) 512 (D) 256

　　22.Print #1, STR$1中的Print是 A 。

　　(A) 文件的寫(xiě)語(yǔ)句 (B) 在窗體上顯示的方法

　　(C) 子程序名 (D) 以上均不是

　　23.以下的屬性和方法中 C 可重定義坐標(biāo)系。

　　(A)Drawstyle屬性 (B) DrawWidth屬性

　　(C) Scale方法 (D) ScaleMode屬性

　　24.封閉圖形的填充方式由下列 C 屬性決定。

　　(A) DrawStyle, DrawMode (B) AutoRedraw, ClipControls

　　(C) FillStyle, FillColor (D) ForeColor, BorderColor

　　25.下列字符串中， D 不包含在ADO數(shù)據(jù)控件的ConnectionString屬性中。

　　(A) Microsoft Jet 4.0 OLE DB Provider

　　(B) Data Source=C:\Mydb.mdb

　　(C) Persist Security Info=False

　　(D) 2-adCmdTable

　　二、填空題

　　1.在代碼窗口對(duì)窗體的BorderStyle、MaxButton屬性進(jìn)行了設(shè)置，但運(yùn)行后沒(méi)有效果，原因是這些屬性 在運(yùn)行時(shí)設(shè)計(jì)是無(wú)效的 。

　　2.在文本框中，通過(guò) SelStart 屬性能活得當(dāng)前插入點(diǎn)所在的位置。

　　3.表達(dá)式Ucase(Mid(“abcdefgh”, 3, 4))的值是 CDEF 。

　　4.已知a=3.5，b=5.0，c=2.5，d=True，則表達(dá)式：a>=0 And a+c>b+3 Or Not d的值是 False 。

　　5.要獲得動(dòng)態(tài)數(shù)組的上界通過(guò) UBound 函數(shù)，下界通過(guò) LBound 函數(shù)。

　　6.由Array函數(shù)建立的數(shù)組，其變量類(lèi)型必須是 variant 類(lèi)型。

　　7.VB中的變量按其作用域分為全局變量、模塊變量和 局部變量 變量。

　　8.復(fù)選框的 Value 屬性設(shè)置為2——Grayed時(shí)，變成灰色，禁止用戶選擇。

　　9.滾動(dòng)條響應(yīng)的重要事件有 Scroll 和Change。

　　10.假定有一個(gè)通用對(duì)話框控件CommonDialog1，除了用COmmonDialog1.Action=3顯示顏色對(duì)話框之外，還可以用 showcolor 方法顯示。

　　11.窗體Form1的左上角坐標(biāo)為(-200, 250)，窗體Form1的右下角的`坐標(biāo)為(300, -150)，則X軸的正向向 右 ，Y軸的正向向 上 。

　　12.使用Circle方法畫(huà)扇形，起始角、終止角取值范圍為 0~2π 。

　　13.在運(yùn)行狀態(tài)改變ADO數(shù)據(jù)控件的數(shù)據(jù)源連接屬性后，必須使用 Refresh 方法激活這些變化。

　　14.VB中工程文件的擴(kuò)展名為 vbg 。

　　15.如果在窗體上已經(jīng)創(chuàng)建了一個(gè)文本框?qū)ο骉ext1，可以通過(guò) Keypress 事件獲得輸入鍵值的ASCII碼。

　　16.VB中對(duì)象的三要素是 屬性 、 事件 和 方法 。

　　三、編程應(yīng)用題

　　1.程序閱讀

　　(1)

　　Private Sub Command1_Click( )

　　Dim s as String, i%

　　s="abcd"

　　For i=Len(s) to 1 step -1

　　Print Mid(s, i, 1)

　　Next i

　　End Sub

　　輸出結(jié)果：

　　d

　　c

　　b

　　a

　　(2)

　　Sub Swap1(ByVal x%, ByVal y%)

　　Dim t%

　　t = x: x = y: y = t

　　End Sub

　　Sub Swap2(ByRef x%, ByRef y%)

　　Dim t%

　　t = x: x = y: y = t

　　End Sub

　　Sub Command1_Click()

　　Dim a%, b%

　　a = 10: b = 20

　　Print "調(diào)用Swap1前 a和b的值為："; a; b

　　Call Swap1(a, b)

　　Print "調(diào)用Swap1后按傳值方式 a和b的值為："; a; b

　　a = 10: b = 20

　　Call Swap2(a, b)

　　Print "調(diào)用Swap2后按傳地址方式 a和b的值為："; a; b

　　End Sub

　　輸出結(jié)果

　　調(diào)用Swap1前 a和b的值為：10 20

　　調(diào)用Swap1后按傳值方式 a和b的值為：10 20

　　調(diào)用Swap2后按傳地址方式 a和b的值為： 20 10

　　(3)

　　Private Sub Command1_Click( )

　　Dim x%, y%, z%

　　x=242: y=44

　　z=x*y

　　Do Until x=y

　　If x>y Then x=x-y Else y=y-x

　　Loop

　　Print x, z/x

　　End Sub

　　輸出結(jié)果:

　　22 484

　　2.補(bǔ)充程序

　　(1) 以下是求1～18之間某個(gè)數(shù)的階乘的程序，具體的數(shù)值n由滾動(dòng)條HScroll1獲得，結(jié)果顯示在窗體下部的兩個(gè)Label標(biāo)簽里。補(bǔ)充完整如下程序。

　　Private Sub HScroll1_Change()

　　Dim i As Integer, s As Double

　　s = 1

　　n = Hscroll1.Value

　　If n <> 0 Then

　　For i = 1 To n

　　s = s*i

　　Next i

　　End If

　　Label2.Caption = n & "! = "

　　Label3.Caption = s

　　End Sub

　　(2)以下程序的功能是：已知數(shù)組a，刪除數(shù)組中某個(gè)元素。

　　Private Sub Command1_Click( )

　　Dim a( ), key%, i%, j%

　　a=Array(1, 6, 8, 3, 5, 9, 10, 2, 4, 7)

　　key=9

　　For i=0 to UBound(a)

　　If a(i)=9 Then

　　For j=i+1 to UBound(a)

　　a(j)=a(j+1)

　　Next j

　　ReDim a(j)=a(i)

　　MsgBox("刪除完成")

　　Exit Sub

　　End If

　　Next i

　　MsgBox("找不到要?jiǎng)h除的元素")