一、選擇題：35題，2分/題，共70分 下列各題A)、B)、C)、D)四個(gè)選項(xiàng)中，只有一個(gè)選項(xiàng)是正確的，請(qǐng)將正確選項(xiàng)涂寫在答題卡相應(yīng)位置上，答在試卷上不得分。
1.當(dāng)運(yùn)行程序時(shí)，系統(tǒng)自動(dòng)執(zhí)行啟動(dòng)窗體的某個(gè)事件過(guò)程。這個(gè)事件過(guò)程是（ ）
A)Load
B)Click
C)Unload
D)GotFocus
2.無(wú)論何控件，都具有一個(gè)共同屬性。這個(gè)屬性是（ ）
A)Text
B)Font
C)Name
D)Caption
3.在一行內(nèi)寫多條語(yǔ)句時(shí)，語(yǔ)句之間要用某個(gè)符號(hào)分隔。這個(gè)符號(hào)是（ ）
A)，
B)；
C)、
D)：
4.表達(dá)式3∧2*2+3 MOD 10\4的值是（ ）
A)18
B)1
C)19
D)0
5.下面的變量名合法的是（ ）
A)k_name
B)k ame
C)name
D)k-name
6.設(shè)有如下變量聲明Dim time1 As Date,為變量time1正確賦值的表達(dá)式是（ ）
A)time1 = #11:34:04 #
B)time1 = Format(Time,"yy:mm:dd")
C)time1 = #"11:34:04"#
D)time1 = Format("hh:mm:ss",Time)
7.表達(dá)式12000 + "129" & 200的值是（ ）
A)12329
B)"12129200"
C)"12000129200"
D)"12329"
8.若設(shè)a = 4,b = 5,則下列表達(dá)式值為真的是（ ）
A)(True+a)>0 And b>10
B)a>b Or b>10-a
C)(False-b< 0) Eqv (a>b)
D)a>b Xor b+3>5
9.當(dāng)窗體上的文字或圖形被覆蓋或小化后能恢復(fù)原貌，需要設(shè)置窗體的屬性是（ ）
A)Appearance
B)Visible
C)Enable
D)Autoredraw
10.在窗體上畫一個(gè)名稱為Command1的命令按鈕，編寫以下程序：
Private Sub Command1_Click( )
Dim a As Integer
Static b As Integer
a = a + b
b = b + 4
Print a,b
End Sub
程序運(yùn)行后，單擊該命令按鈕三次，屏幕上顯示的值是（ ）
A)4 12
B)0 4
C)4 8
D)8 1211.Visual Basic是一種面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言，構(gòu)成對(duì)象的三要素是（ ）
A)屬性、控件和方法
B)屬性、事件和方法
C)窗體、控件和過(guò)程
D)控件、過(guò)程和模塊
12.下列程序段錯(cuò)誤的是（ ）
A)Dim a As Integer
a = array(1,2,3,4)
B)Dim a(),b()
a = array(1,2,3,4):b = a
C)Dim a As Variant
a = array(1,"asd",true)
D)Dim a() As Variant
a = array(1,2,3,4)
13.表達(dá)式String(1,"I am student") + Replace("am harass","rass","ppy") & "!"的值是（ ）
A)"I am happy!"
B)"I am student I am s am harass studentam happy!"
C)"I am student am harass!"
D)"I am student am happy!"
14.下列程序段中，能正常結(jié)束循環(huán)的是（ ）
A)I = 1
Do
I = I + 2
Loop Until I = 10
B)I = 5
Do
I = I + 1
Loop Until I < 0
C)I = 10
Do
I = I + 1
Loop Until I > 0
D)I = 6
Do
I = I - 2
Loop Until I = 1
15.引用列表框（List1）后一個(gè)數(shù)據(jù)項(xiàng)應(yīng)使用的表達(dá)式是（ ）
A)List1.List(List1.ListCount)
B)List1.List(List1.ListCount-1)
C)List1.List(ListCount)
D)List1.List(ListCount-1)
16.有如下程序：
Option Base 1
Private Sub Command1_Click()
Dim x,y(3,3)
x = Array(1,2,3,4,5,6,7,8,9)
For i = 1 To 3
For j = 1 To 3
y(i,j) = x(i*j)
If(j > = i) Then Print y(i,j);
Next j
Print
Next i
End Sub
運(yùn)行時(shí)輸入出的結(jié)果是（D）
A)1 2 3
2 4 6
4 6 8
B)1 2 3
2 4 6
3 6 9
C)1
2 4
3 6 9
D)1 2 3
4 6
9
17.在窗體上畫一個(gè)名稱為Command1的命令按鈕，編寫如下程序：
Private Sub Command1_Click()
Print pl(3,7)
End Sub
Public Function pl(x As Single,n As Integer) As Single
If n=0 Then
pl=1
Else
If n Mod 2=1 Then
pl=x*x+n
Else
P1=x*x-n
End If
End If
End Function
程序運(yùn)行后，單擊該命令按鈕，屏幕上顯示的結(jié)果是（ ）
A)2
B)1
C)0
D)16
18.以下屬性和方法中，可重定義坐標(biāo)系的是（ ）
A)DrawStyle屬性
B)DrawWidth屬性
C)Scale方法
D)ScaleMode屬性
19.在窗體上畫一個(gè)文本框，然后編寫如下事件過(guò)程：
Private Sub Form_Load()
Text1.Text = ""
Text1.SetFocus
For i = 1 To 5
Sum = Sum +i
Next i
Text1.text = Sum
End Sub
上述程序的運(yùn)行結(jié)果是（ ）
A)在文本框中輸出15
B)在文本框中輸出0
C)在文本框中輸出不定值
D)出錯(cuò) 20.已知x代表某個(gè)百分制成績(jī)，下列程序段用于顯示對(duì)應(yīng)的五級(jí)制成績(jī)，正確的是（ ）
A)If x > = 60 Then
Print "及格"
ElseIf x > = 70 Then
Print "中"
ElseIf x > = 80 Then
Print "良"
ElseIf x > = 90 Then
Print "優(yōu)"
Else
Print "不及格"
End If
B)If x < 90 Then
Print "良"
ElseIf x < 80 Then
Print "中"
ElseIf x < 70 Then
Print "及格"
ElseIf x < 60 Then
Print "不及格"
Else
Print "優(yōu)"
End If
C)If x > = 90 Then
Print "優(yōu)"
ElseIf x > = 80 Then
Print "良"
ElseIf x > = 70 Then
Print "中"
ElseIf x > = 60 Then
Print "及格"
Else
Print "不及格"
End If
D)Select Case x
Case x > = 90
Print "優(yōu)"
Case x > = 80
Print "良"
Case x > = 70
Print "中"
Case x > = 60
Print "及格"
Case Else
Print "不及格"
End Select
21.下面說(shuō)法不正確的是(D)
A)滾動(dòng)條的重要事件是Change和Scroll
B)框架的主要作用是將控件進(jìn)行分組，以完成各自相對(duì)獨(dú)立的功能
C)組合框是組合了文本框和列表框的特性而形成的一種控件
D)計(jì)時(shí)器控件可以通過(guò)對(duì)Visible屬性的設(shè)置，在程序運(yùn)行期間顯示在窗體上
22.在窗體上畫一個(gè)名稱為Check1復(fù)選框，在程序運(yùn)行的過(guò)程中，若選中復(fù)選框，則Check1.value的值是（ ）
A)True
B)2
C)0
D)1
23.在下列關(guān)于菜單的說(shuō)法中，錯(cuò)誤的是（ ）
A)每一個(gè)菜單項(xiàng)都是一個(gè)控件，與其他控件一樣都有自己的屬性和事件
B)除了Click事件之外，菜單項(xiàng)還能響應(yīng)其他的如 DblClick等事件過(guò)程
C)菜單項(xiàng)的快捷鍵不可以任意設(shè)置
D)在程序執(zhí)行時(shí)，如果菜單項(xiàng)的Enabled屬性為False，則該菜單項(xiàng)變成灰色，不能被用戶選擇
24.下面關(guān)于多重窗體的敘述中，正確的是（ ）
A)作為啟動(dòng)對(duì)象的Main 子過(guò)程只能放在窗體模塊內(nèi)
B)如果啟動(dòng)對(duì)象是Main 子過(guò)程，則程序啟動(dòng)時(shí)不加載任何窗體，以后由該過(guò)程根據(jù)不同情況決定是否加載窗體或加載哪一個(gè)窗體
C)沒(méi)有啟動(dòng)窗體，程序不能執(zhí)行
D)以上都不對(duì)
25.與鍵盤操作有關(guān)的事件有KeyPress、KeyUp和KeyDown事件，當(dāng)用戶按上并且釋放一個(gè)鍵后，這三個(gè)事件發(fā)生的順序是（ ）
A)KeyDown、KeyPress、KeyUp
B)KeyDown、KeyUp、KeyPress
C)KeyPress、KeyDown、、KeyUp
D)沒(méi)有規(guī)律
26.要從磁盤上讀入一個(gè)文件名為“c:\filel.txt”的順序文件，下面程序段正確的是（ ）
A)F="c:\filel.txt"
Open F For Input As # 1
B)F="c:\filel.txt"
Open "F" For Input As # 2
C)Open "c:\filel.txt" For Output As # 2
D)Open c:\filel.txt For Input As # 1
27.下列關(guān)于過(guò)程敘述不正確的是（ ）
A)過(guò)程的傳值調(diào)用是將實(shí)參的具體值傳值遞給形參
B)過(guò)程的傳址調(diào)用是將實(shí)參在內(nèi)存的地址傳遞給形參
C)過(guò)程的傳值調(diào)用參數(shù)是單向傳遞的，過(guò)程的傳址調(diào)用參數(shù)是雙向傳遞的
D)無(wú)論過(guò)程傳值調(diào)用還是過(guò)程傳址調(diào)用，參數(shù)傳遞都是雙向的
28.執(zhí)行了下面程序后，組合框中數(shù)據(jù)項(xiàng)的值是（ ）
Private Sub Form_Click()
For i=1 to 6
Combo1.AddItem i
Next i
For i= 1 to 3
Combo1.RemoveItem i
Next i
End Sub
A)1 5 6
B)1 3 5
C)4 5 6
D)2 4 6
29.若在Shape 控件內(nèi)以FillStyle屬性所指定的圖案填充區(qū)域，而填充圖案的線條顏色由FillColor屬性指定，非線條的區(qū)域由Back Color屬性填充，則應(yīng)（ ）
A)將Shape控件的FillSte屬性設(shè)置為2至7間的某個(gè)值，BackStyle屬性設(shè)置為1
B)將Shape控件的FillSte屬性設(shè)置為0或1，BackStyle屬性設(shè)置為1
C)將Shape控件的FillSte屬性設(shè)置為2至7間的某個(gè)值，BackStyle屬性設(shè)置為0
D)將Shape控件的FillSte屬性設(shè)置為0或1，BackStyle屬性設(shè)置為0
30.下列程序的執(zhí)行結(jié)果是（ ）
Private Sub Form_Activate()
Dim score(3) As Integer, total As Integer
Dim aa_score As Variant
score(1)=50: score(2) =14：score(3)=36
tota=0: i=0
For Each aa_score In score
i=i+1
total=tota + aa+_score
Print i,aa_score,total
Next
End Sub
A)1 0 0
2 50 50
3 14 64
4 36 100
B)1 50 50
2 14 64
3 36 100
C)0 50 50
1 14 64
2 36 100
D)0 0 0
1 50 50
2 14 64
3 36 100
分析:
答案:
31.在Activate 事件過(guò)程中，寫入下面的程序：
Option Base 1
Private Sub Form_Activate()
Dim t As Integer
Dim a( ) As Variant
a=Array (2,4,6,8,10,1,3,5,7,9)
For i=1 to 10\2
t= a(i)
a(i)=a(10 - i + 1)
a(10 - i + 1)=t
Next i
For j= 1 to 10
Print a(j);
Next j
End Sub
運(yùn)行程序后，顯示的結(jié)果是（C）
A)2 4 6 8 10 1 3 5 7 9
B)1 3 5 7 9 2 4 6 8 10
C)9 7 5 3 1 10 8 6 4 2
D)10 8 6 4 2 9 7 5 3 1
分析:
答案:
32.在Activate 事件過(guò)程中，寫入下面的程序：
Private Sub Form _Activate()
Dim S As String, a As String, b As String
a= "*" : b =" $"
For i= 1 to 4
If i / 2= Int(i / 2) Then
S=String(Len (a)+i , b)
Else
S=String(Len(a) + i, a)
End If
Print S;
Next i
End Sub
運(yùn)行程序后，顯示結(jié)果是（ ）
A)$$ ***$$$$*****
B)*$$**$$***$$$****$$$$
C)**$$$****$$$$$
D)$*$$**$$$***$$$$****
分析:
答案:
33.在窗體上設(shè)置相應(yīng)的控件，并在代碼窗口編寫下列程序：
Printe Sub Form_Click()
Dim a As Long ,b As Long
a=InputBox("請(qǐng)輸入若干個(gè)整數(shù)")
Call P(a,b)
Print b
End Sub
Private Sub P(x As Long, y As Long)
Dim n As Integer, j As String*1, s As String
k=Len(Trim(Str(x)))
s=""
For i= K To 1 Step -1
j=Mid(x,i,1)
s=s+j
Next i
y=Val(s)
End Sub
運(yùn)行程序，在InputBox框中輸入123456,然后單擊"確定"按鈕，則輸出結(jié)果是（ ）
A)123456
B)654321
C)135246
D)246135
分析:
答案:34.設(shè)定文本框內(nèi)的文字內(nèi)容是否允許修改的屬性是（ ）
A)Text
B)Locked
C)PasswordChar
D)Multiline
分析:
答案:
35.要建立一個(gè)學(xué)生成績(jī)的隨機(jī)文件，如下定義了學(xué)生的記錄類型，由學(xué)號(hào)、姓名、三門課程成績(jī)（百分制）組成，下列程序段正確的是（ ）
A)Type studl
no As Integer
name AS String
score(1 to 3) As Single
End Type
B)Type studl
no As Integer
name As String *10
score() As Single
End Type
C)Type studl
no As Integer
name As String *10
score(1 to 3) As Stngle
End Type
D)Type studl
no As Integer
name As String
score(1 to 3) As String
End Type
分析:
答案:
二、填空：每空2分，共30分。
1.有一圖書查詢系統(tǒng)，當(dāng)在組合框中選擇書名后，則在兩個(gè)文本框中顯示出作者和出版社，程序運(yùn)行后的界面如圖2-1所示，當(dāng)單擊“結(jié)束”按鈕時(shí)，結(jié)束程序。程序中有一個(gè)組合框、兩個(gè)文本框、三個(gè)標(biāo)簽及一個(gè)命令按鈕。請(qǐng)__[1]__、_[2]__和__[3]__處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。
Dim k As Integer
dim author(),b_concern
Privage Sub Combol_Click()
Dim n As Integer
n=Combol.ListIndex
Text(1)=[1]
Text(2)=[2]
End Sub
Private Sub Combol_Click()
[3]
End Sub
Private Sub Form_Load()
Combol.AddItem"哭泣的駱駝"
Combol.AddItem"雙城記"
Combol.AddItem"窗外"
Combol.AddItem"紅與黑"
Combol.AddItem"廢都"
author()=Array("三毛"，"荻更斯"，"瓊瑤"，"司湯達(dá)、"賈平凹")
b_concern()=Array("作家"，"商務(wù)"，"香江文藝"，"外國(guó)文學(xué)"、"上海")
End Sub
2.在窗體上畫一個(gè)名稱為Timer1的計(jì)時(shí)器和一個(gè)名稱為L(zhǎng)abel1的標(biāo)簽。當(dāng)運(yùn)行程序后，將在標(biāo)簽中顯示當(dāng)前時(shí)間的數(shù)字時(shí)鐘（包括時(shí)：分：秒）。程序運(yùn)行后的結(jié)果如圖2-2所示。請(qǐng)?jiān)赺_[4]__處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。
Private Sub Form_Load()
Timer1.Interval=1000
End Sub
Private Sub Timer1_timer()
__[4]__
End Sub
3.在剛建立工程時(shí)，使窗體上的所有控件具有區(qū)別于默認(rèn)值的相同的字體格式，應(yīng)對(duì)__[5]__的__[6]__屬性進(jìn)行設(shè)置。
4.整形變量M中存放了一個(gè)兩位數(shù)，要將兩位數(shù)交換位置，例如24變成42，實(shí)現(xiàn)的表達(dá)式為__[7]__
5.下列程序運(yùn)行時(shí)，當(dāng)單擊窗體后，從鍵盤輸入一個(gè)字符，判斷該字符是字母字符、數(shù)字字符還是其他字符，并做相應(yīng)的顯示。窗體上無(wú)任何控件，并禁用Asc和Chr函數(shù)，Select Case 語(yǔ)句中禁用枚舉值。請(qǐng)?jiān)赺_[8]__、__[9]__、__[10]和__[11]__ 處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。
Private Sub Form_Load()
Dim x As String*1
X=__[8]__（“請(qǐng)輸入單個(gè)字符”，“字符”）
Select Case UCase（__[9]__）
Case __[10]__
Print X+“是字母字符”
Case __[11]__
Print X+“是數(shù)字字符”
Case Else
Print X+“是其他字符”
End Select
End Sub
6.下列程序?yàn)榍骃n=a+aa+aaa+……+aa…a（n個(gè)a），其中a為一個(gè)隨機(jī)數(shù)產(chǎn)生的1~9（包括1、9）中的一個(gè)正整數(shù)，n是一個(gè)隨機(jī)數(shù)產(chǎn)生的5~10（包括5、10）中的一個(gè)正整數(shù)，請(qǐng)?jiān)赺_[12]__和__[13]__處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。
Private Sub Form_Load（）
Dim a As Integer,n As Integer, S As Double,Sn As Double
a=Fix(9*Rnd)+1
n=Fix(6*Rnd)+5
Sn=0
S=0
For i=1 to __[12]__
S=S+a*10^(i-1)
__[13]__
print Sn
Next i
End Sub
7.如果菜單標(biāo)題的某個(gè)字母前輸入一個(gè)“__[14]__”符號(hào)，那么該字母就成了熱鍵字母；如果建立菜單時(shí)在標(biāo)題文本框中輸入一個(gè)“__[15]”，那么顯示時(shí)將形成一行分隔符。 二級(jí)VB模擬試卷(一)參考答案
一、(1)A (2)C (3)D (4)C (5)A (6)A (7)B (8)D (9)D (10)D (11)B (12)A (13)A (14)C (15)B (16)D
(17)D (18)C (19)D (20)C (21)D (22)D (23)B (24)B (25)A (26)A (27)D (28)D (29)A (30)A
(31)C (32)C (33)B (34)B (35)C
分析:
(7)12000 + "129" & 200:先計(jì)算12000 + "129"值為數(shù)值類型12129,再進(jìn)行字符串相連接
(8)一般True的值為非0,False的值為0.在VB通常True的值為非-1.a>b Xor b+3>5也就是0 Xor 8,Xor是按位進(jìn)行異或操作,其結(jié)果為8,非0就為真.
二、[1]author(n) [2]b_concerm(n) [3]End [4]Labell.Caption=Time [5]Form窗體 [6]Font
[7]((M mod 10)*10 + M\10) [8]InputBox [9]X [10]"A"To"Z" [11]"0"To"9" [12]n
[13]Sn = Sn + S [14]& [15]-
1.當(dāng)運(yùn)行程序時(shí)，系統(tǒng)自動(dòng)執(zhí)行啟動(dòng)窗體的某個(gè)事件過(guò)程。這個(gè)事件過(guò)程是（ ）
A)Load
B)Click
C)Unload
D)GotFocus
2.無(wú)論何控件，都具有一個(gè)共同屬性。這個(gè)屬性是（ ）
A)Text
B)Font
C)Name
D)Caption
3.在一行內(nèi)寫多條語(yǔ)句時(shí)，語(yǔ)句之間要用某個(gè)符號(hào)分隔。這個(gè)符號(hào)是（ ）
A)，
B)；
C)、
D)：
4.表達(dá)式3∧2*2+3 MOD 10\4的值是（ ）
A)18
B)1
C)19
D)0
5.下面的變量名合法的是（ ）
A)k_name
B)k ame
C)name
D)k-name
6.設(shè)有如下變量聲明Dim time1 As Date,為變量time1正確賦值的表達(dá)式是（ ）
A)time1 = #11:34:04 #
B)time1 = Format(Time,"yy:mm:dd")
C)time1 = #"11:34:04"#
D)time1 = Format("hh:mm:ss",Time)
7.表達(dá)式12000 + "129" & 200的值是（ ）
A)12329
B)"12129200"
C)"12000129200"
D)"12329"
8.若設(shè)a = 4,b = 5,則下列表達(dá)式值為真的是（ ）
A)(True+a)>0 And b>10
B)a>b Or b>10-a
C)(False-b< 0) Eqv (a>b)
D)a>b Xor b+3>5
9.當(dāng)窗體上的文字或圖形被覆蓋或小化后能恢復(fù)原貌，需要設(shè)置窗體的屬性是（ ）
A)Appearance
B)Visible
C)Enable
D)Autoredraw
10.在窗體上畫一個(gè)名稱為Command1的命令按鈕，編寫以下程序：
Private Sub Command1_Click( )
Dim a As Integer
Static b As Integer
a = a + b
b = b + 4
Print a,b
End Sub
程序運(yùn)行后，單擊該命令按鈕三次，屏幕上顯示的值是（ ）
A)4 12
B)0 4
C)4 8
D)8 1211.Visual Basic是一種面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言，構(gòu)成對(duì)象的三要素是（ ）
A)屬性、控件和方法
B)屬性、事件和方法
C)窗體、控件和過(guò)程
D)控件、過(guò)程和模塊
12.下列程序段錯(cuò)誤的是（ ）
A)Dim a As Integer
a = array(1,2,3,4)
B)Dim a(),b()
a = array(1,2,3,4):b = a
C)Dim a As Variant
a = array(1,"asd",true)
D)Dim a() As Variant
a = array(1,2,3,4)
13.表達(dá)式String(1,"I am student") + Replace("am harass","rass","ppy") & "!"的值是（ ）
A)"I am happy!"
B)"I am student I am s am harass studentam happy!"
C)"I am student am harass!"
D)"I am student am happy!"
14.下列程序段中，能正常結(jié)束循環(huán)的是（ ）
A)I = 1
Do
I = I + 2
Loop Until I = 10
B)I = 5
Do
I = I + 1
Loop Until I < 0
C)I = 10
Do
I = I + 1
Loop Until I > 0
D)I = 6
Do
I = I - 2
Loop Until I = 1
15.引用列表框（List1）后一個(gè)數(shù)據(jù)項(xiàng)應(yīng)使用的表達(dá)式是（ ）
A)List1.List(List1.ListCount)
B)List1.List(List1.ListCount-1)
C)List1.List(ListCount)
D)List1.List(ListCount-1)
16.有如下程序：
Option Base 1
Private Sub Command1_Click()
Dim x,y(3,3)
x = Array(1,2,3,4,5,6,7,8,9)
For i = 1 To 3
For j = 1 To 3
y(i,j) = x(i*j)
If(j > = i) Then Print y(i,j);
Next j
Next i
End Sub
運(yùn)行時(shí)輸入出的結(jié)果是（D）
A)1 2 3
2 4 6
4 6 8
B)1 2 3
2 4 6
3 6 9
C)1
2 4
3 6 9
D)1 2 3
4 6
9
17.在窗體上畫一個(gè)名稱為Command1的命令按鈕，編寫如下程序：
Private Sub Command1_Click()
Print pl(3,7)
End Sub
Public Function pl(x As Single,n As Integer) As Single
If n=0 Then
pl=1
Else
If n Mod 2=1 Then
pl=x*x+n
Else
P1=x*x-n
End If
End If
End Function
程序運(yùn)行后，單擊該命令按鈕，屏幕上顯示的結(jié)果是（ ）
A)2
B)1
C)0
D)16
18.以下屬性和方法中，可重定義坐標(biāo)系的是（ ）
A)DrawStyle屬性
B)DrawWidth屬性
C)Scale方法
D)ScaleMode屬性
19.在窗體上畫一個(gè)文本框，然后編寫如下事件過(guò)程：
Private Sub Form_Load()
Text1.Text = ""
Text1.SetFocus
For i = 1 To 5
Sum = Sum +i
Next i
Text1.text = Sum
End Sub
上述程序的運(yùn)行結(jié)果是（ ）
A)在文本框中輸出15
B)在文本框中輸出0
C)在文本框中輸出不定值
D)出錯(cuò) 20.已知x代表某個(gè)百分制成績(jī)，下列程序段用于顯示對(duì)應(yīng)的五級(jí)制成績(jī)，正確的是（ ）
A)If x > = 60 Then
Print "及格"
ElseIf x > = 70 Then
Print "中"
ElseIf x > = 80 Then
Print "良"
ElseIf x > = 90 Then
Print "優(yōu)"
Else
Print "不及格"
End If
B)If x < 90 Then
Print "良"
ElseIf x < 80 Then
Print "中"
ElseIf x < 70 Then
Print "及格"
ElseIf x < 60 Then
Print "不及格"
Else
Print "優(yōu)"
End If
C)If x > = 90 Then
Print "優(yōu)"
ElseIf x > = 80 Then
Print "良"
ElseIf x > = 70 Then
Print "中"
ElseIf x > = 60 Then
Print "及格"
Else
Print "不及格"
End If
D)Select Case x
Case x > = 90
Print "優(yōu)"
Case x > = 80
Print "良"
Case x > = 70
Print "中"
Case x > = 60
Print "及格"
Case Else
Print "不及格"
End Select
21.下面說(shuō)法不正確的是(D)
A)滾動(dòng)條的重要事件是Change和Scroll
B)框架的主要作用是將控件進(jìn)行分組，以完成各自相對(duì)獨(dú)立的功能
C)組合框是組合了文本框和列表框的特性而形成的一種控件
D)計(jì)時(shí)器控件可以通過(guò)對(duì)Visible屬性的設(shè)置，在程序運(yùn)行期間顯示在窗體上
22.在窗體上畫一個(gè)名稱為Check1復(fù)選框，在程序運(yùn)行的過(guò)程中，若選中復(fù)選框，則Check1.value的值是（ ）
A)True
B)2
C)0
D)1
23.在下列關(guān)于菜單的說(shuō)法中，錯(cuò)誤的是（ ）
A)每一個(gè)菜單項(xiàng)都是一個(gè)控件，與其他控件一樣都有自己的屬性和事件
B)除了Click事件之外，菜單項(xiàng)還能響應(yīng)其他的如 DblClick等事件過(guò)程
C)菜單項(xiàng)的快捷鍵不可以任意設(shè)置
D)在程序執(zhí)行時(shí)，如果菜單項(xiàng)的Enabled屬性為False，則該菜單項(xiàng)變成灰色，不能被用戶選擇
24.下面關(guān)于多重窗體的敘述中，正確的是（ ）
A)作為啟動(dòng)對(duì)象的Main 子過(guò)程只能放在窗體模塊內(nèi)
B)如果啟動(dòng)對(duì)象是Main 子過(guò)程，則程序啟動(dòng)時(shí)不加載任何窗體，以后由該過(guò)程根據(jù)不同情況決定是否加載窗體或加載哪一個(gè)窗體
C)沒(méi)有啟動(dòng)窗體，程序不能執(zhí)行
D)以上都不對(duì)
25.與鍵盤操作有關(guān)的事件有KeyPress、KeyUp和KeyDown事件，當(dāng)用戶按上并且釋放一個(gè)鍵后，這三個(gè)事件發(fā)生的順序是（ ）
A)KeyDown、KeyPress、KeyUp
B)KeyDown、KeyUp、KeyPress
C)KeyPress、KeyDown、、KeyUp
D)沒(méi)有規(guī)律
26.要從磁盤上讀入一個(gè)文件名為“c:\filel.txt”的順序文件，下面程序段正確的是（ ）
A)F="c:\filel.txt"
Open F For Input As # 1
B)F="c:\filel.txt"
Open "F" For Input As # 2
C)Open "c:\filel.txt" For Output As # 2
D)Open c:\filel.txt For Input As # 1
27.下列關(guān)于過(guò)程敘述不正確的是（ ）
A)過(guò)程的傳值調(diào)用是將實(shí)參的具體值傳值遞給形參
B)過(guò)程的傳址調(diào)用是將實(shí)參在內(nèi)存的地址傳遞給形參
C)過(guò)程的傳值調(diào)用參數(shù)是單向傳遞的，過(guò)程的傳址調(diào)用參數(shù)是雙向傳遞的
D)無(wú)論過(guò)程傳值調(diào)用還是過(guò)程傳址調(diào)用，參數(shù)傳遞都是雙向的
28.執(zhí)行了下面程序后，組合框中數(shù)據(jù)項(xiàng)的值是（ ）
Private Sub Form_Click()
For i=1 to 6
Combo1.AddItem i
Next i
For i= 1 to 3
Combo1.RemoveItem i
Next i
End Sub
A)1 5 6
B)1 3 5
C)4 5 6
D)2 4 6
29.若在Shape 控件內(nèi)以FillStyle屬性所指定的圖案填充區(qū)域，而填充圖案的線條顏色由FillColor屬性指定，非線條的區(qū)域由Back Color屬性填充，則應(yīng)（ ）
A)將Shape控件的FillSte屬性設(shè)置為2至7間的某個(gè)值，BackStyle屬性設(shè)置為1
B)將Shape控件的FillSte屬性設(shè)置為0或1，BackStyle屬性設(shè)置為1
C)將Shape控件的FillSte屬性設(shè)置為2至7間的某個(gè)值，BackStyle屬性設(shè)置為0
D)將Shape控件的FillSte屬性設(shè)置為0或1，BackStyle屬性設(shè)置為0
30.下列程序的執(zhí)行結(jié)果是（ ）
Private Sub Form_Activate()
Dim score(3) As Integer, total As Integer
Dim aa_score As Variant
score(1)=50: score(2) =14：score(3)=36
tota=0: i=0
For Each aa_score In score
i=i+1
total=tota + aa+_score
Print i,aa_score,total
Next
End Sub
A)1 0 0
2 50 50
3 14 64
4 36 100
B)1 50 50
2 14 64
3 36 100
C)0 50 50
1 14 64
2 36 100
D)0 0 0
1 50 50
2 14 64
3 36 100
分析:
答案:
31.在Activate 事件過(guò)程中，寫入下面的程序：
Option Base 1
Private Sub Form_Activate()
Dim t As Integer
Dim a( ) As Variant
a=Array (2,4,6,8,10,1,3,5,7,9)
For i=1 to 10\2
t= a(i)
a(i)=a(10 - i + 1)
a(10 - i + 1)=t
Next i
For j= 1 to 10
Print a(j);
Next j
End Sub
運(yùn)行程序后，顯示的結(jié)果是（C）
A)2 4 6 8 10 1 3 5 7 9
B)1 3 5 7 9 2 4 6 8 10
C)9 7 5 3 1 10 8 6 4 2
D)10 8 6 4 2 9 7 5 3 1
分析:
答案:
32.在Activate 事件過(guò)程中，寫入下面的程序：
Private Sub Form _Activate()
Dim S As String, a As String, b As String
a= "*" : b =" $"
For i= 1 to 4
If i / 2= Int(i / 2) Then
S=String(Len (a)+i , b)
Else
S=String(Len(a) + i, a)
End If
Print S;
Next i
End Sub
運(yùn)行程序后，顯示結(jié)果是（ ）
A)$$ ***$$$$*****
B)*$$**$$***$$$****$$$$
C)**$$$****$$$$$
D)$*$$**$$$***$$$$****
分析:
答案:
33.在窗體上設(shè)置相應(yīng)的控件，并在代碼窗口編寫下列程序：
Printe Sub Form_Click()
Dim a As Long ,b As Long
a=InputBox("請(qǐng)輸入若干個(gè)整數(shù)")
Call P(a,b)
Print b
End Sub
Private Sub P(x As Long, y As Long)
Dim n As Integer, j As String*1, s As String
k=Len(Trim(Str(x)))
s=""
For i= K To 1 Step -1
j=Mid(x,i,1)
s=s+j
Next i
y=Val(s)
End Sub
運(yùn)行程序，在InputBox框中輸入123456,然后單擊"確定"按鈕，則輸出結(jié)果是（ ）
A)123456
B)654321
C)135246
D)246135
分析:
答案:34.設(shè)定文本框內(nèi)的文字內(nèi)容是否允許修改的屬性是（ ）
A)Text
B)Locked
C)PasswordChar
D)Multiline
分析:
答案:
35.要建立一個(gè)學(xué)生成績(jī)的隨機(jī)文件，如下定義了學(xué)生的記錄類型，由學(xué)號(hào)、姓名、三門課程成績(jī)（百分制）組成，下列程序段正確的是（ ）
A)Type studl
no As Integer
name AS String
score(1 to 3) As Single
End Type
B)Type studl
no As Integer
name As String *10
score() As Single
End Type
C)Type studl
no As Integer
name As String *10
score(1 to 3) As Stngle
End Type
D)Type studl
no As Integer
name As String
score(1 to 3) As String
End Type
分析:
答案:
二、填空：每空2分，共30分。
1.有一圖書查詢系統(tǒng)，當(dāng)在組合框中選擇書名后，則在兩個(gè)文本框中顯示出作者和出版社，程序運(yùn)行后的界面如圖2-1所示，當(dāng)單擊“結(jié)束”按鈕時(shí)，結(jié)束程序。程序中有一個(gè)組合框、兩個(gè)文本框、三個(gè)標(biāo)簽及一個(gè)命令按鈕。請(qǐng)__[1]__、_[2]__和__[3]__處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。
Dim k As Integer
dim author(),b_concern
Privage Sub Combol_Click()
Dim n As Integer
n=Combol.ListIndex
Text(1)=[1]
Text(2)=[2]
End Sub
Private Sub Combol_Click()
[3]
End Sub
Private Sub Form_Load()
Combol.AddItem"哭泣的駱駝"
Combol.AddItem"雙城記"
Combol.AddItem"窗外"
Combol.AddItem"紅與黑"
Combol.AddItem"廢都"
author()=Array("三毛"，"荻更斯"，"瓊瑤"，"司湯達(dá)、"賈平凹")
b_concern()=Array("作家"，"商務(wù)"，"香江文藝"，"外國(guó)文學(xué)"、"上海")
End Sub
2.在窗體上畫一個(gè)名稱為Timer1的計(jì)時(shí)器和一個(gè)名稱為L(zhǎng)abel1的標(biāo)簽。當(dāng)運(yùn)行程序后，將在標(biāo)簽中顯示當(dāng)前時(shí)間的數(shù)字時(shí)鐘（包括時(shí)：分：秒）。程序運(yùn)行后的結(jié)果如圖2-2所示。請(qǐng)?jiān)赺_[4]__處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。
Private Sub Form_Load()
Timer1.Interval=1000
End Sub
Private Sub Timer1_timer()
__[4]__
End Sub
3.在剛建立工程時(shí)，使窗體上的所有控件具有區(qū)別于默認(rèn)值的相同的字體格式，應(yīng)對(duì)__[5]__的__[6]__屬性進(jìn)行設(shè)置。
4.整形變量M中存放了一個(gè)兩位數(shù)，要將兩位數(shù)交換位置，例如24變成42，實(shí)現(xiàn)的表達(dá)式為__[7]__
5.下列程序運(yùn)行時(shí)，當(dāng)單擊窗體后，從鍵盤輸入一個(gè)字符，判斷該字符是字母字符、數(shù)字字符還是其他字符，并做相應(yīng)的顯示。窗體上無(wú)任何控件，并禁用Asc和Chr函數(shù)，Select Case 語(yǔ)句中禁用枚舉值。請(qǐng)?jiān)赺_[8]__、__[9]__、__[10]和__[11]__ 處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。
Private Sub Form_Load()
Dim x As String*1
X=__[8]__（“請(qǐng)輸入單個(gè)字符”，“字符”）
Select Case UCase（__[9]__）
Case __[10]__
Print X+“是字母字符”
Case __[11]__
Print X+“是數(shù)字字符”
Case Else
Print X+“是其他字符”
End Select
End Sub
6.下列程序?yàn)榍骃n=a+aa+aaa+……+aa…a（n個(gè)a），其中a為一個(gè)隨機(jī)數(shù)產(chǎn)生的1~9（包括1、9）中的一個(gè)正整數(shù)，n是一個(gè)隨機(jī)數(shù)產(chǎn)生的5~10（包括5、10）中的一個(gè)正整數(shù)，請(qǐng)?jiān)赺_[12]__和__[13]__處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。
Private Sub Form_Load（）
Dim a As Integer,n As Integer, S As Double,Sn As Double
a=Fix(9*Rnd)+1
n=Fix(6*Rnd)+5
Sn=0
S=0
For i=1 to __[12]__
S=S+a*10^(i-1)
__[13]__
print Sn
Next i
End Sub
7.如果菜單標(biāo)題的某個(gè)字母前輸入一個(gè)“__[14]__”符號(hào)，那么該字母就成了熱鍵字母；如果建立菜單時(shí)在標(biāo)題文本框中輸入一個(gè)“__[15]”，那么顯示時(shí)將形成一行分隔符。 二級(jí)VB模擬試卷(一)參考答案
一、(1)A (2)C (3)D (4)C (5)A (6)A (7)B (8)D (9)D (10)D (11)B (12)A (13)A (14)C (15)B (16)D
(17)D (18)C (19)D (20)C (21)D (22)D (23)B (24)B (25)A (26)A (27)D (28)D (29)A (30)A
(31)C (32)C (33)B (34)B (35)C
分析:
(7)12000 + "129" & 200:先計(jì)算12000 + "129"值為數(shù)值類型12129,再進(jìn)行字符串相連接
(8)一般True的值為非0,False的值為0.在VB通常True的值為非-1.a>b Xor b+3>5也就是0 Xor 8,Xor是按位進(jìn)行異或操作,其結(jié)果為8,非0就為真.
二、[1]author(n) [2]b_concerm(n) [3]End [4]Labell.Caption=Time [5]Form窗體 [6]Font
[7]((M mod 10)*10 + M\10) [8]InputBox [9]X [10]"A"To"Z" [11]"0"To"9" [12]n
[13]Sn = Sn + S [14]& [15]-