一、選擇題:35題,2分/題,共70分
下列各題A)、B)、C)、D)四個選項中,只有一個選項是正確的,請將正確選項涂寫在答題卡相應(yīng)位置上,答在試卷上不得分。
1.當(dāng)運行程序時,系統(tǒng)自動執(zhí)行啟動窗體的某個事件過程。這個事件過程是( )
A)Load B)Click C)Unload D)GotFocus
2.無論何控件,都具有一個共同屬性。這個屬性是( )
A)Text B)Font C)Name D)Caption
3.在一行內(nèi)寫多條語句時,語句之間要用某個符號分隔。這個符號是( )
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.設(shè)有如下變量聲明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.若設(shè)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.當(dāng)窗體上的文字或圖形被覆蓋或小化后能恢復(fù)原貌,需要設(shè)置窗體的屬性是( )
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 12
11.Visual Basic是一種面向?qū)ο蟮某绦蛟O(shè)計語言,構(gòu)成對象的三要素是( )
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.下列程序段中,能正常結(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)后一個數(shù)據(jù)項應(yīng)使用的表達式是( )
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
運行時輸入出的結(jié)果是( )
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
程序運行后,單擊該命令按鈕,屏幕上顯示的結(jié)果是( )
A)2 B)1 C)0 D)16
18.以下屬性和方法中,可重定義坐標(biāo)系的是( )
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
上述程序的運行結(jié)果是( )
A)在文本框中輸出15 B)在文本框中輸出0
C)在文本框中輸出不定值 D)出錯 20.已知x代表某個百分制成績,下列程序段用于顯示對應(yīng)的五級制成績,正確的是( )
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.下面說法不正確的是( )
A)滾動條的重要事件是Change和Scroll
B)框架的主要作用是將控件進行分組,以完成各自相對獨立的功能
C)組合框是組合了文本框和列表框的特性而形成的一種控件
D)計時器控件可以通過對Visible屬性的設(shè)置,在程序運行期間顯示在窗體上
22.在窗體上畫一個名稱為Check1復(fù)選框,在程序運行的過程中,若選中復(fù)選框,則Check1.value的值是( )
A)True B)2 C)0 D)1
23.在下列關(guān)于菜單的說法中,錯誤的是( )
A)每一個菜單項都是一個控件,與其他控件一樣都有自己的屬性和事件
B)除了Click事件之外,菜單項還能響應(yīng)其他的如 DblClick等事件過程
C)菜單項的快捷鍵不可以任意設(shè)置
D)在程序執(zhí)行時,如果菜單項的Enabled屬性為False,則該菜單項變成灰色,不能被用戶選擇
27.下列關(guān)于過程敘述不正確的是( )
A)過程的傳值調(diào)用是將實參的具體值傳值遞給形參
B)過程的傳址調(diào)用是將實參在內(nèi)存的地址傳遞給形參
C)過程的傳值調(diào)用參數(shù)是單向傳遞的,過程的傳址調(diào)用參數(shù)是雙向傳遞的
D)無論過程傳值調(diào)用還是過程傳址調(diào)用,參數(shù)傳遞都是雙向的
28.執(zhí)行了下面程序后,組合框中數(shù)據(jù)項的值是( )
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間的某個值,BackStyle屬性設(shè)置為1
B)將 Shape控件的FillSte屬性設(shè)置為0或1,BackStyle屬性設(shè)置為1
C)將Shape控件的FillSte屬性設(shè)置為2至7間的某個值,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 事件過程中,寫入下面的程序:
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
運行程序后,顯示的結(jié)果是( )
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
運行程序后,顯示結(jié)果是( )
A)$$ ***$$$$***** B)*$$**$$***$$$****$$$$
C)**$$$****$$$$$ D)$*$$**$$$***$$$$****
33.在窗體上設(shè)置相應(yīng)的控件,并在代碼窗口編寫下列程序:
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,然后單擊"確定"按鈕,則輸出結(jié)果是( )
A)123456 B)654321 C)135246 D)246135
34.設(shè)定文本框內(nèi)的文字內(nèi)容是否允許修改的屬性是( )
A)Text B)Locked C)PasswordChar D)Multiline
35.要建立一個學(xué)生成績的隨機文件,如下定義了學(xué)生的記錄類型,由學(xué)號、姓名、三門課程成績(百分制)組成,下列程序段正確的是( )
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)在組合框中選擇書名后,則在兩個文本框中顯示出作者和出版社,程序運行后的界面如圖2-1所示,當(dāng)單擊“結(jié)束”按鈕時,結(jié)束程序。程序中有一個組合框、兩個文本框、三個標(biāo)簽及一個命令按鈕。請________處填入適當(dāng)?shù)膬?nèi)容,將程序補充完整。
Dim k As Integer
dim author(),b_concern
Privage Sub Combol_Click()
Dim n As Integer
n=Combol.ListIndex
Text(1)= ________
Text(2)= ________
End Sub
Private Sub Combol_Click()
________
End Sub
Private Sub Form_Load()
Combol.AddItem"哭泣的駱駝"
Combol.AddItem"雙城記"
Combol.AddItem"窗外"
Combol.AddItem"紅與黑"
Combol.AddItem"廢都"
author()=Array("三毛","荻更斯","瓊瑤","司湯達、"賈平凹")
b_concern()=Array("作家","商務(wù)","香江文藝","外國文學(xué)"、"上海")
End Sub
2.在窗體上畫一個名稱為Timer1的計時器和一個名稱為Label1的標(biāo)簽。當(dāng)運行程序后,將在標(biāo)簽中顯示當(dāng)前時間的數(shù)字時鐘(包括時:分:秒)。程序運行后的結(jié)果如圖2-2所示。請在________處填入適當(dāng)?shù)膬?nèi)容,將程序補充完整。
Private Sub Form_Load()
Timer1.Interval=1000
End Sub
Private Sub Timer1_timer()
________
End Sub
3.在剛建立工程時,使窗體上的所有控件具有區(qū)別于默認值的相同的字體格式,應(yīng)對________的________屬性進行設(shè)置。
4.整形變量M中存放了一個兩位數(shù),要將兩位數(shù)交換位置,例如24變成42,實現(xiàn)的表達式為________
5.下列程序運行時,當(dāng)單擊窗體后,從鍵盤輸入一個字符,判斷該字符是字母字符、數(shù)字字符還是其他字符,并做相應(yīng)的顯示。窗體上無任何控件,并禁用Asc和Chr函數(shù),Select Case 語句中禁用枚舉值。請在________處填入適當(dāng)?shù)膬?nèi)容,將程序補充完整。
Private Sub Form_Load()
Dim x As String*1
X=________(“請輸入單個字符”,“字符”)
Select Case UCase(________)
Case ________
Print X+“是字母字符”
Case ________
Print X+“是數(shù)字字符”
Case Else
Print X+“是其他字符”
End Select
End Sub
6.下列程序為求Sn=a+aa+aaa+……+aa…a(n個a),其中a為一個隨機數(shù)產(chǎn)生的1~9(包括1、9)中的一個正整數(shù),n是一個隨機數(shù)產(chǎn)生的5~10(包括5、10)中的一個正整數(shù),請在________處填入適當(dāng)?shù)膬?nèi)容,將程序補充完整。
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 ________
S=S+a*10^(i-1)
________
print Sn
Next i
End Sub
7.如果菜單標(biāo)題的某個字母前輸入一個“________”符號,那么該字母就成了熱鍵字母;如果建立菜單時在標(biāo)題文本框中輸入一個“________;_________”,那么顯示時將形成一行分隔符。 計算機等級考試二級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
二、填空題
1: author(n) ;b_concerm(n) ;End
2: Labell.Caption=Time
3: Form窗體 、 Font
4:((M mod 10)*10 + M\10)
5: InputBox; X"A"To"z" "0"To"9"
6: n;Sn = Sn + S
7: & 、 - 、 _
下列各題A)、B)、C)、D)四個選項中,只有一個選項是正確的,請將正確選項涂寫在答題卡相應(yīng)位置上,答在試卷上不得分。
1.當(dāng)運行程序時,系統(tǒng)自動執(zhí)行啟動窗體的某個事件過程。這個事件過程是( )
A)Load B)Click C)Unload D)GotFocus
2.無論何控件,都具有一個共同屬性。這個屬性是( )
A)Text B)Font C)Name D)Caption
3.在一行內(nèi)寫多條語句時,語句之間要用某個符號分隔。這個符號是( )
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.設(shè)有如下變量聲明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.若設(shè)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.當(dāng)窗體上的文字或圖形被覆蓋或小化后能恢復(fù)原貌,需要設(shè)置窗體的屬性是( )
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 12
11.Visual Basic是一種面向?qū)ο蟮某绦蛟O(shè)計語言,構(gòu)成對象的三要素是( )
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.下列程序段中,能正常結(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)后一個數(shù)據(jù)項應(yīng)使用的表達式是( )
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
運行時輸入出的結(jié)果是( )
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
程序運行后,單擊該命令按鈕,屏幕上顯示的結(jié)果是( )
A)2 B)1 C)0 D)16
18.以下屬性和方法中,可重定義坐標(biāo)系的是( )
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
上述程序的運行結(jié)果是( )
A)在文本框中輸出15 B)在文本框中輸出0
C)在文本框中輸出不定值 D)出錯 20.已知x代表某個百分制成績,下列程序段用于顯示對應(yīng)的五級制成績,正確的是( )
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.下面說法不正確的是( )
A)滾動條的重要事件是Change和Scroll
B)框架的主要作用是將控件進行分組,以完成各自相對獨立的功能
C)組合框是組合了文本框和列表框的特性而形成的一種控件
D)計時器控件可以通過對Visible屬性的設(shè)置,在程序運行期間顯示在窗體上
22.在窗體上畫一個名稱為Check1復(fù)選框,在程序運行的過程中,若選中復(fù)選框,則Check1.value的值是( )
A)True B)2 C)0 D)1
23.在下列關(guān)于菜單的說法中,錯誤的是( )
A)每一個菜單項都是一個控件,與其他控件一樣都有自己的屬性和事件
B)除了Click事件之外,菜單項還能響應(yīng)其他的如 DblClick等事件過程
C)菜單項的快捷鍵不可以任意設(shè)置
D)在程序執(zhí)行時,如果菜單項的Enabled屬性為False,則該菜單項變成灰色,不能被用戶選擇
27.下列關(guān)于過程敘述不正確的是( )
A)過程的傳值調(diào)用是將實參的具體值傳值遞給形參
B)過程的傳址調(diào)用是將實參在內(nèi)存的地址傳遞給形參
C)過程的傳值調(diào)用參數(shù)是單向傳遞的,過程的傳址調(diào)用參數(shù)是雙向傳遞的
D)無論過程傳值調(diào)用還是過程傳址調(diào)用,參數(shù)傳遞都是雙向的
28.執(zhí)行了下面程序后,組合框中數(shù)據(jù)項的值是( )
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間的某個值,BackStyle屬性設(shè)置為1
B)將 Shape控件的FillSte屬性設(shè)置為0或1,BackStyle屬性設(shè)置為1
C)將Shape控件的FillSte屬性設(shè)置為2至7間的某個值,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 事件過程中,寫入下面的程序:
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
運行程序后,顯示的結(jié)果是( )
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
運行程序后,顯示結(jié)果是( )
A)$$ ***$$$$***** B)*$$**$$***$$$****$$$$
C)**$$$****$$$$$ D)$*$$**$$$***$$$$****
33.在窗體上設(shè)置相應(yīng)的控件,并在代碼窗口編寫下列程序:
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,然后單擊"確定"按鈕,則輸出結(jié)果是( )
A)123456 B)654321 C)135246 D)246135
34.設(shè)定文本框內(nèi)的文字內(nèi)容是否允許修改的屬性是( )
A)Text B)Locked C)PasswordChar D)Multiline
35.要建立一個學(xué)生成績的隨機文件,如下定義了學(xué)生的記錄類型,由學(xué)號、姓名、三門課程成績(百分制)組成,下列程序段正確的是( )
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)在組合框中選擇書名后,則在兩個文本框中顯示出作者和出版社,程序運行后的界面如圖2-1所示,當(dāng)單擊“結(jié)束”按鈕時,結(jié)束程序。程序中有一個組合框、兩個文本框、三個標(biāo)簽及一個命令按鈕。請________處填入適當(dāng)?shù)膬?nèi)容,將程序補充完整。
Dim k As Integer
dim author(),b_concern
Privage Sub Combol_Click()
Dim n As Integer
n=Combol.ListIndex
Text(1)= ________
Text(2)= ________
End Sub
Private Sub Combol_Click()
________
End Sub
Private Sub Form_Load()
Combol.AddItem"哭泣的駱駝"
Combol.AddItem"雙城記"
Combol.AddItem"窗外"
Combol.AddItem"紅與黑"
Combol.AddItem"廢都"
author()=Array("三毛","荻更斯","瓊瑤","司湯達、"賈平凹")
b_concern()=Array("作家","商務(wù)","香江文藝","外國文學(xué)"、"上海")
End Sub
2.在窗體上畫一個名稱為Timer1的計時器和一個名稱為Label1的標(biāo)簽。當(dāng)運行程序后,將在標(biāo)簽中顯示當(dāng)前時間的數(shù)字時鐘(包括時:分:秒)。程序運行后的結(jié)果如圖2-2所示。請在________處填入適當(dāng)?shù)膬?nèi)容,將程序補充完整。
Private Sub Form_Load()
Timer1.Interval=1000
End Sub
Private Sub Timer1_timer()
________
End Sub
3.在剛建立工程時,使窗體上的所有控件具有區(qū)別于默認值的相同的字體格式,應(yīng)對________的________屬性進行設(shè)置。
4.整形變量M中存放了一個兩位數(shù),要將兩位數(shù)交換位置,例如24變成42,實現(xiàn)的表達式為________
5.下列程序運行時,當(dāng)單擊窗體后,從鍵盤輸入一個字符,判斷該字符是字母字符、數(shù)字字符還是其他字符,并做相應(yīng)的顯示。窗體上無任何控件,并禁用Asc和Chr函數(shù),Select Case 語句中禁用枚舉值。請在________處填入適當(dāng)?shù)膬?nèi)容,將程序補充完整。
Private Sub Form_Load()
Dim x As String*1
X=________(“請輸入單個字符”,“字符”)
Select Case UCase(________)
Case ________
Print X+“是字母字符”
Case ________
Print X+“是數(shù)字字符”
Case Else
Print X+“是其他字符”
End Select
End Sub
6.下列程序為求Sn=a+aa+aaa+……+aa…a(n個a),其中a為一個隨機數(shù)產(chǎn)生的1~9(包括1、9)中的一個正整數(shù),n是一個隨機數(shù)產(chǎn)生的5~10(包括5、10)中的一個正整數(shù),請在________處填入適當(dāng)?shù)膬?nèi)容,將程序補充完整。
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 ________
S=S+a*10^(i-1)
________
print Sn
Next i
End Sub
7.如果菜單標(biāo)題的某個字母前輸入一個“________”符號,那么該字母就成了熱鍵字母;如果建立菜單時在標(biāo)題文本框中輸入一個“________;_________”,那么顯示時將形成一行分隔符。 計算機等級考試二級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
二、填空題
1: author(n) ;b_concerm(n) ;End
2: Labell.Caption=Time
3: Form窗體 、 Font
4:((M mod 10)*10 + M\10)
5: InputBox; X"A"To"z" "0"To"9"
6: n;Sn = Sn + S
7: & 、 - 、 _