一、選擇題：35題，2分/題，共70分
下列各題A)、B)、C)、D)四個選項(xiàng)中，只有一個選項(xiàng)是正確的，請將正確選項(xiàng)涂寫在答題卡相應(yīng)位置上，答在試卷上不得分。
1.假定窗體有一個標(biāo)簽，名為Label1,為了使該標(biāo)簽透明并且沒有這框，則正確的屬性設(shè)置為（ ）
A)Label1.Backstyle=0 Label1.BorderStyle=0
B)Label1.Backstyle=1 Label1.BorderStyle=1
C)Label1.Backstyle=True Label1.BorderStyle=True
D)Label1.Backstyle=False Label1.BorderStyle=False
分析:
2.通過改變單選按鈕（Option Button）控件的（ ）屬性值，可以改變按鈕的選取狀態(tài)。
A)value
B)Style
C)Appearance
D)Caption
分析:
3.以下語句用于打開一個順序文件Open"C:\MyFile.txt"For OutPut,但是該語句的一個重要錯誤是沒有（ ）
A)指定打開方式
B)指定文件號
C)指定打開文件名
D)指定文件類型
分析:
4.假定有如下的Sub 過程：
Sub S(x As Single, y As Single)
t = x
x=t / y
y=t Mod y
End Sub
在窗體上畫一個命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
a=5
b=2
S a, b
Print a, b
End Sub
程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是（ ）
A)5 2
B)1 1
C)1.25 4
D)2.5 1
分析:
5.如果要在程序中顯示一個彈出式菜單，那么要調(diào)用Visual Basic中提供的（ ）方法。
A)Print
B)Move
C)Refresh
D)PopupMenu
分析:
6.假定有以下兩個過程：
Private Sub PPP (a As Single, b As Single)
a = a + b
Print a , b
b = a + b
Print a, b
End Sub
Private Sub Form_Activate()
x=18
Call PPP ((x),(x))
Print x
End Sub
則以下說法中不正確的是（ ）
A)虛參是 a 和b ，兩個實(shí)參(x)和(x)允許重名
B)虛參是 a 和b ，實(shí)參(x)表示是傳值調(diào)用
C)虛參是 a 和b ，實(shí)參(x)表示是非傳址調(diào)用
D)虛參是 a 和b ，兩個實(shí)參(x)和(x)不允許重名
分析:
7.在窗體上畫一個列表框和一個文本框，然后編寫如下兩個事件過程：
Private Sub Form_Load()
List1.AddItem"357"
List1.AddItem"246"
List1.AddItem"123"
List1.AddItem"456"
Text1.Text=""
End Sub
Private Sub List1_DblClick()
M = List1.Text
Print M + Text1.Text
End Sub
程序運(yùn)行后，在文本框中輸入“123”，然后雙擊列表框中的“456”，則輸出結(jié)果為（ ）
A)1245
B)456123
C)123456
D)0
分析:
8.用（ ）屬性可惟一標(biāo)志控件陣列中的某一個控件。
A) Name
B) Index
C) Caption
D) TabIndex
分析:
9.為了把一個記錄型變量的內(nèi)容寫入文件中指定的位置，所使用語句的格式為（ ）
A)Get 文件名，記錄號，變量名
B)Get 文件號，變量名，記錄號
C)Put 文件號，變量名，記錄號
D)Put 文件號，記錄號，變量名
分析:
10.閱讀程序：
Function F ( a As Integer)
b = 0
Static c
b= b + 1
c= c + 2
F= a + b + c
End Functon
Private Sub Command1_Click()
Dim a As Integer
a = 2
For i = 1 to 3
Print F(a)
Next i
End Sub
運(yùn)行上面的程序，單擊命令按鈕，輸出結(jié)果為（ ）
A) 4 5 6
B) 5 7 9
C) 4 6 8
D) 4 7 9
分析:11.惟一能區(qū)別一個控件屬性的是（ ）
A)Caption
B)Text
C)Name
D)Index
分析:
12.以下描述正確的是（ ）
A)過程的定義可以嵌套，但過程的調(diào)用不能嵌套
B)過程的定義不可以嵌套，但過程的調(diào)用可以嵌套
C)過程的定義和過程的調(diào)用均可以嵌套
D)過程的定義和過程的調(diào)用均不能嵌套
分析:
13.用Dim AABB(-2 to 10, 4 to 8,1)聲明的是一個（ ）維數(shù)組。
A)1
B)2
C)3
D)4
分析:
14.在VB代碼中，將多個語句合并寫在一行上的并行符是（ ）
A)撇號（’）
B)冒號（：）
C)感嘆號（！）
D)星號（*）
分析:
15.如果在立即窗口中執(zhí)行以下操作：
a = 8(是回車鍵，下同)
b = 9
Print a > b
則輸出結(jié)果是( )
A)-1
B)0
C)False
D)True
分析:
16.在窗體上畫兩個文本框（其Name屬性分別為Text1和Text2）和一個命令按鈕（其Name 屬性為Command1），然后編寫如下事件過程：
Private Sub Command1)_Click()
x=0
Do Until x > = 50
x= (x + 4)*(x + 3)
n= n+1
Loop
Text1.Text=Str(n)
Text1.Text=Str(x)
End Sub
程序運(yùn)行后，單擊命令按鈕，在兩個文本框中顯示的值分別為（ ）
A)1 和 0
B)2 和240
C)3 和 50
D)4 和168
分析:
17.在窗體上畫一個文本框，然后編寫如下事件過程：（ ）
Private Sub Text1_KeyPress (KeyAscii As Integer)
Dim char As String
char=Chr (KeyAscii)
KeyAscii=Asc(UCase(char))
Text1.Text=String(6, KeyAscii))
End Sub
A)a
B)A
C)aaaaaa
D)AAAAAA
分析:
18.編寫如下事件過程:
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
If(Button And 3)=3 Then
Print "AAAA"
End If
End Sub
程序運(yùn)行后，為了在窗體上輸出“AAAA”,應(yīng)該下的鼠標(biāo)鍵為（ ）
A)左
B)右
C)同時按下左、右
D)按什么鍵都不顯示
分析:
19.用于去掉一個字符串的右邊的空白部分的函數(shù)是（ ）
A)RTrim()
B)Right()
C)Asc()
D)Time()
分析:
20.下列哪條語句是錯的（ ）
A)RTrim()
B)Exit Function
C)Exit While
D)Exit Do
分析:21.設(shè) a= 8,則執(zhí)行x=IIF(a > 10 ,-1,0)后，x 的值為（ ）
A)5
B)6
C)0
D)-1
分析:
22.Visual Basic 一共有設(shè)計(jì)、運(yùn)行和中斷三種模式，要使用調(diào)試工具應(yīng)該（ ）
A)進(jìn)入設(shè)計(jì)模式
B)進(jìn)入運(yùn)行模式
C)進(jìn)入中斷模式
D)不用進(jìn)入任何模式
分析:
23.如何使圖像（Image）控件中的圖像自動適宜控件的大小?( )
A)將控件的AutoSize屬性設(shè)為True
B)將控件的AutoSize屬性設(shè)為False
C)將控件的Stretch屬性設(shè)為True
D)將控件的Stretch屬性設(shè)為False
分析:
24.如果要在程序代碼中為圖片框動態(tài)加載和清除圖像，可以利用（ ）函數(shù)。
A)InputBox
B)Input
C)LoadPicture
D)PaintPicture
分析:
25.在窗體上畫一個命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
x = 0
Do Until x = -1
a = InputBox("請輸入 a 的值")
a = Val (a)
b = InputBox("請輸入 b 的值")
b = Val (b)
x = InputBox("請輸入 x 的值")
x = Val(x)
a = a + b + x
Loop
Print a
End Sub
程序運(yùn)行后，單擊命令按鈕，依次在輸入對話框中輸入 10、8、9、2、11、-1，則輸出結(jié)果為（ ）。
A)12
B)13
C)14
D)15
分析:
26.函數(shù)過程（用Function定義）與子過程（用Sub 定義）的區(qū)別是（ ）
A)函數(shù)過程有返回值
B)子過程有返回值
C)函數(shù)過程可以帶參數(shù)
D)子過程可以帶參數(shù)
分析:
27.Visual Basic根據(jù)計(jì)算機(jī)訪問文件的方式將文件分成三類，其中不包括（ ）
A)順序文件
B)Unix文件
C)二進(jìn)制文件
D)隨機(jī)文件
分析:
28.要顯示當(dāng)前過程中的所有變量及對象的取值，可以利用（ ）窗口。
A)數(shù)據(jù)
B)調(diào)用堆棧
C)立即
D)本地
分析:
29.符號％是聲明（ ）類型變量的類型定義符。
A)Integer
B)Variant
C)Single
D)String
分析:
30.Visual Basic 中窗體文件的擴(kuò)展名是（ ）
A)VBP
B)FRM
C)VBW
D)PDM
分析: 31.關(guān)于MDI窗體下列說法正確的是（ ）
A)一個應(yīng)用程序可以有多個MDI窗體
B)子窗體可以移動MDI窗體以外
C)不可以在MDI窗體上放置按鈕控件
D)MDI窗體的子窗體不可以擁有菜單
分析:
32.窗體在屏幕上顯示后有（ ）方法可以清除它。
A)1種
B)2種
C)3種
D)4種
分析:
33.假定在窗體上建立一個通用對話框，其名稱為CommonDialog1,用下面的語句可以建立一個對話框：
CommonDialong1.Action = 4
與該語句等價的語句是（ ）
A)CommonDialong1.ShowOpen
B)CommonDialong1.ShowFont
C)CommonDialong1.ShowColor
D)CommonDialong1.ShowSave
分析:
34.在窗體上畫一個命令按鈕，然后編寫如下事件過程：
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array (1,3,5,7,9)
j = 1
For i = 5 to 1 Step -1
s= s +a(i) * j
j= j * 10
Next i
Print s
End Sub
運(yùn)行上面的程序，單擊命令按鈕，其輸出結(jié)果是（ ）
A)97531
B)135
C)957
D)13579
分析:
35.下列語句都是在Form 中定義的，（ ）是錯的。
A)Public Const A1 = 2u
B)Private Const A2 = 8
C)Public a3 As Integer
D)Private a4 As Integer
分析:
二、填空：每空2分，共30分。
1.閱讀以下程序：
Private Sub Form_Click()
Dim k,n ,m, As Integer
n = 10
m =1
k =1
Do While k < = n
m = m + 2
k = k + 1
Loop
Print m
End Sub
單擊窗體，程序的執(zhí)行結(jié)果是[1]
2.當(dāng)用[2]方式打開文件時，如果對文件進(jìn)行寫操作，則寫入的數(shù)據(jù)附加到原來文件的后面。
3.組合框有3種不同的類型，這3種類型是下拉式列表框、簡單組合框和[3],分別通過把[4]屬性設(shè)置為2、1、0來實(shí)現(xiàn)。
4.為了在按下ESC鍵時執(zhí)行某個命令按鈕的事件過程，需要把該命令按鈕的一個屬性設(shè)置為True,這個屬性是[5]。
5.在執(zhí)行KeyPress事件過程時，KeyASCII是所按鍵的[6]值。對于有上檔字符和下檔字符的鍵，當(dāng)執(zhí)行KeyDown事件過程時，KeyCode是[7]字符的[8]值。
6.在窗體上面畫一個命令按鈕，然后編寫如下程序:
Function M (x As Integer, y As Integer) As Integer
M =IIf (X >y ,x,y)
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 1
b = 2
Print M (a,b)
End Sub
程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為[9]
7.在窗體上畫兩個文本框，其名稱分別為Text1和Text2，然后編寫如下事件過程：
Private Sub Form_Load()
Show
Text1.Text=""
Text2.Text=""
Text2.SetFocus
End Sub
Private Sub Text2_KeyDown(KeyCode As Integer,Shift As Integer)
Text1.Text= Text1.Text +Chr(KeyCode - 4 )
End Sub
程序運(yùn)行后，如果在Text2文本框中輸入“efghi”,則Text1文本框中的內(nèi)容為[10]8.執(zhí)行下面的程序段后，b的值為[ ]
a = 800
b = 30
a = a + b
b = a - b
a = a - b
9.為了執(zhí)行自動施放，必須把[12]屬性設(shè)置為[13],而為了執(zhí)行手動拖放，必須把該屬性設(shè)置為[14]
10.讀下列程序：
Private Sub Form_Click()
Static x(4) As Integer
For i = 1 to 4
x(i) =x (i) + i * 3
Next i
Print
For i = 1 to 4
print "x("；i；") ="；x(i)
Next i
End Sub
該程序在運(yùn)行了三次后，其最終結(jié)果是：[15]
二級VB模擬試卷(三)參考答案
一、(1)A (2)A (3)B (4)D (5)D (6)D (7)B (8)B (9)D (10)B (11)C (12)B (13)C (14)B (15)C (16)B
(17)D (18)D (19)A (20)C (21)C (22)C (23)C (24)C (25)A (26)A (27)B (28)D (29)A (30)B
(31)C (32)B (33)B (34)D (35)A
分析:
二、[1]21 [2]Append [3]下拉式組合框 [4]Style [5]Cancel [6]ASCII [7]下檔字符 [8]ASCII
[9]2 [10]ABCDE [11]800 [12]DragMode [13]1 [14]0
[15]x(1)=9 x(2)=18 x(3)=27 x(4)=36
下列各題A)、B)、C)、D)四個選項(xiàng)中，只有一個選項(xiàng)是正確的，請將正確選項(xiàng)涂寫在答題卡相應(yīng)位置上，答在試卷上不得分。
1.假定窗體有一個標(biāo)簽，名為Label1,為了使該標(biāo)簽透明并且沒有這框，則正確的屬性設(shè)置為（ ）
A)Label1.Backstyle=0 Label1.BorderStyle=0
B)Label1.Backstyle=1 Label1.BorderStyle=1
C)Label1.Backstyle=True Label1.BorderStyle=True
D)Label1.Backstyle=False Label1.BorderStyle=False
分析:
2.通過改變單選按鈕（Option Button）控件的（ ）屬性值，可以改變按鈕的選取狀態(tài)。
A)value
B)Style
C)Appearance
D)Caption
分析:
3.以下語句用于打開一個順序文件Open"C:\MyFile.txt"For OutPut,但是該語句的一個重要錯誤是沒有（ ）
A)指定打開方式
B)指定文件號
C)指定打開文件名
D)指定文件類型
分析:
4.假定有如下的Sub 過程：
Sub S(x As Single, y As Single)
t = x
x=t / y
y=t Mod y
End Sub
在窗體上畫一個命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
a=5
b=2
S a, b
Print a, b
End Sub
程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是（ ）
A)5 2
B)1 1
C)1.25 4
D)2.5 1
分析:
5.如果要在程序中顯示一個彈出式菜單，那么要調(diào)用Visual Basic中提供的（ ）方法。
A)Print
B)Move
C)Refresh
D)PopupMenu
分析:
6.假定有以下兩個過程：
Private Sub PPP (a As Single, b As Single)
a = a + b
Print a , b
b = a + b
Print a, b
End Sub
Private Sub Form_Activate()
x=18
Call PPP ((x),(x))
Print x
End Sub
則以下說法中不正確的是（ ）
A)虛參是 a 和b ，兩個實(shí)參(x)和(x)允許重名
B)虛參是 a 和b ，實(shí)參(x)表示是傳值調(diào)用
C)虛參是 a 和b ，實(shí)參(x)表示是非傳址調(diào)用
D)虛參是 a 和b ，兩個實(shí)參(x)和(x)不允許重名
分析:
7.在窗體上畫一個列表框和一個文本框，然后編寫如下兩個事件過程：
Private Sub Form_Load()
List1.AddItem"357"
List1.AddItem"246"
List1.AddItem"123"
List1.AddItem"456"
Text1.Text=""
End Sub
Private Sub List1_DblClick()
M = List1.Text
Print M + Text1.Text
End Sub
程序運(yùn)行后，在文本框中輸入“123”，然后雙擊列表框中的“456”，則輸出結(jié)果為（ ）
A)1245
B)456123
C)123456
D)0
分析:
8.用（ ）屬性可惟一標(biāo)志控件陣列中的某一個控件。
A) Name
B) Index
C) Caption
D) TabIndex
分析:
9.為了把一個記錄型變量的內(nèi)容寫入文件中指定的位置，所使用語句的格式為（ ）
A)Get 文件名，記錄號，變量名
B)Get 文件號，變量名，記錄號
C)Put 文件號，變量名，記錄號
D)Put 文件號，記錄號，變量名
分析:
10.閱讀程序：
Function F ( a As Integer)
b = 0
Static c
b= b + 1
c= c + 2
F= a + b + c
End Functon
Private Sub Command1_Click()
Dim a As Integer
a = 2
For i = 1 to 3
Print F(a)
Next i
End Sub
運(yùn)行上面的程序，單擊命令按鈕，輸出結(jié)果為（ ）
A) 4 5 6
B) 5 7 9
C) 4 6 8
D) 4 7 9
分析:11.惟一能區(qū)別一個控件屬性的是（ ）
A)Caption
B)Text
C)Name
D)Index
分析:
12.以下描述正確的是（ ）
A)過程的定義可以嵌套，但過程的調(diào)用不能嵌套
B)過程的定義不可以嵌套，但過程的調(diào)用可以嵌套
C)過程的定義和過程的調(diào)用均可以嵌套
D)過程的定義和過程的調(diào)用均不能嵌套
分析:
13.用Dim AABB(-2 to 10, 4 to 8,1)聲明的是一個（ ）維數(shù)組。
A)1
B)2
C)3
D)4
分析:
14.在VB代碼中，將多個語句合并寫在一行上的并行符是（ ）
A)撇號（’）
B)冒號（：）
C)感嘆號（！）
D)星號（*）
分析:
15.如果在立即窗口中執(zhí)行以下操作：
a = 8
b = 9
Print a > b
則輸出結(jié)果是( )
A)-1
B)0
C)False
D)True
分析:
16.在窗體上畫兩個文本框（其Name屬性分別為Text1和Text2）和一個命令按鈕（其Name 屬性為Command1），然后編寫如下事件過程：
Private Sub Command1)_Click()
x=0
Do Until x > = 50
x= (x + 4)*(x + 3)
n= n+1
Loop
Text1.Text=Str(n)
Text1.Text=Str(x)
End Sub
程序運(yùn)行后，單擊命令按鈕，在兩個文本框中顯示的值分別為（ ）
A)1 和 0
B)2 和240
C)3 和 50
D)4 和168
分析:
17.在窗體上畫一個文本框，然后編寫如下事件過程：（ ）
Private Sub Text1_KeyPress (KeyAscii As Integer)
Dim char As String
char=Chr (KeyAscii)
KeyAscii=Asc(UCase(char))
Text1.Text=String(6, KeyAscii))
End Sub
A)a
B)A
C)aaaaaa
D)AAAAAA
分析:
18.編寫如下事件過程:
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
If(Button And 3)=3 Then
Print "AAAA"
End If
End Sub
程序運(yùn)行后，為了在窗體上輸出“AAAA”,應(yīng)該下的鼠標(biāo)鍵為（ ）
A)左
B)右
C)同時按下左、右
D)按什么鍵都不顯示
分析:
19.用于去掉一個字符串的右邊的空白部分的函數(shù)是（ ）
A)RTrim()
B)Right()
C)Asc()
D)Time()
分析:
20.下列哪條語句是錯的（ ）
A)RTrim()
B)Exit Function
C)Exit While
D)Exit Do
分析:21.設(shè) a= 8,則執(zhí)行x=IIF(a > 10 ,-1,0)后，x 的值為（ ）
A)5
B)6
C)0
D)-1
分析:
22.Visual Basic 一共有設(shè)計(jì)、運(yùn)行和中斷三種模式，要使用調(diào)試工具應(yīng)該（ ）
A)進(jìn)入設(shè)計(jì)模式
B)進(jìn)入運(yùn)行模式
C)進(jìn)入中斷模式
D)不用進(jìn)入任何模式
分析:
23.如何使圖像（Image）控件中的圖像自動適宜控件的大小?( )
A)將控件的AutoSize屬性設(shè)為True
B)將控件的AutoSize屬性設(shè)為False
C)將控件的Stretch屬性設(shè)為True
D)將控件的Stretch屬性設(shè)為False
分析:
24.如果要在程序代碼中為圖片框動態(tài)加載和清除圖像，可以利用（ ）函數(shù)。
A)InputBox
B)Input
C)LoadPicture
D)PaintPicture
分析:
25.在窗體上畫一個命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
x = 0
Do Until x = -1
a = InputBox("請輸入 a 的值")
a = Val (a)
b = InputBox("請輸入 b 的值")
b = Val (b)
x = InputBox("請輸入 x 的值")
x = Val(x)
a = a + b + x
Loop
Print a
End Sub
程序運(yùn)行后，單擊命令按鈕，依次在輸入對話框中輸入 10、8、9、2、11、-1，則輸出結(jié)果為（ ）。
A)12
B)13
C)14
D)15
分析:
26.函數(shù)過程（用Function定義）與子過程（用Sub 定義）的區(qū)別是（ ）
A)函數(shù)過程有返回值
B)子過程有返回值
C)函數(shù)過程可以帶參數(shù)
D)子過程可以帶參數(shù)
分析:
27.Visual Basic根據(jù)計(jì)算機(jī)訪問文件的方式將文件分成三類，其中不包括（ ）
A)順序文件
B)Unix文件
C)二進(jìn)制文件
D)隨機(jī)文件
分析:
28.要顯示當(dāng)前過程中的所有變量及對象的取值，可以利用（ ）窗口。
A)數(shù)據(jù)
B)調(diào)用堆棧
C)立即
D)本地
分析:
29.符號％是聲明（ ）類型變量的類型定義符。
A)Integer
B)Variant
C)Single
D)String
分析:
30.Visual Basic 中窗體文件的擴(kuò)展名是（ ）
A)VBP
B)FRM
C)VBW
D)PDM
分析: 31.關(guān)于MDI窗體下列說法正確的是（ ）
A)一個應(yīng)用程序可以有多個MDI窗體
B)子窗體可以移動MDI窗體以外
C)不可以在MDI窗體上放置按鈕控件
D)MDI窗體的子窗體不可以擁有菜單
分析:
32.窗體在屏幕上顯示后有（ ）方法可以清除它。
A)1種
B)2種
C)3種
D)4種
分析:
33.假定在窗體上建立一個通用對話框，其名稱為CommonDialog1,用下面的語句可以建立一個對話框：
CommonDialong1.Action = 4
與該語句等價的語句是（ ）
A)CommonDialong1.ShowOpen
B)CommonDialong1.ShowFont
C)CommonDialong1.ShowColor
D)CommonDialong1.ShowSave
分析:
34.在窗體上畫一個命令按鈕，然后編寫如下事件過程：
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array (1,3,5,7,9)
j = 1
For i = 5 to 1 Step -1
s= s +a(i) * j
j= j * 10
Next i
Print s
End Sub
運(yùn)行上面的程序，單擊命令按鈕，其輸出結(jié)果是（ ）
A)97531
B)135
C)957
D)13579
分析:
35.下列語句都是在Form 中定義的，（ ）是錯的。
A)Public Const A1 = 2u
B)Private Const A2 = 8
C)Public a3 As Integer
D)Private a4 As Integer
分析:
二、填空：每空2分，共30分。
1.閱讀以下程序：
Private Sub Form_Click()
Dim k,n ,m, As Integer
n = 10
m =1
k =1
Do While k < = n
m = m + 2
k = k + 1
Loop
Print m
End Sub
單擊窗體，程序的執(zhí)行結(jié)果是[1]
2.當(dāng)用[2]方式打開文件時，如果對文件進(jìn)行寫操作，則寫入的數(shù)據(jù)附加到原來文件的后面。
3.組合框有3種不同的類型，這3種類型是下拉式列表框、簡單組合框和[3],分別通過把[4]屬性設(shè)置為2、1、0來實(shí)現(xiàn)。
4.為了在按下ESC鍵時執(zhí)行某個命令按鈕的事件過程，需要把該命令按鈕的一個屬性設(shè)置為True,這個屬性是[5]。
5.在執(zhí)行KeyPress事件過程時，KeyASCII是所按鍵的[6]值。對于有上檔字符和下檔字符的鍵，當(dāng)執(zhí)行KeyDown事件過程時，KeyCode是[7]字符的[8]值。
6.在窗體上面畫一個命令按鈕，然后編寫如下程序:
Function M (x As Integer, y As Integer) As Integer
M =IIf (X >y ,x,y)
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 1
b = 2
Print M (a,b)
End Sub
程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為[9]
7.在窗體上畫兩個文本框，其名稱分別為Text1和Text2，然后編寫如下事件過程：
Private Sub Form_Load()
Show
Text1.Text=""
Text2.Text=""
Text2.SetFocus
End Sub
Private Sub Text2_KeyDown(KeyCode As Integer,Shift As Integer)
Text1.Text= Text1.Text +Chr(KeyCode - 4 )
End Sub
程序運(yùn)行后，如果在Text2文本框中輸入“efghi”,則Text1文本框中的內(nèi)容為[10]8.執(zhí)行下面的程序段后，b的值為[ ]
a = 800
b = 30
a = a + b
b = a - b
a = a - b
9.為了執(zhí)行自動施放，必須把[12]屬性設(shè)置為[13],而為了執(zhí)行手動拖放，必須把該屬性設(shè)置為[14]
10.讀下列程序：
Private Sub Form_Click()
Static x(4) As Integer
For i = 1 to 4
x(i) =x (i) + i * 3
Next i
For i = 1 to 4
print "x("；i；") ="；x(i)
Next i
End Sub
該程序在運(yùn)行了三次后，其最終結(jié)果是：[15]
二級VB模擬試卷(三)參考答案
一、(1)A (2)A (3)B (4)D (5)D (6)D (7)B (8)B (9)D (10)B (11)C (12)B (13)C (14)B (15)C (16)B
(17)D (18)D (19)A (20)C (21)C (22)C (23)C (24)C (25)A (26)A (27)B (28)D (29)A (30)B
(31)C (32)B (33)B (34)D (35)A
分析:
二、[1]21 [2]Append [3]下拉式組合框 [4]Style [5]Cancel [6]ASCII [7]下檔字符 [8]ASCII
[9]2 [10]ABCDE [11]800 [12]DragMode [13]1 [14]0
[15]x(1)=9 x(2)=18 x(3)=27 x(4)=36