VB程序設計試題及答案（二）
VB程序設計試題大家做過多少了呢？為此陽光網(wǎng)小編為大家推薦了VB程序設計試題及參考答案，希望能幫到大家。
VB程序設計試題及參考答案：單選題
1. Visual Basic是一種面向?qū)ο蟮目梢暬绦蛟O計語言，采取了 A 的編程機制。
(A) 事件驅(qū)動 (B) 按過程順序執(zhí)行
(C) 從主程序開始執(zhí)行 (D) 按模塊順序執(zhí)行
2. 若要使標簽控件顯示時不覆蓋其背景內(nèi)容，要對 D 屬性進行設置。
(A) Backcolor (B) BorderStyle
(C) Forecolor (D) Backstyle
3. 在Visual Basic中最基本的對象是 C ，它是應用程序的基石，是其他控件的容器。
(A) 文本框 (B) 命令按鈕
(C) 窗體 (D) 標簽
4. 要判斷在文本框是否按下Enter鍵，應在文本框的 D 事件中判斷。
(A) Change (B)KeyDown
(C) Click (D)KeyPress
5. 數(shù)學表達式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. 賦值語句:a=123+Mid("123456"，3，2)執(zhí)行后，a變量中的值是 D 。
(A) "12334" (B) 123 (C) 12334 (D) 157
8. 對于語句If x=l Then y=l，下列說法正確的是 C 。
(A) x=l和y=l均為賦值語句
(B) x=l和y=l均為關系表達式
(C) x=l為關系表達式，y=l為賦值語句
(D) x=l為賦值語句，y=l為關系表達式
9. 下面程序段表示求兩個數(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.當在文本框中輸入“ABCD”4個字符時，窗體上顯示的是 C 。
Private Sub Text1_Change( )
Print Text1;
End Sub
(A) ABCD (B) A (C) AABABCABCD (D) A
B AB
C ABC
D ABCD
11.下列哪個程序段不能分別正確顯示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ù)組聲明語句，則數(shù)組a包含元素的個數(shù)有 A 。
Dim a(3, -2 to 2, 5)
(A) 120 (B) 75 (C) 60 (D) 13
13.以下程序的輸出結果是 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) 程序出錯
14.在過程中定義的變量，若希望離開該過程后，還能保存過程中局部變量的值，則應使用關鍵字 D 在過程中定義局部變量。
(A) Dim (B) Private (C) Public (D) Static
15.如下程序，運行的結果是 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.復選框的Value屬性為1時，表示 B 。
(A) 復選框未被選中 (B) 復選框被選中
(C) 復選框內(nèi)有灰色的勾 (D) 復選框操作有誤
17.下面關于菜單的說法中，錯誤的是 B 。
(A) 每個菜單項都是一個控件，與其他控件一樣也有自己的屬性和事件
(B) 除了Click事件之外，菜單項還能響應其他的，如DbClick事件
(C) 菜單項的快捷鍵不能任意設置
(D) 在程序執(zhí)行時，如果菜單項的Enabled屬性為False，則該菜單項變成灰色，不能被用戶選擇
18.下面關于多重窗體的敘述中，正確的是 B 。
(A) 作為啟動對象的Main子過程中能放在窗體模塊中
(B) 如果啟動對象是Main子過程，則程序啟動時不加載任何窗體，以后由該過程根據(jù)不同情況決定是否加載或加載哪一個窗體
(C) 沒有啟動窗體，程序不能執(zhí)行
(D) 以上都不對
19.當用戶將焦點移到另一個應用程序時，當前應用程序的活動窗體將 D 。
(A) 發(fā)生DeActivate事件
(B) 發(fā)生LostFocus事件
(C) 發(fā)生DeActivate和LostFocus事件
(D) DeActivate和LostFocus事件都不發(fā)生
20.順序文件是因為 D 。
(A) 文件中的數(shù)據(jù)按每行的長度從小到大排序好的
(B) 文件中的數(shù)據(jù)按某個關鍵數(shù)據(jù)項從大到小進行排序
(C) 文件中的數(shù)據(jù)按某個關鍵數(shù)據(jù)項從小到大進行排序
(D) 數(shù)據(jù)按進入的先后順序存放的.，讀出也是按原寫入的先后順序讀出
21.文件號最大可取值為 B 。
(A) 255 (B) 511 (C) 512 (D) 256
22.Print #1, STR$1中的Print是 A 。
(A) 文件的寫語句 (B) 在窗體上顯示的方法
(C) 子程序名 (D) 以上均不是
23.以下的屬性和方法中 C 可重定義坐標系。
(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程序設計試題及參考答案：填空題
1.在代碼窗口對窗體的BorderStyle、MaxButton屬性進行了設置，但運行后沒有效果，原因是這些屬性 在運行時設計是無效的 。
2.在文本框中，通過 SelStart 屬性能活得當前插入點所在的位置。
3.表達式Ucase(Mid(“abcdefgh”, 3, 4))的值是 CDEF 。
4.已知a=3.5，b=5.0，c=2.5，d=True，則表達式：a>=0 And a+c>b+3 Or Not d的值是 False 。
5.要獲得動態(tài)數(shù)組的上界通過 UBound 函數(shù)，下界通過 LBound 函數(shù)。
6.由Array函數(shù)建立的數(shù)組，其變量類型必須是 variant 類型。
7.VB中的變量按其作用域分為全局變量、模塊變量和 局部變量 變量。
8.復選框的 Value 屬性設置為2——Grayed時，變成灰色，禁止用戶選擇。
9.滾動條響應的重要事件有 Scroll 和Change。
10.假定有一個通用對話框控件CommonDialog1，除了用COmmonDialog1.Action=3顯示顏色對話框之外，還可以用 showcolor 方法顯示。
11.窗體Form1的左上角坐標為(-200, 250)，窗體Form1的右下角的坐標為(300, -150)，則X軸的正向向 右 ，Y軸的正向向 上 。
12.使用Circle方法畫扇形，起始角、終止角取值范圍為 0~2π 。
13.在運行狀態(tài)改變ADO數(shù)據(jù)控件的數(shù)據(jù)源連接屬性后，必須使用 Refresh 方法激活這些變化。
14.VB中工程文件的擴展名為 vbg 。
15.如果在窗體上已經(jīng)創(chuàng)建了一個文本框?qū)ο骉ext1，可以通過 Keypress 事件獲得輸入鍵值的ASCII碼。
16.VB中對象的三要素是 屬性 、 事件 和 方法 。
VB程序設計試題及參考答案：編程應用題
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
輸出結果：
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
輸出結果
調(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
輸出結果:
22 484
2.補充程序
(1) 以下是求1～18之間某個數(shù)的階乘的程序，具體的數(shù)值n由滾動條HScroll1獲得，結果顯示在窗體下部的兩個Label標簽里。補充完整如下程序。
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ù)組中某個元素。
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("找不到要刪除的元素")
【VB程序設計試題及答案（二）】相關文章：