VB程序設(shè)計(jì)試題及答案（二）
VB程序設(shè)計(jì)試題大家做過(guò)多少了呢？為此陽(yáng)光網(wǎng)小編為大家推薦了VB程序設(shè)計(jì)試題及參考答案，希望能幫到大家。
VB程序設(shè)計(jì)試題及參考答案：?jiǎn)芜x題
1. Visual Basic是一種面向?qū)ο蟮目梢暬绦蛟O(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
(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
VB程序設(shè)計(jì)試題及參考答案：填空題
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ì)象的三要素是 屬性 、 事件 和 方法 。
VB程序設(shè)計(jì)試題及參考答案：編程應(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除的元素")
【VB程序設(shè)計(jì)試題及答案（二）】相關(guān)文章：