一、選擇題：35題，2分/題，共70分
下列各題A)、B)、C)、D)四個選項(xiàng)中，只有一個選項(xiàng)是正確的，請將正確選項(xiàng)涂寫在答題卡相應(yīng)位置上，答在試卷上不得分。
1.執(zhí)行以下程序段后,變量c的值為( )
a = " Visual Basic Programing"
b = "Quick"
c =b & UCase (Mid(a,7,6) & Right(a,11)
A)Visual BASIC Programing
B)Quick Basic Programing
C)QUICK Basic Programing
D)Quick BASIC Programing
分析:
2.不能正確表示條件“兩個整型變量A和B之一為0，但不能同時為0”的布爾表達(dá)式是（ ）
A)A*B=0 and A+B<>0
B)(A=0 or B=0)and (A<>0 OrB<>0)
C)not(A=0 And B=0) and (A=0 or B=0)
D)A*B=0 and (A=0 or B=0)
分析:
3. 下面子過程語句說明合法的是（ ）
A)Function fl(ByVal n%)
B)Sub fl (n%)As Integer
C)Function fl%(fl%)
D)Sub fl(ByVal n%())
分析:
4.對窗體編寫如下代碼：
Option Base 1
Private Sub Form _KeyPress(KeyAscii As Integer)
a=Array (237,126,587,48,498)
ml=a(1)
m2=1
If KeyAscii=13Then
For i=2 To 5
If a (i)>ml Then
ml=a (i)
m2=i
End If
Next i
End If
Print ml;
print m2
End Sub
程序運(yùn)行后，按回車鍵，輸出結(jié)果為（ ）
A)48 4
B)237 1
C)587 3
D)498 4
分析:
5.Visual Basic 中沒有提供下列（ ）事件
A)MouseDown
B)MouseUp
C)MouseMove
D)MouseExit
分析:
6.執(zhí)行下面對面的程序后，X的值為（ ）
x=50
Fox i=1 To 20 Step 2
x=x+i\5
Next i
A)66
B)67
C)68
D)69
分析:
7.為了防止用戶隨意將光標(biāo)置于控件之上，需做的工作是（ ）
A)將控件的Enabled屬性設(shè)置為False
B)將控件的TabStop屬性設(shè)置為False
C)將控件的TabStop屬性設(shè)置為True
D)將控件的TabIndex屬性設(shè)置為0
分析:
8.表達(dá)式String(2,"Shanghai")的值是（ ）
A) Sh
B) Shanghai
C) ShanghaiShanghai
D) SS
分析:
9.為了在按回車鍵時執(zhí)行某個命令按鈕的事件過程，需要把該命令按鈕的一個屬性設(shè)置為True,這個屬性是（ ）
A) value
B) Defaul
C) Cancel
D) Enabed
分析:
10.visual Basic 提供的缺省窗體包含（ ）
A) 標(biāo)題欄
B)菜單欄
C)工具條
D)狀態(tài)欄
分析:
11.假定有一個菜單項(xiàng)，名為MenuItem,為了在運(yùn)行時該菜單項(xiàng)失效（變灰），應(yīng)使用的語句為（ ）
A)MenuItem.Enabled=False
B)MenuItem.Enabled=True
C)MenuItem.Visible=True
D)MenuItem.Visible=False
分析:
12.下列不能打開菜單編輯器的操作是（ ）
A)按Ctrl+E
B)單擊工具欄中的“菜單編輯器”按鈕
C)執(zhí)行“工具”菜單中的“菜單編輯器”命令
D)按Shift+Alt+M
分析:
13.列表框（如圖2-6所示）經(jīng)過下列操作后，剩余的項(xiàng)目是（ ）
Listl.RemoveItem l
Listl.RemoveItem 2
Listl.RemoveItem l
A)aa
B)bb
C)cc
D)dd
分析:
14.要暫時關(guān)閉計(jì)時器，應(yīng)把計(jì)時器的某個屬性設(shè)置為False，這個屬性是（ ）
A)Visible
B)Timer
C)Enabled
D)Interval
分析:
15.InputBox函數(shù)返回值的類型為（ ）
A)數(shù)值
B)字符串
C)變體
D)數(shù)值或字符串（視輸入的數(shù)據(jù)而定）
分析:
16.當(dāng)窗體的AutoRedraw屬性采用默認(rèn)值時，若在窗體裝入時使用繪圖方法繪制圖形，則應(yīng)將程序放在（ ）
A)Paint事件
B)Load事件
C)Initilize事件
D)Click事件
分析:
17.下列可以打開立即窗口的操作是（ ）
A)Ctrl+D
B)Ctrl+E
C)Ctrl+F
D)Ctrl+G
分析:
18.如是要向工具箱中加入控件和部件，可以利用“工程”的菜單中的（ ）命令
A)引用
B)部件
C)工程屬性
D)添加窗體
分析:
19.若要清除列表框的所有內(nèi)容，可用來實(shí)現(xiàn)的方法是（ ）
A)Removeitem
B)Cls
C)Clear
D)以上均不可以
分析:
20.假定有下面的過程：
Function Func(a As Integer,b As Integer)As Integer
Static m As Integer, i As Integer
m = 0
i = 2
i = i + m +1
m = i + a + b
Func = m
End Function
在窗體上畫一個命令按鈕，然后編寫如下事件過程：
Private Sub Commandl_Click()
Dim k As Integer, m As Integer
Dim p As Integer
k=4
m=1
p=Func(k,m)
Print p;
p=Func(k,m)
Print p
End Sub
程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為（ ）。
A)8 17
B)8 16
C)8 20
D)8 8
分析: 21.如何使圖象（Image）控件中的圖像自動適應(yīng)控件的大??？（ ）
A)將控件的AutoSize屬性主，設(shè)為True
B)將控件的AutoSize屬性設(shè)為False
C)將控件的Stretch屬性設(shè)為True
D)將控件的Strech屬性設(shè)為False
分析:
22.當(dāng)對DrawWidth進(jìn)行設(shè)置后，將影響（ ）。
A)Line、Circle、Pset方法
B)Line、Shape控件
C)Line、Circle、Point方法
D)Line、Circle、Pset方法和Line、Shape控件
分析:
23.以下語句的輸出結(jié)果是（ ）。
Print Format(32548.5,″000，000.00″)
A)23548.5
B)32,548.5
C)032,548.50
D)32,548.50
分析:
24.執(zhí)行下列語句后整型變量a的值是多少？（ ）
If(3-2)>2 Then
a=10
ElseIf(10/2)=6 Then
a=20
Else
a=30
End If
A)10
B)20
C)30
D)不確定
分析:
25.在代碼中定義了一個子過程：
Sub P(a,b)
…
End Sub
下面（ ）調(diào)用該過程的格式是正確的。
A)Call P
B)Call P 10,20
C)Call P(10,20)
D)P(10,20)
分析:
26.閱讀下面的程序段：
For i=1 To 3
For j=1 To i
For k=j To 4
a=a+1
Next k
Next j
Next i
執(zhí)行上面的三重循壞后，a的值為（ ）。
A)9
B)14
C)20
D)21
分析:
27.在窗體上畫一個文本框（其Name屬性為Textl），然后編寫如下事件過程：
Private Sub Form_Load()
Textl.Text=""
Textl.SetFocus
For i= l To 9
Sum=Sum+i
Next i
Textl.Text=Sum
End Sub
上述程序的運(yùn)行結(jié)果是（ ）。
A)在文本框Textl中輸出45
B)在文本框Textl中輸出0
C)出錯
D)在文本框Textl中輸出不定值
分析: 28.在窗體（Name屬性為Forml）上畫兩個文本框（其Name屬性分別為Textl和
Text2）和一個命令按鈕（Name屬性為Commandl），然后編寫如下兩個事件過程：
Private Sub Commandl_Click()
a=Textl.Text+Text2.Text
Print a
End Sub
Private Sub Form_Load()
Textl.Text=""
Text2.Text=""
End Sub
程序運(yùn)行后，在第一個文本框（Textl）和第二個文本框（Text2）中分別輸入78和87，然后單擊命令按鈕，則輸出結(jié)果為（ ）。
A)165
B)8778
C)7788
D)7887
分析:
29.對變量名說法不確的是（ ）。
A)必須是字母開頭，不能是數(shù)字或其他字符
B)不能是Visual Basic的保留字
C)可以包含字母、數(shù)字、下劃線和標(biāo)點(diǎn)符號
D)不能超過255個字符
分析:
30.下面關(guān)于多重窗體的敘述中，正確的是（ ）。
A)作為啟動對象的Main子過程只能放在窗體模塊中
B)如果啟動對象是Main子過程，則程序啟動時不加載任何窗體，以后由該過 程根據(jù)不同情況決定是否加載及加載哪一個窗體
C)沒有啟動窗體，程序不能運(yùn)行
D)以上都不對
分析:
31.為了在運(yùn)行時能顯示窗體左上角的控制框（系統(tǒng)菜單），必須（ ）。
A)把窗體的ControlBox屬性設(shè)置為False,其他屬性任意
B)把窗體的ControlBox屬性設(shè)置為True,并且把BoderStyle屬性設(shè)置為1~5
C)把窗體的ControlBox屬性設(shè)置為False,同時把BoderStyle屬性設(shè)置為非0值
D)把窗體的ControlBox屬性設(shè)置為True,同時把BoderStyle屬性設(shè)置為0值
分析:
32.閱讀程序：
Sub subP(b() As Integer)
For i=l To 4
b=(i)=2*i
Next i
End Sub
Private Sub Commandl_Clik()
Dim a(l To 4)As Integer
a(1)=5
a(2)=6
a(3)=7
a(4)=8
subP a()
For i=l To 4
Print a(i);
Next i
End Sub
運(yùn)行上面的程序，單擊命令按鈕，輸出結(jié)果為（ ）。
A)2 4 6 8
B)5 6 7 8
C)10 12 14 16
D)出錯
分析:
33.CommonDialog控件可以顯示（ ）對話框。
A)4種
B)5種
C)6種
D)7種
分析:
34.在設(shè)計(jì)應(yīng)用程序時，通過( )窗口可以查看到應(yīng)用程序工程中的所有組成部分。
A)代碼窗口
B)窗體設(shè)計(jì)窗口
C)屬性窗口
D)工程資源管理器窗口
分析:
35.假定時鐘控件的Interval屬性為1000,Enabled屬性為True,并且有下面的事件過程，計(jì)算機(jī)將發(fā)出（ ）beep聲。
Sub Timerl_Timer()
For i=l to 10
Beep
Next i
End Sub
A)1000次
B)10000次
C)10次
D)以上都不對
分析:二、填空：每空2分，共30分。
請將正確答案分別寫在答題卡中序號為[1]至[15]的橫線上，答在試卷
上不得分。
1.在3種不同類型的組合框中，只能選擇而不能輸入數(shù)據(jù)的組合框是[1] ?！?BR> 2.假定建立了一個工程，該工程包括兩個窗體，其名稱（Name屬性）分別為
Form2,啟動窗體為Forml。在Forml上畫一個命令按鈕Commandl,程序運(yùn)行后，要求當(dāng)單擊命令按鈕時，F(xiàn)orml窗體消失，顯示窗體Form2,請將程序補(bǔ)充完整。
Private Sub Commandl_Click()
[2] Forml
Form2 [3]
End Sub
3.執(zhí)行下面的程序段后，s的值為[4]。
s=5
For i=2.6 to 4.9 Step 0.6
s=s+l
Nest i
4.把窗體的KeyPreview屬性設(shè)置為True,并編寫如下兩個事件過程：
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
Print KeyCode;
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print KeyAscii
End Sub
程序運(yùn)行后，如果按下a鍵，則在窗體上輸出的數(shù)值為[5]和[6]。
5.語句Print 5*5\5/5的輸出結(jié)果是[7]。
6.程序執(zhí)行結(jié)果s的值是 [8] 。
Private Sub Commandl_Click()
i = 0
Do
i = i + l
s = i + s
Loop Until i > = 4
Print s
End Sub
7.表達(dá)式Fix(-12.08)+Int(-23.82)的值為[9]。
8.在窗體上畫一個命令按鈕（其Name屬性為Commandl），然后編寫如下代碼：
Private Sub Commandl_Click()
Dim M(10) As Integer
For k=1 to 10
M(k)=12-k
Next k
x=6
Print M(2+M(X))
End Sub
程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是[10]。
9.假定有一個名為pic2.gif的圖形文件，要在運(yùn)行期間把該文件裝入一個圖片框（Picturel），應(yīng)執(zhí)行的語句是[11]。
10.控件和窗體的Name屬性只能通過[12]設(shè)置，不能在[13]期間設(shè)置。
11.假定當(dāng)前日期為2002年12月16日，星期一，則執(zhí)行以下語句后，輸出結(jié)果
是16、12、2002、[14]。
Print Day(Now)
print Month(Now)
print Year(Now)
Print Weekday(Now)
12、要想在文本框中顯示垂直滾動條，必須把[15]屬性設(shè)置為2，同時還應(yīng)把
Multiline屬性設(shè)置為True。二級VB模擬試卷(四)參考答案
一、(1)D (2)D (3)A (4)C (5)D (6)A (7)A (8)D (9)B (10)A (11)A (12)D (13)A (14)C (15)B (16)A
(17)D (18)B (19)C (20)D (21)C (22)A (23)C (24)C (25)C (26)C (27)C (28)D (29)C (30)B
(31)B (32)A (33)C (34)D (35)D
分析:
二、[1]下拉式列表框（或下拉式） [2]Unload [3]Show [4]9 [5]65 [6]97 [7]25 [8]10 [9]-36
[10]14 [11]Picturel.Picture=LoadPicture("pic2.gif") [12]設(shè)計(jì)期間
[13]程序運(yùn)行（或運(yùn)行） [14]2 [15]Scrollbars
下列各題A)、B)、C)、D)四個選項(xiàng)中，只有一個選項(xiàng)是正確的，請將正確選項(xiàng)涂寫在答題卡相應(yīng)位置上，答在試卷上不得分。
1.執(zhí)行以下程序段后,變量c的值為( )
a = " Visual Basic Programing"
b = "Quick"
c =b & UCase (Mid(a,7,6) & Right(a,11)
A)Visual BASIC Programing
B)Quick Basic Programing
C)QUICK Basic Programing
D)Quick BASIC Programing
分析:
2.不能正確表示條件“兩個整型變量A和B之一為0，但不能同時為0”的布爾表達(dá)式是（ ）
A)A*B=0 and A+B<>0
B)(A=0 or B=0)and (A<>0 OrB<>0)
C)not(A=0 And B=0) and (A=0 or B=0)
D)A*B=0 and (A=0 or B=0)
分析:
3. 下面子過程語句說明合法的是（ ）
A)Function fl(ByVal n%)
B)Sub fl (n%)As Integer
C)Function fl%(fl%)
D)Sub fl(ByVal n%())
分析:
4.對窗體編寫如下代碼：
Option Base 1
Private Sub Form _KeyPress(KeyAscii As Integer)
a=Array (237,126,587,48,498)
ml=a(1)
m2=1
If KeyAscii=13Then
For i=2 To 5
If a (i)>ml Then
ml=a (i)
m2=i
End If
Next i
End If
Print ml;
print m2
End Sub
程序運(yùn)行后，按回車鍵，輸出結(jié)果為（ ）
A)48 4
B)237 1
C)587 3
D)498 4
分析:
5.Visual Basic 中沒有提供下列（ ）事件
A)MouseDown
B)MouseUp
C)MouseMove
D)MouseExit
分析:
6.執(zhí)行下面對面的程序后，X的值為（ ）
x=50
Fox i=1 To 20 Step 2
x=x+i\5
Next i
A)66
B)67
C)68
D)69
分析:
7.為了防止用戶隨意將光標(biāo)置于控件之上，需做的工作是（ ）
A)將控件的Enabled屬性設(shè)置為False
B)將控件的TabStop屬性設(shè)置為False
C)將控件的TabStop屬性設(shè)置為True
D)將控件的TabIndex屬性設(shè)置為0
分析:
8.表達(dá)式String(2,"Shanghai")的值是（ ）
A) Sh
B) Shanghai
C) ShanghaiShanghai
D) SS
分析:
9.為了在按回車鍵時執(zhí)行某個命令按鈕的事件過程，需要把該命令按鈕的一個屬性設(shè)置為True,這個屬性是（ ）
A) value
B) Defaul
C) Cancel
D) Enabed
分析:
10.visual Basic 提供的缺省窗體包含（ ）
A) 標(biāo)題欄
B)菜單欄
C)工具條
D)狀態(tài)欄
分析:
11.假定有一個菜單項(xiàng)，名為MenuItem,為了在運(yùn)行時該菜單項(xiàng)失效（變灰），應(yīng)使用的語句為（ ）
A)MenuItem.Enabled=False
B)MenuItem.Enabled=True
C)MenuItem.Visible=True
D)MenuItem.Visible=False
分析:
12.下列不能打開菜單編輯器的操作是（ ）
A)按Ctrl+E
B)單擊工具欄中的“菜單編輯器”按鈕
C)執(zhí)行“工具”菜單中的“菜單編輯器”命令
D)按Shift+Alt+M
分析:
13.列表框（如圖2-6所示）經(jīng)過下列操作后，剩余的項(xiàng)目是（ ）
Listl.RemoveItem l
Listl.RemoveItem 2
Listl.RemoveItem l
A)aa
B)bb
C)cc
D)dd
分析:
14.要暫時關(guān)閉計(jì)時器，應(yīng)把計(jì)時器的某個屬性設(shè)置為False，這個屬性是（ ）
A)Visible
B)Timer
C)Enabled
D)Interval
分析:
15.InputBox函數(shù)返回值的類型為（ ）
A)數(shù)值
B)字符串
C)變體
D)數(shù)值或字符串（視輸入的數(shù)據(jù)而定）
分析:
16.當(dāng)窗體的AutoRedraw屬性采用默認(rèn)值時，若在窗體裝入時使用繪圖方法繪制圖形，則應(yīng)將程序放在（ ）
A)Paint事件
B)Load事件
C)Initilize事件
D)Click事件
分析:
17.下列可以打開立即窗口的操作是（ ）
A)Ctrl+D
B)Ctrl+E
C)Ctrl+F
D)Ctrl+G
分析:
18.如是要向工具箱中加入控件和部件，可以利用“工程”的菜單中的（ ）命令
A)引用
B)部件
C)工程屬性
D)添加窗體
分析:
19.若要清除列表框的所有內(nèi)容，可用來實(shí)現(xiàn)的方法是（ ）
A)Removeitem
B)Cls
C)Clear
D)以上均不可以
分析:
20.假定有下面的過程：
Function Func(a As Integer,b As Integer)As Integer
Static m As Integer, i As Integer
m = 0
i = 2
i = i + m +1
m = i + a + b
Func = m
End Function
在窗體上畫一個命令按鈕，然后編寫如下事件過程：
Private Sub Commandl_Click()
Dim k As Integer, m As Integer
Dim p As Integer
k=4
m=1
p=Func(k,m)
Print p;
p=Func(k,m)
Print p
End Sub
程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為（ ）。
A)8 17
B)8 16
C)8 20
D)8 8
分析: 21.如何使圖象（Image）控件中的圖像自動適應(yīng)控件的大??？（ ）
A)將控件的AutoSize屬性主，設(shè)為True
B)將控件的AutoSize屬性設(shè)為False
C)將控件的Stretch屬性設(shè)為True
D)將控件的Strech屬性設(shè)為False
分析:
22.當(dāng)對DrawWidth進(jìn)行設(shè)置后，將影響（ ）。
A)Line、Circle、Pset方法
B)Line、Shape控件
C)Line、Circle、Point方法
D)Line、Circle、Pset方法和Line、Shape控件
分析:
23.以下語句的輸出結(jié)果是（ ）。
Print Format(32548.5,″000，000.00″)
A)23548.5
B)32,548.5
C)032,548.50
D)32,548.50
分析:
24.執(zhí)行下列語句后整型變量a的值是多少？（ ）
If(3-2)>2 Then
a=10
ElseIf(10/2)=6 Then
a=20
Else
a=30
End If
A)10
B)20
C)30
D)不確定
分析:
25.在代碼中定義了一個子過程：
Sub P(a,b)
…
End Sub
下面（ ）調(diào)用該過程的格式是正確的。
A)Call P
B)Call P 10,20
C)Call P(10,20)
D)P(10,20)
分析:
26.閱讀下面的程序段：
For i=1 To 3
For j=1 To i
For k=j To 4
a=a+1
Next k
Next j
Next i
執(zhí)行上面的三重循壞后，a的值為（ ）。
A)9
B)14
C)20
D)21
分析:
27.在窗體上畫一個文本框（其Name屬性為Textl），然后編寫如下事件過程：
Private Sub Form_Load()
Textl.Text=""
Textl.SetFocus
For i= l To 9
Sum=Sum+i
Next i
Textl.Text=Sum
End Sub
上述程序的運(yùn)行結(jié)果是（ ）。
A)在文本框Textl中輸出45
B)在文本框Textl中輸出0
C)出錯
D)在文本框Textl中輸出不定值
分析: 28.在窗體（Name屬性為Forml）上畫兩個文本框（其Name屬性分別為Textl和
Text2）和一個命令按鈕（Name屬性為Commandl），然后編寫如下兩個事件過程：
Private Sub Commandl_Click()
a=Textl.Text+Text2.Text
Print a
End Sub
Private Sub Form_Load()
Textl.Text=""
Text2.Text=""
End Sub
程序運(yùn)行后，在第一個文本框（Textl）和第二個文本框（Text2）中分別輸入78和87，然后單擊命令按鈕，則輸出結(jié)果為（ ）。
A)165
B)8778
C)7788
D)7887
分析:
29.對變量名說法不確的是（ ）。
A)必須是字母開頭，不能是數(shù)字或其他字符
B)不能是Visual Basic的保留字
C)可以包含字母、數(shù)字、下劃線和標(biāo)點(diǎn)符號
D)不能超過255個字符
分析:
30.下面關(guān)于多重窗體的敘述中，正確的是（ ）。
A)作為啟動對象的Main子過程只能放在窗體模塊中
B)如果啟動對象是Main子過程，則程序啟動時不加載任何窗體，以后由該過 程根據(jù)不同情況決定是否加載及加載哪一個窗體
C)沒有啟動窗體，程序不能運(yùn)行
D)以上都不對
分析:
31.為了在運(yùn)行時能顯示窗體左上角的控制框（系統(tǒng)菜單），必須（ ）。
A)把窗體的ControlBox屬性設(shè)置為False,其他屬性任意
B)把窗體的ControlBox屬性設(shè)置為True,并且把BoderStyle屬性設(shè)置為1~5
C)把窗體的ControlBox屬性設(shè)置為False,同時把BoderStyle屬性設(shè)置為非0值
D)把窗體的ControlBox屬性設(shè)置為True,同時把BoderStyle屬性設(shè)置為0值
分析:
32.閱讀程序：
Sub subP(b() As Integer)
For i=l To 4
b=(i)=2*i
Next i
End Sub
Private Sub Commandl_Clik()
Dim a(l To 4)As Integer
a(1)=5
a(2)=6
a(3)=7
a(4)=8
subP a()
For i=l To 4
Print a(i);
Next i
End Sub
運(yùn)行上面的程序，單擊命令按鈕，輸出結(jié)果為（ ）。
A)2 4 6 8
B)5 6 7 8
C)10 12 14 16
D)出錯
分析:
33.CommonDialog控件可以顯示（ ）對話框。
A)4種
B)5種
C)6種
D)7種
分析:
34.在設(shè)計(jì)應(yīng)用程序時，通過( )窗口可以查看到應(yīng)用程序工程中的所有組成部分。
A)代碼窗口
B)窗體設(shè)計(jì)窗口
C)屬性窗口
D)工程資源管理器窗口
分析:
35.假定時鐘控件的Interval屬性為1000,Enabled屬性為True,并且有下面的事件過程，計(jì)算機(jī)將發(fā)出（ ）beep聲。
Sub Timerl_Timer()
For i=l to 10
Beep
Next i
End Sub
A)1000次
B)10000次
C)10次
D)以上都不對
分析:二、填空：每空2分，共30分。
請將正確答案分別寫在答題卡中序號為[1]至[15]的橫線上，答在試卷
上不得分。
1.在3種不同類型的組合框中，只能選擇而不能輸入數(shù)據(jù)的組合框是[1] ?！?BR> 2.假定建立了一個工程，該工程包括兩個窗體，其名稱（Name屬性）分別為
Form2,啟動窗體為Forml。在Forml上畫一個命令按鈕Commandl,程序運(yùn)行后，要求當(dāng)單擊命令按鈕時，F(xiàn)orml窗體消失，顯示窗體Form2,請將程序補(bǔ)充完整。
Private Sub Commandl_Click()
[2] Forml
Form2 [3]
End Sub
3.執(zhí)行下面的程序段后，s的值為[4]。
s=5
For i=2.6 to 4.9 Step 0.6
s=s+l
Nest i
4.把窗體的KeyPreview屬性設(shè)置為True,并編寫如下兩個事件過程：
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
Print KeyCode;
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print KeyAscii
End Sub
程序運(yùn)行后，如果按下a鍵，則在窗體上輸出的數(shù)值為[5]和[6]。
5.語句Print 5*5\5/5的輸出結(jié)果是[7]。
6.程序執(zhí)行結(jié)果s的值是 [8] 。
Private Sub Commandl_Click()
i = 0
Do
i = i + l
s = i + s
Loop Until i > = 4
Print s
End Sub
7.表達(dá)式Fix(-12.08)+Int(-23.82)的值為[9]。
8.在窗體上畫一個命令按鈕（其Name屬性為Commandl），然后編寫如下代碼：
Private Sub Commandl_Click()
Dim M(10) As Integer
For k=1 to 10
M(k)=12-k
Next k
x=6
Print M(2+M(X))
End Sub
程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是[10]。
9.假定有一個名為pic2.gif的圖形文件，要在運(yùn)行期間把該文件裝入一個圖片框（Picturel），應(yīng)執(zhí)行的語句是[11]。
10.控件和窗體的Name屬性只能通過[12]設(shè)置，不能在[13]期間設(shè)置。
11.假定當(dāng)前日期為2002年12月16日，星期一，則執(zhí)行以下語句后，輸出結(jié)果
是16、12、2002、[14]。
Print Day(Now)
print Month(Now)
print Year(Now)
Print Weekday(Now)
12、要想在文本框中顯示垂直滾動條，必須把[15]屬性設(shè)置為2，同時還應(yīng)把
Multiline屬性設(shè)置為True。二級VB模擬試卷(四)參考答案
一、(1)D (2)D (3)A (4)C (5)D (6)A (7)A (8)D (9)B (10)A (11)A (12)D (13)A (14)C (15)B (16)A
(17)D (18)B (19)C (20)D (21)C (22)A (23)C (24)C (25)C (26)C (27)C (28)D (29)C (30)B
(31)B (32)A (33)C (34)D (35)D
分析:
二、[1]下拉式列表框（或下拉式） [2]Unload [3]Show [4]9 [5]65 [6]97 [7]25 [8]10 [9]-36
[10]14 [11]Picturel.Picture=LoadPicture("pic2.gif") [12]設(shè)計(jì)期間
[13]程序運(yùn)行（或運(yùn)行） [14]2 [15]Scrollbars