一、選擇題：35題，2分/題，共70分
下列各題A)、B)、C)、D)四個選項中，只有一個選項是正確的，請將正確選項涂寫在答題卡相應位置上，答在試卷上不得分。
1.保存一個工程至少應保存兩個文件，這兩個文件分別是（ ）
A)文本文件和工程文件
B)窗體文件和工程文件
C)窗體文件和標準模塊文件
D)類模塊文件和工程文件
分析:
2.當對命令按鈕的Picture屬性裝入.bmp圖形文件后，命令按鈕上并沒有顯示所需的圖形，原因是沒有對某個屬性設置為1，該屬性是（ ）
A)MousePicture
B)Style
C)DownPicture
D)DisabledPicture
分析:
3.下面敘述正確的是（ ）
A)Spc函數(shù)既能用于Print方法中，也能用于表達式
B)Space函數(shù)既能用于Print方法中，也能用于表達式
C)Spc函數(shù)與Space函數(shù)均生成空格，沒有區(qū)別
D)以上說法均不對
分析:
4.假設變量bool_x是一個布爾型(邏輯型)的變量，則下面正確的賦值語句是（ ）
A)bool_x="False"
B)bool_x=.False.
C)bool_x=#False#
D)bool_x=False
分析:
5.要存放如下方陣的數(shù)據(jù)，在不浪費存儲空間的基礎上，能實現(xiàn)聲明的語句是（ ）
1 2 3
2 4 6
3 6 9
A)Dim A(9) As Integer
B)Dim A(3,3) As Integer
C)Dim A(-1 to 1,-3 to -1) As Single
D)Dim A(-3 to -1,1 to 3) As Integer
分析:
6.下面子過程語句說明合法的是（ ）
A)Sub f1（ByVal n() As Integer）
B)Sub f1（n() As Integer）As Integer
C)Function f1（f1 As Integer） As Integer
D)Finction f1（ByVal n As Integer）
分析:
7.已知X>Y，A>B，正確表示它們之間關系的式子是（ ）
A)Sgn(Y-X)-sgn(A-B)<0
B)Sgn(Y-X)-Sgn(A-B)=-2
C)Sgn(Y-X)-Sgn(A-B)=0
D)Sgn(Y-X)-Sgn(A-B)=-1
分析:
8.設a=2,b=4,c=6，下列表達式的值為真的是（ ）
A)a>b And cB)a>b Or cC)a>b Xor cD)a>b Eqv c分析:
9.設S=“中華人民共和國”，表達式Left（S,1）+Right（S,1）+Mid（S,3,2）的值為（ ）
A) “中華民國”
B) “中國人民”
C) “中共人民”
D) “人民共和”
分析:
10.下列表達式的值為2123的是（ ）
A) Val("123asd") & 2000
B) Val("123asd") + 2000
C) Str(123) & "2000"
D)Str(123)+"2000"
分析:
11.下列敘述不正確的是（ ）
A)InputBox函數(shù)返回值為字符型
B)MsgBox函數(shù)返回值為所單擊按鈕的鍵值
C)MsgBox語句返回值為所單擊按鈕的鍵值
D)Shell函數(shù)返回值為所執(zhí)行文件的工作代碼
分析:
12.下列敘述不正確的是（ ）
A)命令按鈕的默認屬性為Caption
B)標簽的默主屬性為Caption
C)復選框的默認屬性為value
D)滾動條的默認屬性為value
分析:
13.下列各程序段中，正確的是（ ）
A)If 10 < 10 Then a=a+10
B)If a> 10 Then a= a+1 Else a= a+ 5 End If
C)If a <=10 Then
a=a + 1
Else
End If
D)If a <=10 Then
a=a + 1
Else If a <=20 Then
a=a + 10
End If
分析:
14.在窗體上畫一個命令按鈕，名稱為Command1。然后編寫如下程序：
Private Sub Command1_Click()
For I= 1 to 2
For J=1 to I
Print String (I,"Hello");
Next J
Print
Next I
End Sub
程序運行后，如果單擊命令按鈕，則在窗體上顯示的內容是（ ）
A)H
HH
HHH
B)H
HHHH
C)HHHHH
D)H
HH
HHHH
分析:
15.為了使圖像框與圖片框的大小適應圖片的大小 ，下邊屬性組設置正確的是（ ）
A)Autosize= Ture Stretch= True
B)Autosize= Ture Stretch= False
C)Autosize= False Stretch= True
D)Autosize= False Stretch= False
分析:
16.假設 x的值為5，則在執(zhí)行以下語句時，其輸出結果為“OK”的Select case語句是（ ）
A)Select Case X
Case 10 to 1
Print "OK"
End Select
B)Select Case X
Case Is > 5,Is <5
Print "OK"
End Select
C)Select Case X
Case Is > 5,1,3 to 10
Print "OK"
End Select
D)Select Case X
Case 1,3 Is > 5
Print "OK"
End Select
分析:
17.有如下程序：
Private Sub Form_Click()
Dim check As Boolean, n As Integer
check=False
n= 0
Do
Do While n< 10
n=n + 1
If n= 5 Then
check=True
Exit Do
End If
Print n；
Loop
Loop Until check=True
End Sub
程序運行后，輸出的結果是（ ）
A)1 2 3
B)1 2 3 4
C)1 2 3 4 5
D)1 2 3 4 5 6
分析:
18.在運行階段，要在文本框Text1獲得焦點時選中文本框中所有內容，對應的事件過程是（ ）
A)Private Sub Text1_GotFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.text)
End Sub
B)Private Sub Text1_LostFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.text)
End Sub
C)Private Sub Text1_Change()
Text1.SelStart=0
Text1.SelLength=Len(Text1.text)
End Sub
D)Private Sub Text1_SetFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.text)
End Sub
分析:
19.有如程序（ ）
Private Sub From_Activate()
Dim a
a=Array(1 ,2 ,3, 4, 5)
For i=LBound(a) To UBound(a)
a(i)=i*a(i)
Next i
Print i,LBound(a),UBound(a),a(i)
End Sub
A)4 0 4 25
B)5 0 4 25
C)不確定
D)程序出錯
分析:
20.在窗體上畫一個水平滾動條，名稱為HScroll1;再畫一個文本框，名稱為Text1。要想使用滾動條滑塊的變化量來調用文本框中文字的大小，則可滿足的語句是（ ）
A)Text1.FontName= HScroll1.Max
B)Text1.FontSize= HScroll1.Min
C)Text1.FontSize= HScroll1.value
D)Text1.FontBold= HScroll1.value
分析:
21.在下列程序中，無論使用鼠標左鍵還是右鍵都能彈出菜單，且彈出菜單中的菜單項都響應鼠標單的是（ ）
A)Sub Form_MouseDown (Button As Integer,Shift As Integer, X As Single, Y As Single)
PopupMenu_test,1
End Sub
B)Sub Form_MouseDown (Button As Integer,Shift As Integer, X As Single, Y As Single)
PopupMenu_test,0
End Sub
C)Sub Form_MouseDown (Button As Integer,Shift As Integer, X As Single, Y As Single)
PopupMenu_test
End Sub
D)Sub Form_MouseDown (Button As Integer,Shift As Integer, X As Single, Y As Single)
PopupMenu_test,2
End Sub
分析:
22.假設在窗體上建立了一個通用對話框，其名稱為CommonDialog1，然后畫一個命令按鈕Command1,并編寫如下事件過程：
Private Sub Command1_Click()
CommonDialog1.Flags=4
CommonDialog1.Filter="all files(* . *)|* .*|text Files(* .Txt)|* .txt|Batch Filse(*.bat)|*.bat"
CommonDialog1.FilterIndex=1
CommonDialog1.ShowOpen
MsgBox CommonDialog1.FileName
End Sub
程序運行后，單擊命令按鈕，將顯示一個“打開”對話框，此時在“文件類型”對話框中顯示的是（ ）
A)All Files(* . *)
B)Text Files(*. Txt)
C)Batch Files(.bat)
D)不確定
分析:
23.按文件的內容劃分有（ ）
A)順序文件和隨機文件
B)ASCII文件和二進制文件
C)程序文件和數(shù)據(jù)文件
D)磁盤文件和打印文件
分析:
24.有如下的程序：
Private Sub Form_Click()
Dim x As Integer, y As Integer
a= 8
b= 3
Call test(6 ,a b+1)
Print "主程序"，6，a, b
End Sub
Sub test (x As Integer, y, As Integer, z As Integer)
Print "子程序"，x,y,z
x = 2
y = 4
z = 9
End Sub
當運行程序后，顯示的結果是（ ）
A)子程序6 4 3
主程序6 8 4
B)主程序6 4 3
子程序6 8 4
C)主程序6 8 4
子程序6 4 3
D)子程序6 8 4
主程序6 4 3
分析:
25.Cls 方法可清除窗體或圖片框中的信息是（ ）
A)Picture屬性設置的背景圖案
B)在設計時放置的控件
C)程序運行時產生的圖形和文字
D)以上方法都對
分析:
26.下列數(shù)組聲明正確的是（ ）
A)n=5
Dim a(1 to n) As Integer
B)Dim a(10) As Integer
ReDim a(1 to 12)
C)Dim a() As Single
ReDim a(3 ,4) As Integer
D)Dim a() As Integer
n=5
ReDim a(1 to n) As Integer
分析:
27.下列控件中，沒有Caption屬性的是（ ）
A)框架
B)列表框
C)復選框
D)單選按鈕
分析:
28.如下程序段定義了學生成績的記錄類型，由學號、姓名、三門課程成績(百分制)組成。
Type Stud
no As Integer
name As String * 10
score (1 to 3) As Single
End Type
若對某個學生的各數(shù)據(jù)項進行賦值，下列程序段正確的是（ ）
A)Dim S As Stud
Stud.no =0201
Stud.name="李平"
Stud.score=78,88,96
B)Dim S As Stud
S.no =0201
S.name="李平"
S.score=78,88,96
C)Dim S As Stud
S.no =0201
S.name="李平"
S.score(1)=78
S.score(2)=88
S.score(3)=96
D)Dim S As Stud
Stud.no =0201
Stud.name="李平"
Stud.score(1)=78
Stud.score(2)=88
Stud.score(3)=96
分析:
29.如果Form1是啟動窗體，并且Form1的Load事件過程中有Form2.Show，則程序啟動后（ ）
A)發(fā)生一個運行時錯誤
B)發(fā)生一個編譯時錯誤
C)在所有的初始化代碼運行后Form1是活動窗體
D)在所有的初始化代碼運行后Form2是活動窗體
分析:
30.如果列表框（List1）中沒有被選定的項目，則執(zhí)行List1.RemoveItem List1.ListIndex語句的結果是（ ）
A)移去第一項
B)移去后一項
C)移去后加入列表一項
D)以上都不對
分析:
31.如下程序，運行的結果是（ ）
Private Sub Form_Click()
Dim m As Integer,i As Integer,x(10) As Integer
For i= 0 to 4
x(i)=i + 1
Next i
For i=1 to 2
Call proc(x)
Next i
For i= 0 to 4
Print x(i);
Next i
End Sub
Public Sub proc(a() As Integer)
Static i As Integer
Do
a(i)=a(i)+a(i+1)
i=i+1
Loop While i<2
End Sub
A)3 4 7 5 6
B)3 5 7 4 5
C)2 3 4 4 5
D)4 5 6 7 8
分析:
32.假設有以下程序段：
For I=1 to 3
For j=5 to 1 Step -1
Print I*j
Next j
Next I
則語句Print I*j的執(zhí)行次數(shù)I、j的值分別是（ ）
A)15 4 0
B)16 3 1
C)17 4 0
D)18 3 1
33.在窗體上一個文本框，其名稱為Text1,然后編寫如下事件過程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim str As String ,n As Integer
str = UCase (Chr(KeyAscii))
n=Len(str)
Text1=String(n, str)
End Sub
程序運行后，如果在鍵盤上輸入單字母"K"，則在文本框Text1中顯示的內容為（ ）
A)kk
B)kK
C)KK
D)Kk
34.下列敘述不正確的是（ ）
A)驅動器列表框是一種能顯示系統(tǒng)中所有有效磁盤驅動器的列表框
B)驅動器列表框的Drive屬性只能在運行時被設置
C)從驅動器列表框中選擇驅動器能自動變更系統(tǒng)當前的工作驅動器
D)要改變系統(tǒng)當前的工作驅動器需要使用ChDrive語句
35.窗體上有Text1、Text2兩個文本框及一個命令按鈕Command1,編寫下列程序：
Dim y As Integer
Private Sub Command1_Click()
Dim x As Integer
x=2
Text1.Text= p2(p1(x),y)
Text2.Text= p1(x)
End Sub
Privage Function P1(x As Integer) As Integer
x =x+y:y=x+y
P1=x+y
End Function
Private Function P2(x As Integer, y As Integer) As Integer
P2= 2*x+y
End Function
當單擊1 次和單擊2次命令按鈕后，文本框Text1和Text2內的值分別是（ ）
A)2 4
2 4
B)2 4
4 8
C)10 10
58 58
D)4 4
8 8
二、填空：每空2分，共30分。
1.在窗體上畫一個命令按鈕，名稱為Command1,Caption屬性設置為“確定”，畫3個標簽Label1、Label2和Label3，在label1中輸入“這是一個絕對值的程序”，在Label2中輸入“請輸入x的值”，Label3將輸出本題 結果，再畫一個文體框，名稱為Textl,用于輸入x的值。當在文本框Textl輸入一個負數(shù)，然后“確定”按鈕，則在標簽Label3中將輸出該數(shù)的絕對值及信息，程序有運行情況如圖2-3所示。請在[1]和[2]處填入適當?shù)膬热?，將程序補充完整。（要求不用取絕對值函數(shù)）
Private Sub Commandl_Click()
Dim x As Single
x=Val(Text1.Text)
Label3.Caption="x=&x
If x<0 Then[1]
Label3.Caption=[2]+", x的絕對值是" &x
End Sub
2.用單循環(huán)實現(xiàn)如圖2-4所示圖案。請在[3]和[4]處填入適當?shù)膬热荩瑢⒊绦蜓a充完整。
Private Sub Form_Click（）
For i =1 To 10
Print Tab(15 -i);String([3],[4](i,1))
Next i
End Sub
3.下面是一個歌手大賽評分程序。10位評委，除去一個高分和一個低分，計算平均分(設滿分為10分)。請在[5]、[6]、和[7]處填入適當?shù)膬热?，將程序補充完整。
Private Sub Form_Click()
Max= 0
Min= 10
For i = 1 To 10
x=Val(InputBox("請輸入分數(shù)"))
If [5] Then Max=x
If [6] Then Min=x
s =s + x
Next i
s = [7]
p = s/8
Print "高分"；Max,"低分"；Min
Print "后得分"；p
End Sub
4.窗體和控件名稱如圖2-5所示，當“電視機”和“付款方式”未被選定時，它們所在框架的控件不能使用，如果單擊“確定”按鈕，則在下面的標簽中顯示用戶所選擇的信息。請在[8]、[9]、[10]和[11]處填入適當?shù)膬热荩瑢⒊绦蜓a充完整。
Private Sub Form__[8]
Combo1.Enabled =False
Textl.Enabled =False
End Sub
Private Sub Check2__Click()
Option1.Enabled = False
Option2.Enabled =False
End Sub
Private Sub [9]
Combo1,Enabled = Not Combo1.Enabled
Textl.Enabled = Not Text1.Enabled
Option1.Enabled= Not Option1.Enabled
Option2.Enabled= Not Option2.Enabled
End Sub
Private Sub Commandl_Click()
If Check1.value = 1 Then
Label1.Caption =Label1.Caption & [10] &vbCrlf
Label1.Caption = Label1.Caption & [11] & vbClf
End If
If Check2.value=1 Then
If Option1.value = True Then
Label1.Caption=Label1.Caption&"現(xiàn)金付款"&vbCrLf
Else
Label1.Caption=Label1.Caption&"轉帳付款"&vbCrLf
End If
End If
End Sub
注：vbCrLf為回車符。
5.組合框是組合了文本框和列表框的特性而組成的一種控件。[12]風格的組合框不允用戶輸入列表框中沒有的項。
6.在Visual Basic中，除了可以指定某個窗體作為啟動對象外，還可以指定[13]為啟動對象。
7.Visual Basic 提供了三種控件，即[14]、[15]和可插入對象。二級VB模擬試卷(二)參考答案
一、(1)B (2)B (3)B (4)D (5)D (6)D (7)B (8)D (9)B (10)B (11)C (12)A (13)C (14)B (15)B (16)C
(17)B (18)A (19)D (20)C (21)D (22)A (23)C (24)D (25)C (26)D (27)B (28)C (29)C (30)D
(31)B (32)A (33)B (34)C (35)C
分析:
二、[1]x=-x [2]Label3.Caption [3]2*i-l [4]Right [5]x>Max [6]x [9]Checkl_Click() [10]Combol.Text [11]Textl.Text [12]下拉式列表框
[13]Main子過程 [14]標準控件（內部控件） [15]ActiveX控件
下列各題A)、B)、C)、D)四個選項中，只有一個選項是正確的，請將正確選項涂寫在答題卡相應位置上，答在試卷上不得分。
1.保存一個工程至少應保存兩個文件，這兩個文件分別是（ ）
A)文本文件和工程文件
B)窗體文件和工程文件
C)窗體文件和標準模塊文件
D)類模塊文件和工程文件
分析:
2.當對命令按鈕的Picture屬性裝入.bmp圖形文件后，命令按鈕上并沒有顯示所需的圖形，原因是沒有對某個屬性設置為1，該屬性是（ ）
A)MousePicture
B)Style
C)DownPicture
D)DisabledPicture
分析:
3.下面敘述正確的是（ ）
A)Spc函數(shù)既能用于Print方法中，也能用于表達式
B)Space函數(shù)既能用于Print方法中，也能用于表達式
C)Spc函數(shù)與Space函數(shù)均生成空格，沒有區(qū)別
D)以上說法均不對
分析:
4.假設變量bool_x是一個布爾型(邏輯型)的變量，則下面正確的賦值語句是（ ）
A)bool_x="False"
B)bool_x=.False.
C)bool_x=#False#
D)bool_x=False
分析:
5.要存放如下方陣的數(shù)據(jù)，在不浪費存儲空間的基礎上，能實現(xiàn)聲明的語句是（ ）
1 2 3
2 4 6
3 6 9
A)Dim A(9) As Integer
B)Dim A(3,3) As Integer
C)Dim A(-1 to 1,-3 to -1) As Single
D)Dim A(-3 to -1,1 to 3) As Integer
分析:
6.下面子過程語句說明合法的是（ ）
A)Sub f1（ByVal n() As Integer）
B)Sub f1（n() As Integer）As Integer
C)Function f1（f1 As Integer） As Integer
D)Finction f1（ByVal n As Integer）
分析:
7.已知X>Y，A>B，正確表示它們之間關系的式子是（ ）
A)Sgn(Y-X)-sgn(A-B)<0
B)Sgn(Y-X)-Sgn(A-B)=-2
C)Sgn(Y-X)-Sgn(A-B)=0
D)Sgn(Y-X)-Sgn(A-B)=-1
分析:
8.設a=2,b=4,c=6，下列表達式的值為真的是（ ）
A)a>b And cB)a>b Or cC)a>b Xor cD)a>b Eqv c分析:
9.設S=“中華人民共和國”，表達式Left（S,1）+Right（S,1）+Mid（S,3,2）的值為（ ）
A) “中華民國”
B) “中國人民”
C) “中共人民”
D) “人民共和”
分析:
10.下列表達式的值為2123的是（ ）
A) Val("123asd") & 2000
B) Val("123asd") + 2000
C) Str(123) & "2000"
D)Str(123)+"2000"
分析:
11.下列敘述不正確的是（ ）
A)InputBox函數(shù)返回值為字符型
B)MsgBox函數(shù)返回值為所單擊按鈕的鍵值
C)MsgBox語句返回值為所單擊按鈕的鍵值
D)Shell函數(shù)返回值為所執(zhí)行文件的工作代碼
分析:
12.下列敘述不正確的是（ ）
A)命令按鈕的默認屬性為Caption
B)標簽的默主屬性為Caption
C)復選框的默認屬性為value
D)滾動條的默認屬性為value
分析:
13.下列各程序段中，正確的是（ ）
A)If 10 < 10 Then a=a+10
B)If a> 10 Then a= a+1 Else a= a+ 5 End If
C)If a <=10 Then
a=a + 1
Else
End If
D)If a <=10 Then
a=a + 1
Else If a <=20 Then
a=a + 10
End If
分析:
14.在窗體上畫一個命令按鈕，名稱為Command1。然后編寫如下程序：
Private Sub Command1_Click()
For I= 1 to 2
For J=1 to I
Print String (I,"Hello");
Next J
Next I
End Sub
程序運行后，如果單擊命令按鈕，則在窗體上顯示的內容是（ ）
A)H
HH
HHH
B)H
HHHH
C)HHHHH
D)H
HH
HHHH
分析:
15.為了使圖像框與圖片框的大小適應圖片的大小 ，下邊屬性組設置正確的是（ ）
A)Autosize= Ture Stretch= True
B)Autosize= Ture Stretch= False
C)Autosize= False Stretch= True
D)Autosize= False Stretch= False
分析:
16.假設 x的值為5，則在執(zhí)行以下語句時，其輸出結果為“OK”的Select case語句是（ ）
A)Select Case X
Case 10 to 1
Print "OK"
End Select
B)Select Case X
Case Is > 5,Is <5
Print "OK"
End Select
C)Select Case X
Case Is > 5,1,3 to 10
Print "OK"
End Select
D)Select Case X
Case 1,3 Is > 5
Print "OK"
End Select
分析:
17.有如下程序：
Private Sub Form_Click()
Dim check As Boolean, n As Integer
check=False
n= 0
Do
Do While n< 10
n=n + 1
If n= 5 Then
check=True
Exit Do
End If
Print n；
Loop
Loop Until check=True
End Sub
程序運行后，輸出的結果是（ ）
A)1 2 3
B)1 2 3 4
C)1 2 3 4 5
D)1 2 3 4 5 6
分析:
18.在運行階段，要在文本框Text1獲得焦點時選中文本框中所有內容，對應的事件過程是（ ）
A)Private Sub Text1_GotFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.text)
End Sub
B)Private Sub Text1_LostFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.text)
End Sub
C)Private Sub Text1_Change()
Text1.SelStart=0
Text1.SelLength=Len(Text1.text)
End Sub
D)Private Sub Text1_SetFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.text)
End Sub
分析:
19.有如程序（ ）
Private Sub From_Activate()
Dim a
a=Array(1 ,2 ,3, 4, 5)
For i=LBound(a) To UBound(a)
a(i)=i*a(i)
Next i
Print i,LBound(a),UBound(a),a(i)
End Sub
A)4 0 4 25
B)5 0 4 25
C)不確定
D)程序出錯
分析:
20.在窗體上畫一個水平滾動條，名稱為HScroll1;再畫一個文本框，名稱為Text1。要想使用滾動條滑塊的變化量來調用文本框中文字的大小，則可滿足的語句是（ ）
A)Text1.FontName= HScroll1.Max
B)Text1.FontSize= HScroll1.Min
C)Text1.FontSize= HScroll1.value
D)Text1.FontBold= HScroll1.value
分析:
21.在下列程序中，無論使用鼠標左鍵還是右鍵都能彈出菜單，且彈出菜單中的菜單項都響應鼠標單的是（ ）
A)Sub Form_MouseDown (Button As Integer,Shift As Integer, X As Single, Y As Single)
PopupMenu_test,1
End Sub
B)Sub Form_MouseDown (Button As Integer,Shift As Integer, X As Single, Y As Single)
PopupMenu_test,0
End Sub
C)Sub Form_MouseDown (Button As Integer,Shift As Integer, X As Single, Y As Single)
PopupMenu_test
End Sub
D)Sub Form_MouseDown (Button As Integer,Shift As Integer, X As Single, Y As Single)
PopupMenu_test,2
End Sub
分析:
22.假設在窗體上建立了一個通用對話框，其名稱為CommonDialog1，然后畫一個命令按鈕Command1,并編寫如下事件過程：
Private Sub Command1_Click()
CommonDialog1.Flags=4
CommonDialog1.Filter="all files(* . *)|* .*|text Files(* .Txt)|* .txt|Batch Filse(*.bat)|*.bat"
CommonDialog1.FilterIndex=1
CommonDialog1.ShowOpen
MsgBox CommonDialog1.FileName
End Sub
程序運行后，單擊命令按鈕，將顯示一個“打開”對話框，此時在“文件類型”對話框中顯示的是（ ）
A)All Files(* . *)
B)Text Files(*. Txt)
C)Batch Files(.bat)
D)不確定
分析:
23.按文件的內容劃分有（ ）
A)順序文件和隨機文件
B)ASCII文件和二進制文件
C)程序文件和數(shù)據(jù)文件
D)磁盤文件和打印文件
分析:
24.有如下的程序：
Private Sub Form_Click()
Dim x As Integer, y As Integer
a= 8
b= 3
Call test(6 ,a b+1)
Print "主程序"，6，a, b
End Sub
Sub test (x As Integer, y, As Integer, z As Integer)
Print "子程序"，x,y,z
x = 2
y = 4
z = 9
End Sub
當運行程序后，顯示的結果是（ ）
A)子程序6 4 3
主程序6 8 4
B)主程序6 4 3
子程序6 8 4
C)主程序6 8 4
子程序6 4 3
D)子程序6 8 4
主程序6 4 3
分析:
25.Cls 方法可清除窗體或圖片框中的信息是（ ）
A)Picture屬性設置的背景圖案
B)在設計時放置的控件
C)程序運行時產生的圖形和文字
D)以上方法都對
分析:
26.下列數(shù)組聲明正確的是（ ）
A)n=5
Dim a(1 to n) As Integer
B)Dim a(10) As Integer
ReDim a(1 to 12)
C)Dim a() As Single
ReDim a(3 ,4) As Integer
D)Dim a() As Integer
n=5
ReDim a(1 to n) As Integer
分析:
27.下列控件中，沒有Caption屬性的是（ ）
A)框架
B)列表框
C)復選框
D)單選按鈕
分析:
28.如下程序段定義了學生成績的記錄類型，由學號、姓名、三門課程成績(百分制)組成。
Type Stud
no As Integer
name As String * 10
score (1 to 3) As Single
End Type
若對某個學生的各數(shù)據(jù)項進行賦值，下列程序段正確的是（ ）
A)Dim S As Stud
Stud.no =0201
Stud.name="李平"
Stud.score=78,88,96
B)Dim S As Stud
S.no =0201
S.name="李平"
S.score=78,88,96
C)Dim S As Stud
S.no =0201
S.name="李平"
S.score(1)=78
S.score(2)=88
S.score(3)=96
D)Dim S As Stud
Stud.no =0201
Stud.name="李平"
Stud.score(1)=78
Stud.score(2)=88
Stud.score(3)=96
分析:
29.如果Form1是啟動窗體，并且Form1的Load事件過程中有Form2.Show，則程序啟動后（ ）
A)發(fā)生一個運行時錯誤
B)發(fā)生一個編譯時錯誤
C)在所有的初始化代碼運行后Form1是活動窗體
D)在所有的初始化代碼運行后Form2是活動窗體
分析:
30.如果列表框（List1）中沒有被選定的項目，則執(zhí)行List1.RemoveItem List1.ListIndex語句的結果是（ ）
A)移去第一項
B)移去后一項
C)移去后加入列表一項
D)以上都不對
分析:
31.如下程序，運行的結果是（ ）
Private Sub Form_Click()
Dim m As Integer,i As Integer,x(10) As Integer
For i= 0 to 4
x(i)=i + 1
Next i
For i=1 to 2
Call proc(x)
Next i
For i= 0 to 4
Print x(i);
Next i
End Sub
Public Sub proc(a() As Integer)
Static i As Integer
Do
a(i)=a(i)+a(i+1)
i=i+1
Loop While i<2
End Sub
A)3 4 7 5 6
B)3 5 7 4 5
C)2 3 4 4 5
D)4 5 6 7 8
分析:
32.假設有以下程序段：
For I=1 to 3
For j=5 to 1 Step -1
Print I*j
Next j
Next I
則語句Print I*j的執(zhí)行次數(shù)I、j的值分別是（ ）
A)15 4 0
B)16 3 1
C)17 4 0
D)18 3 1
33.在窗體上一個文本框，其名稱為Text1,然后編寫如下事件過程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim str As String ,n As Integer
str = UCase (Chr(KeyAscii))
n=Len(str)
Text1=String(n, str)
End Sub
程序運行后，如果在鍵盤上輸入單字母"K"，則在文本框Text1中顯示的內容為（ ）
A)kk
B)kK
C)KK
D)Kk
34.下列敘述不正確的是（ ）
A)驅動器列表框是一種能顯示系統(tǒng)中所有有效磁盤驅動器的列表框
B)驅動器列表框的Drive屬性只能在運行時被設置
C)從驅動器列表框中選擇驅動器能自動變更系統(tǒng)當前的工作驅動器
D)要改變系統(tǒng)當前的工作驅動器需要使用ChDrive語句
35.窗體上有Text1、Text2兩個文本框及一個命令按鈕Command1,編寫下列程序：
Dim y As Integer
Private Sub Command1_Click()
Dim x As Integer
x=2
Text1.Text= p2(p1(x),y)
Text2.Text= p1(x)
End Sub
Privage Function P1(x As Integer) As Integer
x =x+y:y=x+y
P1=x+y
End Function
Private Function P2(x As Integer, y As Integer) As Integer
P2= 2*x+y
End Function
當單擊1 次和單擊2次命令按鈕后，文本框Text1和Text2內的值分別是（ ）
A)2 4
2 4
B)2 4
4 8
C)10 10
58 58
D)4 4
8 8
二、填空：每空2分，共30分。
1.在窗體上畫一個命令按鈕，名稱為Command1,Caption屬性設置為“確定”，畫3個標簽Label1、Label2和Label3，在label1中輸入“這是一個絕對值的程序”，在Label2中輸入“請輸入x的值”，Label3將輸出本題 結果，再畫一個文體框，名稱為Textl,用于輸入x的值。當在文本框Textl輸入一個負數(shù)，然后“確定”按鈕，則在標簽Label3中將輸出該數(shù)的絕對值及信息，程序有運行情況如圖2-3所示。請在[1]和[2]處填入適當?shù)膬热?，將程序補充完整。（要求不用取絕對值函數(shù)）
Private Sub Commandl_Click()
Dim x As Single
x=Val(Text1.Text)
Label3.Caption="x=&x
If x<0 Then[1]
Label3.Caption=[2]+", x的絕對值是" &x
End Sub
2.用單循環(huán)實現(xiàn)如圖2-4所示圖案。請在[3]和[4]處填入適當?shù)膬热荩瑢⒊绦蜓a充完整。
Private Sub Form_Click（）
For i =1 To 10
Print Tab(15 -i);String([3],[4](i,1))
Next i
End Sub
3.下面是一個歌手大賽評分程序。10位評委，除去一個高分和一個低分，計算平均分(設滿分為10分)。請在[5]、[6]、和[7]處填入適當?shù)膬热?，將程序補充完整。
Private Sub Form_Click()
Max= 0
Min= 10
For i = 1 To 10
x=Val(InputBox("請輸入分數(shù)"))
If [5] Then Max=x
If [6] Then Min=x
s =s + x
Next i
s = [7]
p = s/8
Print "高分"；Max,"低分"；Min
Print "后得分"；p
End Sub
4.窗體和控件名稱如圖2-5所示，當“電視機”和“付款方式”未被選定時，它們所在框架的控件不能使用，如果單擊“確定”按鈕，則在下面的標簽中顯示用戶所選擇的信息。請在[8]、[9]、[10]和[11]處填入適當?shù)膬热荩瑢⒊绦蜓a充完整。
Private Sub Form__[8]
Combo1.Enabled =False
Textl.Enabled =False
End Sub
Private Sub Check2__Click()
Option1.Enabled = False
Option2.Enabled =False
End Sub
Private Sub [9]
Combo1,Enabled = Not Combo1.Enabled
Textl.Enabled = Not Text1.Enabled
Option1.Enabled= Not Option1.Enabled
Option2.Enabled= Not Option2.Enabled
End Sub
Private Sub Commandl_Click()
If Check1.value = 1 Then
Label1.Caption =Label1.Caption & [10] &vbCrlf
Label1.Caption = Label1.Caption & [11] & vbClf
End If
If Check2.value=1 Then
If Option1.value = True Then
Label1.Caption=Label1.Caption&"現(xiàn)金付款"&vbCrLf
Else
Label1.Caption=Label1.Caption&"轉帳付款"&vbCrLf
End If
End If
End Sub
注：vbCrLf為回車符。
5.組合框是組合了文本框和列表框的特性而組成的一種控件。[12]風格的組合框不允用戶輸入列表框中沒有的項。
6.在Visual Basic中，除了可以指定某個窗體作為啟動對象外，還可以指定[13]為啟動對象。
7.Visual Basic 提供了三種控件，即[14]、[15]和可插入對象。二級VB模擬試卷(二)參考答案
一、(1)B (2)B (3)B (4)D (5)D (6)D (7)B (8)D (9)B (10)B (11)C (12)A (13)C (14)B (15)B (16)C
(17)B (18)A (19)D (20)C (21)D (22)A (23)C (24)D (25)C (26)D (27)B (28)C (29)C (30)D
(31)B (32)A (33)B (34)C (35)C
分析:
二、[1]x=-x [2]Label3.Caption [3]2*i-l [4]Right [5]x>Max [6]x
[13]Main子過程 [14]標準控件（內部控件） [15]ActiveX控件