為大家收集整理了《2014年計算機二級考試VB專家預(yù)測試卷》供大家參考，希望對大家有所幫助?。。?BR> 1．下列敘述中正確的是( )。
A．棧是“先進先出”的線性表
B．隊列是“先進后出”的線性表
C．循環(huán)隊列是非線性結(jié)構(gòu)
D．有序線性表既可以采用順序存儲結(jié)構(gòu)，也可以采用鏈式存儲結(jié)構(gòu)
2．支持子程序調(diào)用的數(shù)據(jù)結(jié)構(gòu)是( )。
A．棧
B．樹
C．隊列
D．二叉樹
3．某二叉樹有5個度為2的結(jié)點，則該二叉樹中的葉子結(jié)點數(shù)是( )。
A．10
B．8
C．6
D．4
4．下列排序方法中，壞情況下比較次數(shù)少的是( )。
A．冒泡排序
B．簡單選擇排序
C．直接插入排序
D．堆排序
5．軟件按功能可以分為：應(yīng)用軟件、系統(tǒng)軟件和支撐軟件(或工具軟件)。下列屬于應(yīng)用軟件的是( )。
A．編譯程序
B．操作系統(tǒng)
C．教務(wù)管理系統(tǒng)
D．匯編程序
6．下列敘述中錯誤的是( )。
A．軟件測試的目的是發(fā)現(xiàn)錯誤并改正錯誤
B．對被調(diào)試的程序進行“錯誤定位”是程序調(diào)試的必要步驟
C．程序調(diào)試通常也稱為Debug
D．軟件測試應(yīng)嚴格執(zhí)行測試計劃，排除測試的隨意性
7．耦合性和內(nèi)聚性是對模塊獨立性度量的兩個標準。下列敘述中正確的是( )。
A．提高耦合性降低內(nèi)聚性有利于提高模塊的獨立性
B．降低耦合性提高內(nèi)聚性有利于提高模塊的獨立性
C．耦合性是指一個模塊內(nèi)部各個元素問彼此結(jié)合的緊密程度
D．內(nèi)聚性是指模塊間互相連接的緊密程度
8．數(shù)據(jù)庫應(yīng)用系統(tǒng)中的核心問題是( )。
A．數(shù)據(jù)庫設(shè)計
B．數(shù)據(jù)庫系統(tǒng)設(shè)計
C．數(shù)據(jù)庫維護
D．數(shù)據(jù)庫管理員培訓(xùn)
9．有兩個關(guān)系R，S如下：
由關(guān)系R通過運算得到關(guān)系S，則所使用的運算為( )。
A．選擇
B．投影
C．插入
D．連接
10．將E—R圖轉(zhuǎn)換為關(guān)系模式時，實體和聯(lián)系都可以表示為( )。
A．屬性
B．鍵
C．關(guān)系
D．域
11．執(zhí)行語句Dim X，Y As Integer后，( )。
A．X和Y均被定義為整型變量
B．X和Y均被定義為變體類型變量
C．X被定義為整型變量，Y被定義為變體類型變量
D．X被定義為變體類型變量，Y被定義為整型變量
12．下列關(guān)系表達式中，其值為True的是( )。
A．"XYZ">"XYz"
B．"VisualBasic"<>"visualbasic"
C．"the"="there"
D．"Integer"<"Int"
13．執(zhí)行下列程序段
a$="visual Basic Programming"
b$="C++"
C$=UCase(Left$(a$，7))＆b$＆Right$(a$，1 2)
后，變量c$的值為( )。
A．Visual BASIC Programming
B．VISUAL C++Programming
C．Visual C++Programming
D．VISUAL BASIC Programming
14．下列敘述中正確的是( )。
A．MsgBox語句的返回值是一個整數(shù)
B．執(zhí)行MsgBox,語句并出現(xiàn)信息框后，不用關(guān)閉信息框即可執(zhí)行其他操作
C．MsgBox語句的第一個參數(shù)不能省略
D．如果省略MsgBox語句的第三個參數(shù)(Title)，則信息框的標題為空
15．在窗體上畫一個文本框(名稱為Text1)和一個標簽(名稱為Labe11)，程序運行后，在文本框中每輸入一個字符，都會立即在標簽中顯示文本框中字符的個數(shù)。下列可以實現(xiàn)上述操作的事件過程是( )。
A．Private Sub Text1 Change()
Labe11．Caption=Str(Len(Text1．Text))
End Sub
B．Private Sub Text1 Click()
Labe11．Caption=str(Len(Text1．Text))
End Sub
C．Private Sub Text1 Change()
Labe11．Caption=Text1．Text
End Sub
D．Private Sub Labe1 1_Change()
Labe11．Caption=Str(Len(Text1．Text))
End Sub
16．在窗體上畫兩個單選按鈕(名稱分別為Option1、Option2，標題分別為“微軟雅黑”和“黑
體”)、1個復(fù)選框(名稱為Check1，標題為“粗體”)和1個文本框(名稱為Text1，Text屬性為“改變文字字體”)，窗體外觀如下圖所示。程序運行后，要求“微軟雅黑”單選鈕和“粗體”復(fù)選框被選中，則下列能夠?qū)崿F(xiàn)上述操作的語句序列是( )。
A．Option1．Valve=False
Checkl．Vaim=True
B．Option1．Value=True
Check1．Value=0
C．Olption2．Value=False
Check1．Value=2
D．Option1．Value=True
Check1．Value=1
17．在窗體上畫一個名稱為Command1的命令按鈕，然后編寫下列事件過程：
Private Sub Command1Click()
C=1234
c1=Trim(Str(c))
For i=1 To 4
Print
Next
End Sub
程序運行后，單擊命令按鈕，要求在窗體上顯示下列內(nèi)容：1
12
123
1234
則在橫線處應(yīng)填入的內(nèi)容為( )。
A．Right(c1，i)
B．Left(c1，i)
C．Mid(c1，i，1)
D．Mid(c1，i，i)
18．假定有下列程序段
For i=1 TO 3
For j=5 TO 1 Step-1
Print i*j
Next j
Next i
則語句Print i*j的執(zhí)行次數(shù)是( )。
A．15
B．16
C．17
D．18
19．在窗體上畫兩個文本框(名稱分別為Text1和Text2)和一個命令按鈕(名稱為Command1)，然后編寫下列事件過程：
Private Sub Command1 Click()
x=0
DO While x<50
x=(x+2)*(x4．3)
n=n+1
Loop
Text1．Text=Str(n)
Text2．Text=Str(x)
End Sub
程序運行后，單擊命令按鈕，在兩個文本框中顯示的值分別為( )。
A．1和0
B．2和72
C．3和50
D．4和168
20．閱讀程序：
Private Sub Form Click()
a=0
For j=1 To 15
a=a+j Mod 3
Next j
Print a
End Sub
程序運行后，單擊窗體，輸出結(jié)果是( )。
A．105
B．1
C．120
D．15
21．下列說法中正確的是( )。
A．當焦點在某個控件上時，按下一個字母鍵，就會執(zhí)行該控件的KeyPress事件過程
B．因為窗體不接受焦點，所以窗體不存在自己的KeyPress事件過程
C．若按下的鍵相同，KeyPress事件過程中的KeyAscii參數(shù)與KeyDown事件過程中的KeyCode參數(shù)的值也相同
D．在KeyPress事件過程中，KeyAscii參數(shù)可以省略
22．語句Dim a(-3 To 4，3 To 6)As Integer定義的數(shù)組元素個數(shù)是( )。
A．18
B．28
C．21
D．32
23．在窗體上畫一個命令按鈕，其名稱為Command1，然后編寫下列代碼：
Option Base l
Private Sub Command1 Click()
Dim a
a=Array(1，2，3，4)
j=1
For i=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print S
End Sub
程序運行后，單擊命令按鈕，其輸出結(jié)果是( )。
A．4321
B．1234
C．34
D．12
24．假定通過復(fù)制、粘貼操作建立了一個命令按鈕數(shù)組Command1，下列說法中錯誤自是( )。
A．數(shù)組中每個命令按鈕的名稱(Name屬性)均為Command1
B．若未做修改，數(shù)組中每個命令按鈕的大小都一樣
C．數(shù)組中各個命令按鈕使用同一個Click事件過程
D．數(shù)組中每個命令按鈕的Index屬性值都相同
25．在窗體上畫一個命令按鈕，名稱為Command1，然后編寫下列代碼：
Option Base 0
Private Sub Command1 Click()
Dim A1(4)As Integer，A2(4)As Integer
For k=0 To 2
A1(k+1)=InputBox(”請輸入一個整數(shù)”)
A2(3-k)=A1(k+1)
Next k
Print A2(k)
End Sub
程序運行后，單擊命令按鈕，在輸入對話框中依次輸入2、4、6，則輸出結(jié)果為( )。
A．0
B．1
C．2
D．3
26．下列關(guān)于函數(shù)過程的敘述中，正確的是( )。
A．函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關(guān)系
B．在函數(shù)過程中，過程的返回值可以有多個
C．當數(shù)組作為函數(shù)過程的參數(shù)時，既能以傳值方式傳遞，也能以傳址方式傳遞
D．如果不指明函數(shù)過程參數(shù)的類型，則該參數(shù)沒有數(shù)據(jù)類型
27．在窗體上畫兩個標簽和一個命令按鈕，其名稱分別為Label1、Label2和Command1，然后編寫下列程序：
Private Sub rune(L AS Labe1)
L．Caption="1234"
End Sub
Private Sub Form Load()
Labe11．Caption="ABCDE"
Labe12．Caption=10
End Sub
Private Sub Command1Click()
a=Va1(Label2．Caption)
Call func(Label1)
Label2．Caption a
End Sub
程序運行后，單擊命令按鈕，則在兩個標簽中顯示的內(nèi)容分別為( )。
A．ABCD和10 B．1234和100
C．ABCD和100 D．1234和10
28．在窗體上畫一個命令按鈕(名稱為Command1)，并編寫下列代碼：
Function Fun1(ByVa1 a As Integer，b As Integer)As Integer
Dim t As Integer
t=a-b
b=t+a
Fun1=t+b
End Function
Private Sub Command1Click()
Dim X As Integer
x=10
Print Fun1(Vun1(X，(Fun1(x，x-1)))，x-1)
End Sub
程序運行后，單擊命令按鈕，輸出結(jié)果是( )。
A．10
B．0
C．11
D．21
29．下列關(guān)于過程及過程參數(shù)的描述中，錯誤的是( )。
A．過程的參數(shù)可以是控件名稱
B．調(diào)用過程時使用的實參的個數(shù)應(yīng)與過程形參的個數(shù)相同
C．只有函數(shù)過程能夠?qū)⑦^程中處理的信息返回到調(diào)用程序中
D．窗體可以作為過程的參數(shù)
30．設(shè)有下列通用過程：
Public Function Fun(xStr As String)As String
Dim tStr As String，strL As Integer
tStr=""
strL=Len(xStr)
i=strL／2
DO While i<=StrL
tStr=tStr＆Mid(xStr，i+1，1)
i=i+1
Loop
Fun=tStr＆tStr
End Function
在窗體上畫一個名稱為Textl的文本框和一個名稱為Command1的命令按鈕。然后編寫下列的事件過程：
Private Sub Commandl Click()
Dim S1 As String
S1="ABCDEF"
Text1．Text=LCase(Fun(S1))
End Sub
程序運行后，單擊命令按鈕，文本框中顯示的是( )。
A．ABCDEF
B．a(chǎn)bedef
C．defdef
D．defabc
31．在窗體上畫一個命令按鈕和一個文本框(名稱分別為Command1和Text1)，并把窗體的KeyPreview屬性設(shè)置為True，然后編寫下列代碼：
Dim SaveAll As String
Private Sub Form Load()
Show
Text1．Text=""
Text1．SetFocus
End Sub
Private Sub Command1 Click()
Text1．Text=LCase(SaveAll)+SaveAll
End Sub
Private Sub Form KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序運行后，直接用鍵盤輸入VB，再單擊命令按鈕，則文本框中顯示的內(nèi)容為( )。
A．vbVB
B．不顯示任何信息
C．VB
D．出錯
32．設(shè)有下列程序
Private Sub Form Click()
X=50
For i=1 T0 4
y=InputBox("請輸入一個整數(shù)")
y=Val(v)
If y Mod 5=0 Then
a=a+y
x=y
Else
a=a+x
End If
Next i
Print a
End Sub
程序運行后，單擊窗體，在輸入對話框中依次輸入15、24、35、46，輸出結(jié)果為( )。
A．100
B．50
C．120
D．70
33．下列關(guān)于菜單的敘述中，錯誤的是( )。
A．當窗體為活動窗體時，用鍵可以打開菜單編輯器
B．把菜單項的Enabled屬性設(shè)置為False，則可刪除該菜單項
C．彈出式菜單在菜單編輯器中設(shè)計
D．程序運行時。利用控件數(shù)組可以實現(xiàn)菜單項的增加或減少
34．下列敘述中錯誤的是( )。
A．在程序運行時，通用對話框控件是不可見的
B．調(diào)用同一個通用對話框控件的不同方法(如ShowOpen或ShowSave)，可以打開不同的對話框窗口
C．調(diào)用通用對話框控件的Showopen方法，能夠直接打開在該通用對話框中指定的文件
D．調(diào)用通用對話框控件的ShowColor方法，可以打開顏色對話框窗口
35．設(shè)在工程文件中有一個標準模塊，其中定義了下列記錄類型：
Type Books
Name As String*10
TelNum As String*20
End，Type
在窗體上畫一個名為Command1的命令按鈕，要求當執(zhí)行事件過程Command1 Click 時，在順序文件Person．txt中寫入一條Books類型的記錄。下列能夠完成該操作的事件過程是
( )。
A． Private Sub Command1 Click()
Dim B AS Books
Open"Person txt"For Output As#1
B．Name=InputBox(”輸入姓名”)
B．relNum=lnputBox(”輸入電話號碼”)
Wlite#1 B Name，B TelNum
Ch,se#1
End Sub
B． Private Sub Command1 Click()
Dim B AS Books
Open"Person txt"For Input As#1
B．Name=InputBox("輸入姓名")
B．TelNum=InputBox("輸入電話號碼")
Print#1，B．Name，B．TelNam
Close#1
End Sub
C． Private Sub Command1 Click()
Dim BAS Books
Open"Person txt"For Output As#1
B．Name=InputBox("輸入姓名")
B．TelNum=InputBox("輸入電話號碼")
Write#1，B
Close#1
End Sub
D．Private Sub Commandl Click()
Open"Person txt"For Input As#1
Name=lnputBox("輸入姓名")
TelNum=lnputBox("輸入電話號碼")
Prim#1 Name TelNum
Close#1
End Sub
36．窗體上有一個名稱為Command1的命令按鈕，其單擊事件過程及有關(guān)函數(shù)過程如下：
Private Sub Command1 Click()
Dim n As Integer
n=add(5，10)
Print n
End Sub
Function add(v1 As Integer，v2 As Integer，Optiona1 v3)As Integer
If Not IsMissing(v3)Then
add=v1+v2+v3
Else
add=v1+v2
End If
End Function
運行程序，單擊命令按鈕，以下敘述中正確的是( )。
A．程序不能正常運行，因為函數(shù)add的參數(shù)定義有錯
B．程序不能正常運行，因為函數(shù)定義與函數(shù)調(diào)用語句的參數(shù)個數(shù)不匹配
C．程序能正常運行，結(jié)果是在窗體上顯示15
D．程序能正常運行，結(jié)果是在窗體上顯示510v3
37．目錄列表框Path屬性所表示的含義是( )。
A．當前驅(qū)動器或指定驅(qū)動器上的路徑
B．當前驅(qū)動器或指定驅(qū)動器上的某目錄下的文件列表
C．根目錄下的文件列表
D．指定路徑下的文件列表
38．以下關(guān)于函數(shù)過程的敘述中錯誤的是( )。
A．函數(shù)過程一定有返回值
B．函數(shù)過程一定有參數(shù)
C．函數(shù)過程可以在窗體模塊和標準模塊中定義
D．函數(shù)過程參數(shù)的類型與返回值的類型無關(guān)
39．在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下程序：
Public Enum S
a=4
b=3
End Enum
Private Sub Command1 Click()
Dim x As Integer
x=a
If x>=3 Then MsgBox"Pass!"
End Sub
運行程序，其結(jié)果是( )。
A．運行錯誤．因為Enum定義有錯
B．運行錯誤．因為x=a類型不匹配
C．運行正常結(jié)束，不顯示任何信息
D．運行正常．顯示內(nèi)容為“Pass!”的信息框
40．設(shè)有如下程序：
Option Base 1
Private Sub Form Click()
Dim a(5)As String，i As Integer
For i=1 To 5
a(i)=Chr(Asc("A")+i)
Call f(a，i)
Next i
End Sub
Sub f(ta()As String，n As．Integer)
Dim i As Integer
For i=1 To n
Print ta(i)；
Next i
Print
End Sub
對上述程序．以下敘述中正確的是( )。
A．程序有錯，因為在過程f的定義中數(shù)組參數(shù)格式不正確
B．程序可正常運行，輸出內(nèi)容的第一行是一個字母“A”
C．程序可正常運行，輸出內(nèi)容的第一行是一個字母“B”
D．程序可正常運行，輸出內(nèi)容的第一行是數(shù)字65
A．棧是“先進先出”的線性表
B．隊列是“先進后出”的線性表
C．循環(huán)隊列是非線性結(jié)構(gòu)
D．有序線性表既可以采用順序存儲結(jié)構(gòu)，也可以采用鏈式存儲結(jié)構(gòu)
2．支持子程序調(diào)用的數(shù)據(jù)結(jié)構(gòu)是( )。
A．棧
B．樹
C．隊列
D．二叉樹
3．某二叉樹有5個度為2的結(jié)點，則該二叉樹中的葉子結(jié)點數(shù)是( )。
A．10
B．8
C．6
D．4
4．下列排序方法中，壞情況下比較次數(shù)少的是( )。
A．冒泡排序
B．簡單選擇排序
C．直接插入排序
D．堆排序
5．軟件按功能可以分為：應(yīng)用軟件、系統(tǒng)軟件和支撐軟件(或工具軟件)。下列屬于應(yīng)用軟件的是( )。
A．編譯程序
B．操作系統(tǒng)
C．教務(wù)管理系統(tǒng)
D．匯編程序
6．下列敘述中錯誤的是( )。
A．軟件測試的目的是發(fā)現(xiàn)錯誤并改正錯誤
B．對被調(diào)試的程序進行“錯誤定位”是程序調(diào)試的必要步驟
C．程序調(diào)試通常也稱為Debug
D．軟件測試應(yīng)嚴格執(zhí)行測試計劃，排除測試的隨意性
7．耦合性和內(nèi)聚性是對模塊獨立性度量的兩個標準。下列敘述中正確的是( )。
A．提高耦合性降低內(nèi)聚性有利于提高模塊的獨立性
B．降低耦合性提高內(nèi)聚性有利于提高模塊的獨立性
C．耦合性是指一個模塊內(nèi)部各個元素問彼此結(jié)合的緊密程度
D．內(nèi)聚性是指模塊間互相連接的緊密程度
8．數(shù)據(jù)庫應(yīng)用系統(tǒng)中的核心問題是( )。
A．數(shù)據(jù)庫設(shè)計
B．數(shù)據(jù)庫系統(tǒng)設(shè)計
C．數(shù)據(jù)庫維護
D．數(shù)據(jù)庫管理員培訓(xùn)
9．有兩個關(guān)系R，S如下：
由關(guān)系R通過運算得到關(guān)系S，則所使用的運算為( )。
A．選擇
B．投影
C．插入
D．連接
10．將E—R圖轉(zhuǎn)換為關(guān)系模式時，實體和聯(lián)系都可以表示為( )。
A．屬性
B．鍵
C．關(guān)系
D．域
11．執(zhí)行語句Dim X，Y As Integer后，( )。
A．X和Y均被定義為整型變量
B．X和Y均被定義為變體類型變量
C．X被定義為整型變量，Y被定義為變體類型變量
D．X被定義為變體類型變量，Y被定義為整型變量
12．下列關(guān)系表達式中，其值為True的是( )。
A．"XYZ">"XYz"
B．"VisualBasic"<>"visualbasic"
C．"the"="there"
D．"Integer"<"Int"
13．執(zhí)行下列程序段
a$="visual Basic Programming"
b$="C++"
C$=UCase(Left$(a$，7))＆b$＆Right$(a$，1 2)
后，變量c$的值為( )。
A．Visual BASIC Programming
B．VISUAL C++Programming
C．Visual C++Programming
D．VISUAL BASIC Programming
14．下列敘述中正確的是( )。
A．MsgBox語句的返回值是一個整數(shù)
B．執(zhí)行MsgBox,語句并出現(xiàn)信息框后，不用關(guān)閉信息框即可執(zhí)行其他操作
C．MsgBox語句的第一個參數(shù)不能省略
D．如果省略MsgBox語句的第三個參數(shù)(Title)，則信息框的標題為空
15．在窗體上畫一個文本框(名稱為Text1)和一個標簽(名稱為Labe11)，程序運行后，在文本框中每輸入一個字符，都會立即在標簽中顯示文本框中字符的個數(shù)。下列可以實現(xiàn)上述操作的事件過程是( )。
A．Private Sub Text1 Change()
Labe11．Caption=Str(Len(Text1．Text))
End Sub
B．Private Sub Text1 Click()
Labe11．Caption=str(Len(Text1．Text))
End Sub
C．Private Sub Text1 Change()
Labe11．Caption=Text1．Text
End Sub
D．Private Sub Labe1 1_Change()
Labe11．Caption=Str(Len(Text1．Text))
End Sub
16．在窗體上畫兩個單選按鈕(名稱分別為Option1、Option2，標題分別為“微軟雅黑”和“黑
體”)、1個復(fù)選框(名稱為Check1，標題為“粗體”)和1個文本框(名稱為Text1，Text屬性為“改變文字字體”)，窗體外觀如下圖所示。程序運行后，要求“微軟雅黑”單選鈕和“粗體”復(fù)選框被選中，則下列能夠?qū)崿F(xiàn)上述操作的語句序列是( )。
A．Option1．Valve=False
Checkl．Vaim=True
B．Option1．Value=True
Check1．Value=0
C．Olption2．Value=False
Check1．Value=2
D．Option1．Value=True
Check1．Value=1
17．在窗體上畫一個名稱為Command1的命令按鈕，然后編寫下列事件過程：
Private Sub Command1Click()
C=1234
c1=Trim(Str(c))
For i=1 To 4
Next
End Sub
程序運行后，單擊命令按鈕，要求在窗體上顯示下列內(nèi)容：1
12
123
1234
則在橫線處應(yīng)填入的內(nèi)容為( )。
A．Right(c1，i)
B．Left(c1，i)
C．Mid(c1，i，1)
D．Mid(c1，i，i)
18．假定有下列程序段
For i=1 TO 3
For j=5 TO 1 Step-1
Print i*j
Next j
Next i
則語句Print i*j的執(zhí)行次數(shù)是( )。
A．15
B．16
C．17
D．18
19．在窗體上畫兩個文本框(名稱分別為Text1和Text2)和一個命令按鈕(名稱為Command1)，然后編寫下列事件過程：
Private Sub Command1 Click()
x=0
DO While x<50
x=(x+2)*(x4．3)
n=n+1
Loop
Text1．Text=Str(n)
Text2．Text=Str(x)
End Sub
程序運行后，單擊命令按鈕，在兩個文本框中顯示的值分別為( )。
A．1和0
B．2和72
C．3和50
D．4和168
20．閱讀程序：
Private Sub Form Click()
a=0
For j=1 To 15
a=a+j Mod 3
Next j
Print a
End Sub
程序運行后，單擊窗體，輸出結(jié)果是( )。
A．105
B．1
C．120
D．15
21．下列說法中正確的是( )。
A．當焦點在某個控件上時，按下一個字母鍵，就會執(zhí)行該控件的KeyPress事件過程
B．因為窗體不接受焦點，所以窗體不存在自己的KeyPress事件過程
C．若按下的鍵相同，KeyPress事件過程中的KeyAscii參數(shù)與KeyDown事件過程中的KeyCode參數(shù)的值也相同
D．在KeyPress事件過程中，KeyAscii參數(shù)可以省略
22．語句Dim a(-3 To 4，3 To 6)As Integer定義的數(shù)組元素個數(shù)是( )。
A．18
B．28
C．21
D．32
23．在窗體上畫一個命令按鈕，其名稱為Command1，然后編寫下列代碼：
Option Base l
Private Sub Command1 Click()
Dim a
a=Array(1，2，3，4)
j=1
For i=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print S
End Sub
程序運行后，單擊命令按鈕，其輸出結(jié)果是( )。
A．4321
B．1234
C．34
D．12
24．假定通過復(fù)制、粘貼操作建立了一個命令按鈕數(shù)組Command1，下列說法中錯誤自是( )。
A．數(shù)組中每個命令按鈕的名稱(Name屬性)均為Command1
B．若未做修改，數(shù)組中每個命令按鈕的大小都一樣
C．數(shù)組中各個命令按鈕使用同一個Click事件過程
D．數(shù)組中每個命令按鈕的Index屬性值都相同
25．在窗體上畫一個命令按鈕，名稱為Command1，然后編寫下列代碼：
Option Base 0
Private Sub Command1 Click()
Dim A1(4)As Integer，A2(4)As Integer
For k=0 To 2
A1(k+1)=InputBox(”請輸入一個整數(shù)”)
A2(3-k)=A1(k+1)
Next k
Print A2(k)
End Sub
程序運行后，單擊命令按鈕，在輸入對話框中依次輸入2、4、6，則輸出結(jié)果為( )。
A．0
B．1
C．2
D．3
26．下列關(guān)于函數(shù)過程的敘述中，正確的是( )。
A．函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關(guān)系
B．在函數(shù)過程中，過程的返回值可以有多個
C．當數(shù)組作為函數(shù)過程的參數(shù)時，既能以傳值方式傳遞，也能以傳址方式傳遞
D．如果不指明函數(shù)過程參數(shù)的類型，則該參數(shù)沒有數(shù)據(jù)類型
27．在窗體上畫兩個標簽和一個命令按鈕，其名稱分別為Label1、Label2和Command1，然后編寫下列程序：
Private Sub rune(L AS Labe1)
L．Caption="1234"
End Sub
Private Sub Form Load()
Labe11．Caption="ABCDE"
Labe12．Caption=10
End Sub
Private Sub Command1Click()
a=Va1(Label2．Caption)
Call func(Label1)
Label2．Caption a
End Sub
程序運行后，單擊命令按鈕，則在兩個標簽中顯示的內(nèi)容分別為( )。
A．ABCD和10 B．1234和100
C．ABCD和100 D．1234和10
28．在窗體上畫一個命令按鈕(名稱為Command1)，并編寫下列代碼：
Function Fun1(ByVa1 a As Integer，b As Integer)As Integer
Dim t As Integer
t=a-b
b=t+a
Fun1=t+b
End Function
Private Sub Command1Click()
Dim X As Integer
x=10
Print Fun1(Vun1(X，(Fun1(x，x-1)))，x-1)
End Sub
程序運行后，單擊命令按鈕，輸出結(jié)果是( )。
A．10
B．0
C．11
D．21
29．下列關(guān)于過程及過程參數(shù)的描述中，錯誤的是( )。
A．過程的參數(shù)可以是控件名稱
B．調(diào)用過程時使用的實參的個數(shù)應(yīng)與過程形參的個數(shù)相同
C．只有函數(shù)過程能夠?qū)⑦^程中處理的信息返回到調(diào)用程序中
D．窗體可以作為過程的參數(shù)
30．設(shè)有下列通用過程：
Public Function Fun(xStr As String)As String
Dim tStr As String，strL As Integer
tStr=""
strL=Len(xStr)
i=strL／2
DO While i<=StrL
tStr=tStr＆Mid(xStr，i+1，1)
i=i+1
Loop
Fun=tStr＆tStr
End Function
在窗體上畫一個名稱為Textl的文本框和一個名稱為Command1的命令按鈕。然后編寫下列的事件過程：
Private Sub Commandl Click()
Dim S1 As String
S1="ABCDEF"
Text1．Text=LCase(Fun(S1))
End Sub
程序運行后，單擊命令按鈕，文本框中顯示的是( )。
A．ABCDEF
B．a(chǎn)bedef
C．defdef
D．defabc
31．在窗體上畫一個命令按鈕和一個文本框(名稱分別為Command1和Text1)，并把窗體的KeyPreview屬性設(shè)置為True，然后編寫下列代碼：
Dim SaveAll As String
Private Sub Form Load()
Show
Text1．Text=""
Text1．SetFocus
End Sub
Private Sub Command1 Click()
Text1．Text=LCase(SaveAll)+SaveAll
End Sub
Private Sub Form KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序運行后，直接用鍵盤輸入VB，再單擊命令按鈕，則文本框中顯示的內(nèi)容為( )。
A．vbVB
B．不顯示任何信息
C．VB
D．出錯
32．設(shè)有下列程序
Private Sub Form Click()
X=50
For i=1 T0 4
y=InputBox("請輸入一個整數(shù)")
y=Val(v)
If y Mod 5=0 Then
a=a+y
x=y
Else
a=a+x
End If
Next i
Print a
End Sub
程序運行后，單擊窗體，在輸入對話框中依次輸入15、24、35、46，輸出結(jié)果為( )。
A．100
B．50
C．120
D．70
33．下列關(guān)于菜單的敘述中，錯誤的是( )。
A．當窗體為活動窗體時，用鍵可以打開菜單編輯器
B．把菜單項的Enabled屬性設(shè)置為False，則可刪除該菜單項
C．彈出式菜單在菜單編輯器中設(shè)計
D．程序運行時。利用控件數(shù)組可以實現(xiàn)菜單項的增加或減少
34．下列敘述中錯誤的是( )。
A．在程序運行時，通用對話框控件是不可見的
B．調(diào)用同一個通用對話框控件的不同方法(如ShowOpen或ShowSave)，可以打開不同的對話框窗口
C．調(diào)用通用對話框控件的Showopen方法，能夠直接打開在該通用對話框中指定的文件
D．調(diào)用通用對話框控件的ShowColor方法，可以打開顏色對話框窗口
35．設(shè)在工程文件中有一個標準模塊，其中定義了下列記錄類型：
Type Books
Name As String*10
TelNum As String*20
End，Type
在窗體上畫一個名為Command1的命令按鈕，要求當執(zhí)行事件過程Command1 Click 時，在順序文件Person．txt中寫入一條Books類型的記錄。下列能夠完成該操作的事件過程是
( )。
A． Private Sub Command1 Click()
Dim B AS Books
Open"Person txt"For Output As#1
B．Name=InputBox(”輸入姓名”)
B．relNum=lnputBox(”輸入電話號碼”)
Wlite#1 B Name，B TelNum
Ch,se#1
End Sub
B． Private Sub Command1 Click()
Dim B AS Books
Open"Person txt"For Input As#1
B．Name=InputBox("輸入姓名")
B．TelNum=InputBox("輸入電話號碼")
Print#1，B．Name，B．TelNam
Close#1
End Sub
C． Private Sub Command1 Click()
Dim BAS Books
Open"Person txt"For Output As#1
B．Name=InputBox("輸入姓名")
B．TelNum=InputBox("輸入電話號碼")
Write#1，B
Close#1
End Sub
D．Private Sub Commandl Click()
Open"Person txt"For Input As#1
Name=lnputBox("輸入姓名")
TelNum=lnputBox("輸入電話號碼")
Prim#1 Name TelNum
Close#1
End Sub
36．窗體上有一個名稱為Command1的命令按鈕，其單擊事件過程及有關(guān)函數(shù)過程如下：
Private Sub Command1 Click()
Dim n As Integer
n=add(5，10)
Print n
End Sub
Function add(v1 As Integer，v2 As Integer，Optiona1 v3)As Integer
If Not IsMissing(v3)Then
add=v1+v2+v3
Else
add=v1+v2
End If
End Function
運行程序，單擊命令按鈕，以下敘述中正確的是( )。
A．程序不能正常運行，因為函數(shù)add的參數(shù)定義有錯
B．程序不能正常運行，因為函數(shù)定義與函數(shù)調(diào)用語句的參數(shù)個數(shù)不匹配
C．程序能正常運行，結(jié)果是在窗體上顯示15
D．程序能正常運行，結(jié)果是在窗體上顯示510v3
37．目錄列表框Path屬性所表示的含義是( )。
A．當前驅(qū)動器或指定驅(qū)動器上的路徑
B．當前驅(qū)動器或指定驅(qū)動器上的某目錄下的文件列表
C．根目錄下的文件列表
D．指定路徑下的文件列表
38．以下關(guān)于函數(shù)過程的敘述中錯誤的是( )。
A．函數(shù)過程一定有返回值
B．函數(shù)過程一定有參數(shù)
C．函數(shù)過程可以在窗體模塊和標準模塊中定義
D．函數(shù)過程參數(shù)的類型與返回值的類型無關(guān)
39．在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下程序：
Public Enum S
a=4
b=3
End Enum
Private Sub Command1 Click()
Dim x As Integer
x=a
If x>=3 Then MsgBox"Pass!"
End Sub
運行程序，其結(jié)果是( )。
A．運行錯誤．因為Enum定義有錯
B．運行錯誤．因為x=a類型不匹配
C．運行正常結(jié)束，不顯示任何信息
D．運行正常．顯示內(nèi)容為“Pass!”的信息框
40．設(shè)有如下程序：
Option Base 1
Private Sub Form Click()
Dim a(5)As String，i As Integer
For i=1 To 5
a(i)=Chr(Asc("A")+i)
Call f(a，i)
Next i
End Sub
Sub f(ta()As String，n As．Integer)
Dim i As Integer
For i=1 To n
Print ta(i)；
Next i
End Sub
對上述程序．以下敘述中正確的是( )。
A．程序有錯，因為在過程f的定義中數(shù)組參數(shù)格式不正確
B．程序可正常運行，輸出內(nèi)容的第一行是一個字母“A”
C．程序可正常運行，輸出內(nèi)容的第一行是一個字母“B”
D．程序可正常運行，輸出內(nèi)容的第一行是數(shù)字65