計(jì)算機(jī)等級(jí)考試二級(jí)VB全真模擬試題（二）

23.在下列關(guān)于菜單的說(shuō)法中，錯(cuò)誤的是（B）
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)變成灰色，不能被用戶(hù)選擇

24.下面關(guān)于多重窗體的敘述中，正確的是（B）
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.與鍵盤(pán)操作有關(guān)的事件有KeyPress、KeyUp和KeyDown事件，當(dāng)用戶(hù)按上并且釋放一個(gè)鍵后，這三個(gè)事件發(fā)生的順序是（A）
A)KeyDown、KeyPress、KeyUp
B)KeyDown、KeyUp、KeyPress
C)KeyPress、KeyDown、、KeyUp
D)沒(méi)有規(guī)律

26.要從磁盤(pán)上讀入一個(gè)文件名為“c:\filel.txt”的順序文件，下面程序段正確的是（A）
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ò)程敘述不正確的是（D）
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)的值是（D）
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ū)域，而填充圖案的線(xiàn)條顏色由FillColor屬性指定，非線(xiàn)條的區(qū)域由Back Color屬性填充，則應(yīng)（A）
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é)果是（A）
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ò)程中，寫(xiě)入下面的程序：
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ò)程中，寫(xiě)入下面的程序：
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é)果是（C）
A)$$ ***$$$$*****
B)*$$**$$***$$$****$$$$
C)**$$$****$$$$$
D)$*$$**$$$***$$$$****

33.在窗體上設(shè)置相應(yīng)的控件，并在代碼窗口編寫(xiě)下列程序：
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é)果是（B）
A)123456
B)654321
C)135246
D)246135

34.設(shè)定文本框內(nèi)的文字內(nèi)容是否允許修改的屬性是（B）
A)Text
B)Locked
C)PasswordChar
D)Multiline

35.要建立一個(gè)學(xué)生成績(jī)的隨機(jī)文件，如下定義了學(xué)生的記錄類(lèi)型，由學(xué)號(hào)、姓名、三門(mén)課程成績(jī)（百分制）組成，下列程序段正確的是（C）
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.有一圖書(shū)查詢(xún)系統(tǒng)，當(dāng)在組合框中選擇書(shū)名后，則在兩個(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

答案: author(n) ；b_concerm(n) ；End

2.在窗體上畫(huà)一個(gè)名稱(chēng)為T(mén)imer1的計(jì)時(shí)器和一個(gè)名稱(chēng)為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

答案: Labell.Caption=Time

3.在剛建立工程時(shí)，使窗體上的所有控件具有區(qū)別于默認(rèn)值的相同的字體格式，應(yīng)對(duì)__[5]__的__[6]__屬性進(jìn)行設(shè)置。

答案: Form窗體 、 Font

4.整形變量M中存放了一個(gè)兩位數(shù)，要將兩位數(shù)交換位置，例如24變成42，實(shí)現(xiàn)的表達(dá)式為_(kāi)_[7]__

答案:((M mod 10)*10 + M\10)

5.下列程序運(yùn)行時(shí)，當(dāng)單擊窗體后，從鍵盤(pán)輸入一個(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
答案: InputBox; X"A"To"z" "0"To"9"

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

答案: n；Sn = Sn + S

7.如果菜單標(biāo)題的某個(gè)字母前輸入一個(gè)“__[14]__”符號(hào)，那么該字母就成了熱鍵字母；如果建立菜單時(shí)在標(biāo)題文本框中輸入一個(gè)“__[15]；[_16]”，那么顯示時(shí)將形成一行分隔符。

答案: & 、 - 、 _