一、選擇題：35題，2分/題，共70分 下列各題A)、B)、C)、D)四個選項中，只有一個選項是正確的，請將正確選項涂寫在答題卡相應位置上，答在試卷上不得分。
1.當運行程序時，系統(tǒng)自動執(zhí)行啟動窗體的某個事件過程。這個事件過程是（ ）
A)Load
B)Click
C)Unload
D)GotFocus
2.無論何控件，都具有一個共同屬性。這個屬性是（ ）
A)Text
B)Font
C)Name
D)Caption
3.在一行內寫多條語句時，語句之間要用某個符號分隔。這個符號是（ ）
A)，
B)；
C)、
D)：
4.表達式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.設有如下變量聲明Dim time1 As Date,為變量time1正確賦值的表達式是（ ）
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.表達式12000 + "129" & 200的值是（ ）
A)12329
B)"12129200"
C)"12000129200"
D)"12329"
8.若設a = 4,b = 5,則下列表達式值為真的是（ ）
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.當窗體上的文字或圖形被覆蓋或小化后能恢復原貌，需要設置窗體的屬性是（ ）
A)Appearance
B)Visible
C)Enable
D)Autoredraw
10.在窗體上畫一個名稱為Command1的命令按鈕，編寫以下程序：
Private Sub Command1_Click( )
Dim a As Integer
Static b As Integer
a = a + b
b = b + 4
Print a,b
End Sub
程序運行后，單擊該命令按鈕三次，屏幕上顯示的值是（ ）
A)4 12
B)0 4
C)4 8
D)8 1211.Visual Basic是一種面向對象的程序設計語言，構成對象的三要素是（ ）
A)屬性、控件和方法
B)屬性、事件和方法
C)窗體、控件和過程
D)控件、過程和模塊
12.下列程序段錯誤的是（ ）
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.表達式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.下列程序段中，能正常結束循環(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）后一個數(shù)據項應使用的表達式是（ ）
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
運行時輸入出的結果是（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.在窗體上畫一個名稱為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
程序運行后，單擊該命令按鈕，屏幕上顯示的結果是（ ）
A)2
B)1
C)0
D)16
18.以下屬性和方法中，可重定義坐標系的是（ ）
A)DrawStyle屬性
B)DrawWidth屬性
C)Scale方法
D)ScaleMode屬性
19.在窗體上畫一個文本框，然后編寫如下事件過程：
Private Sub Form_Load()
Text1.Text = ""
Text1.SetFocus
For i = 1 To 5
Sum = Sum +i
Next i
Text1.text = Sum
End Sub
上述程序的運行結果是（ ）
A)在文本框中輸出15
B)在文本框中輸出0
C)在文本框中輸出不定值
D)出錯 20.已知x代表某個百分制成績，下列程序段用于顯示對應的五級制成績，正確的是（ ）
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.下面說法不正確的是(D)
A)滾動條的重要事件是Change和Scroll
B)框架的主要作用是將控件進行分組，以完成各自相對獨立的功能
C)組合框是組合了文本框和列表框的特性而形成的一種控件
D)計時器控件可以通過對Visible屬性的設置，在程序運行期間顯示在窗體上
22.在窗體上畫一個名稱為Check1復選框，在程序運行的過程中，若選中復選框，則Check1.value的值是（ ）
A)True
B)2
C)0
D)1
23.在下列關于菜單的說法中，錯誤的是（ ）
A)每一個菜單項都是一個控件，與其他控件一樣都有自己的屬性和事件
B)除了Click事件之外，菜單項還能響應其他的如 DblClick等事件過程
C)菜單項的快捷鍵不可以任意設置
D)在程序執(zhí)行時，如果菜單項的Enabled屬性為False，則該菜單項變成灰色，不能被用戶選擇
24.下面關于多重窗體的敘述中，正確的是（ ）
A)作為啟動對象的Main 子過程只能放在窗體模塊內
B)如果啟動對象是Main 子過程，則程序啟動時不加載任何窗體，以后由該過程根據不同情況決定是否加載窗體或加載哪一個窗體
C)沒有啟動窗體，程序不能執(zhí)行
D)以上都不對
25.與鍵盤操作有關的事件有KeyPress、KeyUp和KeyDown事件，當用戶按上并且釋放一個鍵后，這三個事件發(fā)生的順序是（ ）
A)KeyDown、KeyPress、KeyUp
B)KeyDown、KeyUp、KeyPress
C)KeyPress、KeyDown、、KeyUp
D)沒有規(guī)律
26.要從磁盤上讀入一個文件名為“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.下列關于過程敘述不正確的是（ ）
A)過程的傳值調用是將實參的具體值傳值遞給形參
B)過程的傳址調用是將實參在內存的地址傳遞給形參
C)過程的傳值調用參數(shù)是單向傳遞的，過程的傳址調用參數(shù)是雙向傳遞的
D)無論過程傳值調用還是過程傳址調用，參數(shù)傳遞都是雙向的
28.執(zhí)行了下面程序后，組合框中數(shù)據項的值是（ ）
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 控件內以FillStyle屬性所指定的圖案填充區(qū)域，而填充圖案的線條顏色由FillColor屬性指定，非線條的區(qū)域由Back Color屬性填充，則應（ ）
A)將Shape控件的FillSte屬性設置為2至7間的某個值，BackStyle屬性設置為1
B)將Shape控件的FillSte屬性設置為0或1，BackStyle屬性設置為1
C)將Shape控件的FillSte屬性設置為2至7間的某個值，BackStyle屬性設置為0
D)將Shape控件的FillSte屬性設置為0或1，BackStyle屬性設置為0
30.下列程序的執(zhí)行結果是（ ）
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 事件過程中，寫入下面的程序：
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
運行程序后，顯示的結果是（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 事件過程中，寫入下面的程序：
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
運行程序后，顯示結果是（ ）
A)$$ ***$$$$*****
B)*$$**$$***$$$****$$$$
C)**$$$****$$$$$
D)$*$$**$$$***$$$$****
分析:
答案:
33.在窗體上設置相應的控件，并在代碼窗口編寫下列程序：
Printe Sub Form_Click()
Dim a As Long ,b As Long
a=InputBox("請輸入若干個整數(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
運行程序，在InputBox框中輸入123456,然后單擊"確定"按鈕，則輸出結果是（ ）
A)123456
B)654321
C)135246
D)246135
分析:
答案:34.設定文本框內的文字內容是否允許修改的屬性是（ ）
A)Text
B)Locked
C)PasswordChar
D)Multiline
分析:
答案:
35.要建立一個學生成績的隨機文件，如下定義了學生的記錄類型，由學號、姓名、三門課程成績（百分制）組成，下列程序段正確的是（ ）
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)，當在組合框中選擇書名后，則在兩個文本框中顯示出作者和出版社，程序運行后的界面如圖2-1所示，當單擊“結束”按鈕時，結束程序。程序中有一個組合框、兩個文本框、三個標簽及一個命令按鈕。請__[1]__、_[2]__和__[3]__處填入適當?shù)膬热荩瑢⒊绦蜓a充完整。
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("三毛"，"荻更斯"，"瓊瑤"，"司湯達、"賈平凹")
b_concern()=Array("作家"，"商務"，"香江文藝"，"外國文學"、"上海")
End Sub
2.在窗體上畫一個名稱為Timer1的計時器和一個名稱為Label1的標簽。當運行程序后，將在標簽中顯示當前時間的數(shù)字時鐘（包括時：分：秒）。程序運行后的結果如圖2-2所示。請在__[4]__處填入適當?shù)膬热?，將程序補充完整。
Private Sub Form_Load()
Timer1.Interval=1000
End Sub
Private Sub Timer1_timer()
__[4]__
End Sub
3.在剛建立工程時，使窗體上的所有控件具有區(qū)別于默認值的相同的字體格式，應對__[5]__的__[6]__屬性進行設置。
4.整形變量M中存放了一個兩位數(shù)，要將兩位數(shù)交換位置，例如24變成42，實現(xiàn)的表達式為__[7]__
5.下列程序運行時，當單擊窗體后，從鍵盤輸入一個字符，判斷該字符是字母字符、數(shù)字字符還是其他字符，并做相應的顯示。窗體上無任何控件，并禁用Asc和Chr函數(shù)，Select Case 語句中禁用枚舉值。請在__[8]__、__[9]__、__[10]和__[11]__ 處填入適當?shù)膬热荩瑢⒊绦蜓a充完整。
Private Sub Form_Load()
Dim x As String*1
X=__[8]__（“請輸入單個字符”，“字符”）
Select Case UCase（__[9]__）
Case __[10]__
Print X+“是字母字符”
Case __[11]__
Print X+“是數(shù)字字符”
Case Else
Print X+“是其他字符”
End Select
End Sub
6.下列程序為求Sn=a+aa+aaa+……+aa…a（n個a），其中a為一個隨機數(shù)產生的1~9（包括1、9）中的一個正整數(shù)，n是一個隨機數(shù)產生的5~10（包括5、10）中的一個正整數(shù)，請在__[12]__和__[13]__處填入適當?shù)膬热?，將程序補充完整。
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.如果菜單標題的某個字母前輸入一個“__[14]__”符號，那么該字母就成了熱鍵字母；如果建立菜單時在標題文本框中輸入一個“__[15]”，那么顯示時將形成一行分隔符。 二級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:先計算12000 + "129"值為數(shù)值類型12129,再進行字符串相連接
(8)一般True的值為非0,False的值為0.在VB通常True的值為非-1.a>b Xor b+3>5也就是0 Xor 8,Xor是按位進行異或操作,其結果為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.當運行程序時，系統(tǒng)自動執(zhí)行啟動窗體的某個事件過程。這個事件過程是（ ）
A)Load
B)Click
C)Unload
D)GotFocus
2.無論何控件，都具有一個共同屬性。這個屬性是（ ）
A)Text
B)Font
C)Name
D)Caption
3.在一行內寫多條語句時，語句之間要用某個符號分隔。這個符號是（ ）
A)，
B)；
C)、
D)：
4.表達式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.設有如下變量聲明Dim time1 As Date,為變量time1正確賦值的表達式是（ ）
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.表達式12000 + "129" & 200的值是（ ）
A)12329
B)"12129200"
C)"12000129200"
D)"12329"
8.若設a = 4,b = 5,則下列表達式值為真的是（ ）
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.當窗體上的文字或圖形被覆蓋或小化后能恢復原貌，需要設置窗體的屬性是（ ）
A)Appearance
B)Visible
C)Enable
D)Autoredraw
10.在窗體上畫一個名稱為Command1的命令按鈕，編寫以下程序：
Private Sub Command1_Click( )
Dim a As Integer
Static b As Integer
a = a + b
b = b + 4
Print a,b
End Sub
程序運行后，單擊該命令按鈕三次，屏幕上顯示的值是（ ）
A)4 12
B)0 4
C)4 8
D)8 1211.Visual Basic是一種面向對象的程序設計語言，構成對象的三要素是（ ）
A)屬性、控件和方法
B)屬性、事件和方法
C)窗體、控件和過程
D)控件、過程和模塊
12.下列程序段錯誤的是（ ）
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.表達式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.下列程序段中，能正常結束循環(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）后一個數(shù)據項應使用的表達式是（ ）
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
運行時輸入出的結果是（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.在窗體上畫一個名稱為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
程序運行后，單擊該命令按鈕，屏幕上顯示的結果是（ ）
A)2
B)1
C)0
D)16
18.以下屬性和方法中，可重定義坐標系的是（ ）
A)DrawStyle屬性
B)DrawWidth屬性
C)Scale方法
D)ScaleMode屬性
19.在窗體上畫一個文本框，然后編寫如下事件過程：
Private Sub Form_Load()
Text1.Text = ""
Text1.SetFocus
For i = 1 To 5
Sum = Sum +i
Next i
Text1.text = Sum
End Sub
上述程序的運行結果是（ ）
A)在文本框中輸出15
B)在文本框中輸出0
C)在文本框中輸出不定值
D)出錯 20.已知x代表某個百分制成績，下列程序段用于顯示對應的五級制成績，正確的是（ ）
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.下面說法不正確的是(D)
A)滾動條的重要事件是Change和Scroll
B)框架的主要作用是將控件進行分組，以完成各自相對獨立的功能
C)組合框是組合了文本框和列表框的特性而形成的一種控件
D)計時器控件可以通過對Visible屬性的設置，在程序運行期間顯示在窗體上
22.在窗體上畫一個名稱為Check1復選框，在程序運行的過程中，若選中復選框，則Check1.value的值是（ ）
A)True
B)2
C)0
D)1
23.在下列關于菜單的說法中，錯誤的是（ ）
A)每一個菜單項都是一個控件，與其他控件一樣都有自己的屬性和事件
B)除了Click事件之外，菜單項還能響應其他的如 DblClick等事件過程
C)菜單項的快捷鍵不可以任意設置
D)在程序執(zhí)行時，如果菜單項的Enabled屬性為False，則該菜單項變成灰色，不能被用戶選擇
24.下面關于多重窗體的敘述中，正確的是（ ）
A)作為啟動對象的Main 子過程只能放在窗體模塊內
B)如果啟動對象是Main 子過程，則程序啟動時不加載任何窗體，以后由該過程根據不同情況決定是否加載窗體或加載哪一個窗體
C)沒有啟動窗體，程序不能執(zhí)行
D)以上都不對
25.與鍵盤操作有關的事件有KeyPress、KeyUp和KeyDown事件，當用戶按上并且釋放一個鍵后，這三個事件發(fā)生的順序是（ ）
A)KeyDown、KeyPress、KeyUp
B)KeyDown、KeyUp、KeyPress
C)KeyPress、KeyDown、、KeyUp
D)沒有規(guī)律
26.要從磁盤上讀入一個文件名為“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.下列關于過程敘述不正確的是（ ）
A)過程的傳值調用是將實參的具體值傳值遞給形參
B)過程的傳址調用是將實參在內存的地址傳遞給形參
C)過程的傳值調用參數(shù)是單向傳遞的，過程的傳址調用參數(shù)是雙向傳遞的
D)無論過程傳值調用還是過程傳址調用，參數(shù)傳遞都是雙向的
28.執(zhí)行了下面程序后，組合框中數(shù)據項的值是（ ）
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 控件內以FillStyle屬性所指定的圖案填充區(qū)域，而填充圖案的線條顏色由FillColor屬性指定，非線條的區(qū)域由Back Color屬性填充，則應（ ）
A)將Shape控件的FillSte屬性設置為2至7間的某個值，BackStyle屬性設置為1
B)將Shape控件的FillSte屬性設置為0或1，BackStyle屬性設置為1
C)將Shape控件的FillSte屬性設置為2至7間的某個值，BackStyle屬性設置為0
D)將Shape控件的FillSte屬性設置為0或1，BackStyle屬性設置為0
30.下列程序的執(zhí)行結果是（ ）
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 事件過程中，寫入下面的程序：
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
運行程序后，顯示的結果是（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 事件過程中，寫入下面的程序：
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
運行程序后，顯示結果是（ ）
A)$$ ***$$$$*****
B)*$$**$$***$$$****$$$$
C)**$$$****$$$$$
D)$*$$**$$$***$$$$****
分析:
答案:
33.在窗體上設置相應的控件，并在代碼窗口編寫下列程序：
Printe Sub Form_Click()
Dim a As Long ,b As Long
a=InputBox("請輸入若干個整數(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
運行程序，在InputBox框中輸入123456,然后單擊"確定"按鈕，則輸出結果是（ ）
A)123456
B)654321
C)135246
D)246135
分析:
答案:34.設定文本框內的文字內容是否允許修改的屬性是（ ）
A)Text
B)Locked
C)PasswordChar
D)Multiline
分析:
答案:
35.要建立一個學生成績的隨機文件，如下定義了學生的記錄類型，由學號、姓名、三門課程成績（百分制）組成，下列程序段正確的是（ ）
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)，當在組合框中選擇書名后，則在兩個文本框中顯示出作者和出版社，程序運行后的界面如圖2-1所示，當單擊“結束”按鈕時，結束程序。程序中有一個組合框、兩個文本框、三個標簽及一個命令按鈕。請__[1]__、_[2]__和__[3]__處填入適當?shù)膬热荩瑢⒊绦蜓a充完整。
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("三毛"，"荻更斯"，"瓊瑤"，"司湯達、"賈平凹")
b_concern()=Array("作家"，"商務"，"香江文藝"，"外國文學"、"上海")
End Sub
2.在窗體上畫一個名稱為Timer1的計時器和一個名稱為Label1的標簽。當運行程序后，將在標簽中顯示當前時間的數(shù)字時鐘（包括時：分：秒）。程序運行后的結果如圖2-2所示。請在__[4]__處填入適當?shù)膬热?，將程序補充完整。
Private Sub Form_Load()
Timer1.Interval=1000
End Sub
Private Sub Timer1_timer()
__[4]__
End Sub
3.在剛建立工程時，使窗體上的所有控件具有區(qū)別于默認值的相同的字體格式，應對__[5]__的__[6]__屬性進行設置。
4.整形變量M中存放了一個兩位數(shù)，要將兩位數(shù)交換位置，例如24變成42，實現(xiàn)的表達式為__[7]__
5.下列程序運行時，當單擊窗體后，從鍵盤輸入一個字符，判斷該字符是字母字符、數(shù)字字符還是其他字符，并做相應的顯示。窗體上無任何控件，并禁用Asc和Chr函數(shù)，Select Case 語句中禁用枚舉值。請在__[8]__、__[9]__、__[10]和__[11]__ 處填入適當?shù)膬热荩瑢⒊绦蜓a充完整。
Private Sub Form_Load()
Dim x As String*1
X=__[8]__（“請輸入單個字符”，“字符”）
Select Case UCase（__[9]__）
Case __[10]__
Print X+“是字母字符”
Case __[11]__
Print X+“是數(shù)字字符”
Case Else
Print X+“是其他字符”
End Select
End Sub
6.下列程序為求Sn=a+aa+aaa+……+aa…a（n個a），其中a為一個隨機數(shù)產生的1~9（包括1、9）中的一個正整數(shù)，n是一個隨機數(shù)產生的5~10（包括5、10）中的一個正整數(shù)，請在__[12]__和__[13]__處填入適當?shù)膬热?，將程序補充完整。
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.如果菜單標題的某個字母前輸入一個“__[14]__”符號，那么該字母就成了熱鍵字母；如果建立菜單時在標題文本框中輸入一個“__[15]”，那么顯示時將形成一行分隔符。 二級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:先計算12000 + "129"值為數(shù)值類型12129,再進行字符串相連接
(8)一般True的值為非0,False的值為0.在VB通常True的值為非-1.a>b Xor b+3>5也就是0 Xor 8,Xor是按位進行異或操作,其結果為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]-