一、選擇題：35題，2分/題，共70分
下列各題A)、B)、C)、D)四個(gè)選項(xiàng)中，只有一個(gè)選項(xiàng)是正確的，請(qǐng)將正確選項(xiàng)涂寫在答題卡相應(yīng)位置上，答在試卷上不得分。
1.保存一個(gè)工程至少應(yīng)保存兩個(gè)文件，這兩個(gè)文件分別是（ ）
A)文本文件和工程文件
B)窗體文件和工程文件
C)窗體文件和標(biāo)準(zhǔn)模塊文件
D)類模塊文件和工程文件
分析:
2.當(dāng)對(duì)命令按鈕的Picture屬性裝入.bmp圖形文件后，命令按鈕上并沒有顯示所需的圖形，原因是沒有對(duì)某個(gè)屬性設(shè)置為1，該屬性是（ ）
A)MousePicture
B)Style
C)DownPicture
D)DisabledPicture
分析:
3.下面敘述正確的是（ ）
A)Spc函數(shù)既能用于Print方法中，也能用于表達(dá)式
B)Space函數(shù)既能用于Print方法中，也能用于表達(dá)式
C)Spc函數(shù)與Space函數(shù)均生成空格，沒有區(qū)別
D)以上說法均不對(duì)
分析:
4.假設(shè)變量bool_x是一個(gè)布爾型(邏輯型)的變量，則下面正確的賦值語句是（ ）
A)bool_x="False"
B)bool_x=.False.
C)bool_x=#False#
D)bool_x=False
分析:
5.要存放如下方陣的數(shù)據(jù)，在不浪費(fèi)存儲(chǔ)空間的基礎(chǔ)上，能實(shí)現(xiàn)聲明的語句是（ ）
1 2 3
2 4 6
3 6 9
A)Dim A(9) As Integer
B)Dim A(3,3) As Integer
C)Dim A(-1 to 1,-3 to -1) As Single
D)Dim A(-3 to -1,1 to 3) As Integer
分析:
6.下面子過程語句說明合法的是（ ）
A)Sub f1（ByVal n() As Integer）
B)Sub f1（n() As Integer）As Integer
C)Function f1（f1 As Integer） As Integer
D)Finction f1（ByVal n As Integer）
分析:
7.已知X>Y，A>B，正確表示它們之間關(guān)系的式子是（ ）
A)Sgn(Y-X)-sgn(A-B)<0
B)Sgn(Y-X)-Sgn(A-B)=-2
C)Sgn(Y-X)-Sgn(A-B)=0
D)Sgn(Y-X)-Sgn(A-B)=-1
分析:
8.設(shè)a=2,b=4,c=6，下列表達(dá)式的值為真的是（ ）
A)a>b And cB)a>b Or cC)a>b Xor cD)a>b Eqv c分析:
9.設(shè)S=“中華人民共和國”，表達(dá)式Left（S,1）+Right（S,1）+Mid（S,3,2）的值為（ ）
A) “中華民國”
B) “中國人民”
C) “中共人民”
D) “人民共和”
分析:
10.下列表達(dá)式的值為2123的是（ ）
A) Val("123asd") & 2000
B) Val("123asd") + 2000
C) Str(123) & "2000"
D)Str(123)+"2000"
分析:
11.下列敘述不正確的是（ ）
A)InputBox函數(shù)返回值為字符型
B)MsgBox函數(shù)返回值為所單擊按鈕的鍵值
C)MsgBox語句返回值為所單擊按鈕的鍵值
D)Shell函數(shù)返回值為所執(zhí)行文件的工作代碼
分析:
12.下列敘述不正確的是（ ）
A)命令按鈕的默認(rèn)屬性為Caption
B)標(biāo)簽的默主屬性為Caption
C)復(fù)選框的默認(rèn)屬性為value
D)滾動(dòng)條的默認(rèn)屬性為value
分析:
13.下列各程序段中，正確的是（ ）
A)If 10 < 10 Then a=a+10
B)If a> 10 Then a= a+1 Else a= a+ 5 End If
C)If a <=10 Then
a=a + 1
Else
End If
D)If a <=10 Then
a=a + 1
Else If a <=20 Then
a=a + 10
End If
分析:
14.在窗體上畫一個(gè)命令按鈕，名稱為Command1。然后編寫如下程序：
Private Sub Command1_Click()
For I= 1 to 2
For J=1 to I
Print String (I,"Hello");
Next J
Print
Next I
End Sub
程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是（ ）
A)H
HH
HHH
B)H
HHHH
C)HHHHH
D)H
HH
HHHH
分析:
15.為了使圖像框與圖片框的大小適應(yīng)圖片的大小 ，下邊屬性組設(shè)置正確的是（ ）
A)Autosize= Ture Stretch= True
B)Autosize= Ture Stretch= False
C)Autosize= False Stretch= True
D)Autosize= False Stretch= False
分析:
16.假設(shè) x的值為5，則在執(zhí)行以下語句時(shí)，其輸出結(jié)果為“OK”的Select case語句是（ ）
A)Select Case X
Case 10 to 1
Print "OK"
End Select
B)Select Case X
Case Is > 5,Is <5
Print "OK"
End Select
C)Select Case X
Case Is > 5,1,3 to 10
Print "OK"
End Select
D)Select Case X
Case 1,3 Is > 5
Print "OK"
End Select
分析:
17.有如下程序：
Private Sub Form_Click()
Dim check As Boolean, n As Integer
check=False
n= 0
Do
Do While n< 10
n=n + 1
If n= 5 Then
check=True
Exit Do
End If
Print n；
Loop
Loop Until check=True
End Sub
程序運(yùn)行后，輸出的結(jié)果是（ ）
A)1 2 3
B)1 2 3 4
C)1 2 3 4 5
D)1 2 3 4 5 6
分析:
18.在運(yùn)行階段，要在文本框Text1獲得焦點(diǎn)時(shí)選中文本框中所有內(nèi)容，對(duì)應(yīng)的事件過程是（ ）
A)Private Sub Text1_GotFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.text)
End Sub
B)Private Sub Text1_LostFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.text)
End Sub
C)Private Sub Text1_Change()
Text1.SelStart=0
Text1.SelLength=Len(Text1.text)
End Sub
D)Private Sub Text1_SetFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.text)
End Sub
分析:
19.有如程序（ ）
Private Sub From_Activate()
Dim a
a=Array(1 ,2 ,3, 4, 5)
For i=LBound(a) To UBound(a)
a(i)=i*a(i)
Next i
Print i,LBound(a),UBound(a),a(i)
End Sub
A)4 0 4 25
B)5 0 4 25
C)不確定
D)程序出錯(cuò)
分析:
20.在窗體上畫一個(gè)水平滾動(dòng)條，名稱為HScroll1;再畫一個(gè)文本框，名稱為Text1。要想使用滾動(dòng)條滑塊的變化量來調(diào)用文本框中文字的大小，則可滿足的語句是（ ）
A)Text1.FontName= HScroll1.Max
B)Text1.FontSize= HScroll1.Min
C)Text1.FontSize= HScroll1.value
D)Text1.FontBold= HScroll1.value
分析:
21.在下列程序中，無論使用鼠標(biāo)左鍵還是右鍵都能彈出菜單，且彈出菜單中的菜單項(xiàng)都響應(yīng)鼠標(biāo)單的是（ ）
A)Sub Form_MouseDown (Button As Integer,Shift As Integer, X As Single, Y As Single)
PopupMenu_test,1
End Sub
B)Sub Form_MouseDown (Button As Integer,Shift As Integer, X As Single, Y As Single)
PopupMenu_test,0
End Sub
C)Sub Form_MouseDown (Button As Integer,Shift As Integer, X As Single, Y As Single)
PopupMenu_test
End Sub
D)Sub Form_MouseDown (Button As Integer,Shift As Integer, X As Single, Y As Single)
PopupMenu_test,2
End Sub
分析:
22.假設(shè)在窗體上建立了一個(gè)通用對(duì)話框，其名稱為CommonDialog1，然后畫一個(gè)命令按鈕Command1,并編寫如下事件過程：
Private Sub Command1_Click()
CommonDialog1.Flags=4
CommonDialog1.Filter="all files(* . *)|* .*|text Files(* .Txt)|* .txt|Batch Filse(*.bat)|*.bat"
CommonDialog1.FilterIndex=1
CommonDialog1.ShowOpen
MsgBox CommonDialog1.FileName
End Sub
程序運(yùn)行后，單擊命令按鈕，將顯示一個(gè)“打開”對(duì)話框，此時(shí)在“文件類型”對(duì)話框中顯示的是（ ）
A)All Files(* . *)
B)Text Files(*. Txt)
C)Batch Files(.bat)
D)不確定
分析:
23.按文件的內(nèi)容劃分有（ ）
A)順序文件和隨機(jī)文件
B)ASCII文件和二進(jìn)制文件
C)程序文件和數(shù)據(jù)文件
D)磁盤文件和打印文件
分析:
24.有如下的程序：
Private Sub Form_Click()
Dim x As Integer, y As Integer
a= 8
b= 3
Call test(6 ,a b+1)
Print "主程序"，6，a, b
End Sub
Sub test (x As Integer, y, As Integer, z As Integer)
Print "子程序"，x,y,z
x = 2
y = 4
z = 9
End Sub
當(dāng)運(yùn)行程序后，顯示的結(jié)果是（ ）
A)子程序6 4 3
主程序6 8 4
B)主程序6 4 3
子程序6 8 4
C)主程序6 8 4
子程序6 4 3
D)子程序6 8 4
主程序6 4 3
分析:
25.Cls 方法可清除窗體或圖片框中的信息是（ ）
A)Picture屬性設(shè)置的背景圖案
B)在設(shè)計(jì)時(shí)放置的控件
C)程序運(yùn)行時(shí)產(chǎn)生的圖形和文字
D)以上方法都對(duì)
分析:
26.下列數(shù)組聲明正確的是（ ）
A)n=5
Dim a(1 to n) As Integer
B)Dim a(10) As Integer
ReDim a(1 to 12)
C)Dim a() As Single
ReDim a(3 ,4) As Integer
D)Dim a() As Integer
n=5
ReDim a(1 to n) As Integer
分析:
27.下列控件中，沒有Caption屬性的是（ ）
A)框架
B)列表框
C)復(fù)選框
D)單選按鈕
分析:
28.如下程序段定義了學(xué)生成績(jī)的記錄類型，由學(xué)號(hào)、姓名、三門課程成績(jī)(百分制)組成。
Type Stud
no As Integer
name As String * 10
score (1 to 3) As Single
End Type
若對(duì)某個(gè)學(xué)生的各數(shù)據(jù)項(xiàng)進(jìn)行賦值，下列程序段正確的是（ ）
A)Dim S As Stud
Stud.no =0201
Stud.name="李平"
Stud.score=78,88,96
B)Dim S As Stud
S.no =0201
S.name="李平"
S.score=78,88,96
C)Dim S As Stud
S.no =0201
S.name="李平"
S.score(1)=78
S.score(2)=88
S.score(3)=96
D)Dim S As Stud
Stud.no =0201
Stud.name="李平"
Stud.score(1)=78
Stud.score(2)=88
Stud.score(3)=96
分析:
29.如果Form1是啟動(dòng)窗體，并且Form1的Load事件過程中有Form2.Show，則程序啟動(dòng)后（ ）
A)發(fā)生一個(gè)運(yùn)行時(shí)錯(cuò)誤
B)發(fā)生一個(gè)編譯時(shí)錯(cuò)誤
C)在所有的初始化代碼運(yùn)行后Form1是活動(dòng)窗體
D)在所有的初始化代碼運(yùn)行后Form2是活動(dòng)窗體
分析:
30.如果列表框（List1）中沒有被選定的項(xiàng)目，則執(zhí)行List1.RemoveItem List1.ListIndex語句的結(jié)果是（ ）
A)移去第一項(xiàng)
B)移去后一項(xiàng)
C)移去后加入列表一項(xiàng)
D)以上都不對(duì)
分析:
31.如下程序，運(yùn)行的結(jié)果是（ ）
Private Sub Form_Click()
Dim m As Integer,i As Integer,x(10) As Integer
For i= 0 to 4
x(i)=i + 1
Next i
For i=1 to 2
Call proc(x)
Next i
For i= 0 to 4
Print x(i);
Next i
End Sub
Public Sub proc(a() As Integer)
Static i As Integer
Do
a(i)=a(i)+a(i+1)
i=i+1
Loop While i<2
End Sub
A)3 4 7 5 6
B)3 5 7 4 5
C)2 3 4 4 5
D)4 5 6 7 8
分析:
32.假設(shè)有以下程序段：
For I=1 to 3
For j=5 to 1 Step -1
Print I*j
Next j
Next I
則語句Print I*j的執(zhí)行次數(shù)I、j的值分別是（ ）
A)15 4 0
B)16 3 1
C)17 4 0
D)18 3 1
33.在窗體上一個(gè)文本框，其名稱為Text1,然后編寫如下事件過程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim str As String ,n As Integer
str = UCase (Chr(KeyAscii))
n=Len(str)
Text1=String(n, str)
End Sub
程序運(yùn)行后，如果在鍵盤上輸入單字母"K"，則在文本框Text1中顯示的內(nèi)容為（ ）
A)kk
B)kK
C)KK
D)Kk
34.下列敘述不正確的是（ ）
A)驅(qū)動(dòng)器列表框是一種能顯示系統(tǒng)中所有有效磁盤驅(qū)動(dòng)器的列表框
B)驅(qū)動(dòng)器列表框的Drive屬性只能在運(yùn)行時(shí)被設(shè)置
C)從驅(qū)動(dòng)器列表框中選擇驅(qū)動(dòng)器能自動(dòng)變更系統(tǒng)當(dāng)前的工作驅(qū)動(dòng)器
D)要改變系統(tǒng)當(dāng)前的工作驅(qū)動(dòng)器需要使用ChDrive語句
35.窗體上有Text1、Text2兩個(gè)文本框及一個(gè)命令按鈕Command1,編寫下列程序：
Dim y As Integer
Private Sub Command1_Click()
Dim x As Integer
x=2
Text1.Text= p2(p1(x),y)
Text2.Text= p1(x)
End Sub
Privage Function P1(x As Integer) As Integer
x =x+y:y=x+y
P1=x+y
End Function
Private Function P2(x As Integer, y As Integer) As Integer
P2= 2*x+y
End Function
當(dāng)單擊1 次和單擊2次命令按鈕后，文本框Text1和Text2內(nèi)的值分別是（ ）
A)2 4
2 4
B)2 4
4 8
C)10 10
58 58
D)4 4
8 8
二、填空：每空2分，共30分。
1.在窗體上畫一個(gè)命令按鈕，名稱為Command1,Caption屬性設(shè)置為“確定”，畫3個(gè)標(biāo)簽Label1、Label2和Label3，在label1中輸入“這是一個(gè)絕對(duì)值的程序”，在Label2中輸入“請(qǐng)輸入x的值”，Label3將輸出本題 結(jié)果，再畫一個(gè)文體框，名稱為Textl,用于輸入x的值。當(dāng)在文本框Textl輸入一個(gè)負(fù)數(shù)，然后“確定”按鈕，則在標(biāo)簽Label3中將輸出該數(shù)的絕對(duì)值及信息，程序有運(yùn)行情況如圖2-3所示。請(qǐng)?jiān)赱1]和[2]處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。（要求不用取絕對(duì)值函數(shù)）
Private Sub Commandl_Click()
Dim x As Single
x=Val(Text1.Text)
Label3.Caption="x=&x
If x<0 Then[1]
Label3.Caption=[2]+", x的絕對(duì)值是" &x
End Sub
2.用單循環(huán)實(shí)現(xiàn)如圖2-4所示圖案。請(qǐng)?jiān)赱3]和[4]處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。
Private Sub Form_Click（）
For i =1 To 10
Print Tab(15 -i);String([3],[4](i,1))
Next i
End Sub
3.下面是一個(gè)歌手大賽評(píng)分程序。10位評(píng)委，除去一個(gè)高分和一個(gè)低分，計(jì)算平均分(設(shè)滿分為10分)。請(qǐng)?jiān)赱5]、[6]、和[7]處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。
Private Sub Form_Click()
Max= 0
Min= 10
For i = 1 To 10
x=Val(InputBox("請(qǐng)輸入分?jǐn)?shù)"))
If [5] Then Max=x
If [6] Then Min=x
s =s + x
Next i
s = [7]
p = s/8
Print "高分"；Max,"低分"；Min
Print "后得分"；p
End Sub
4.窗體和控件名稱如圖2-5所示，當(dāng)“電視機(jī)”和“付款方式”未被選定時(shí)，它們所在框架的控件不能使用，如果單擊“確定”按鈕，則在下面的標(biāo)簽中顯示用戶所選擇的信息。請(qǐng)?jiān)赱8]、[9]、[10]和[11]處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。
Private Sub Form__[8]
Combo1.Enabled =False
Textl.Enabled =False
End Sub
Private Sub Check2__Click()
Option1.Enabled = False
Option2.Enabled =False
End Sub
Private Sub [9]
Combo1,Enabled = Not Combo1.Enabled
Textl.Enabled = Not Text1.Enabled
Option1.Enabled= Not Option1.Enabled
Option2.Enabled= Not Option2.Enabled
End Sub
Private Sub Commandl_Click()
If Check1.value = 1 Then
Label1.Caption =Label1.Caption & [10] &vbCrlf
Label1.Caption = Label1.Caption & [11] & vbClf
End If
If Check2.value=1 Then
If Option1.value = True Then
Label1.Caption=Label1.Caption&"現(xiàn)金付款"&vbCrLf
Else
Label1.Caption=Label1.Caption&"轉(zhuǎn)帳付款"&vbCrLf
End If
End If
End Sub
注：vbCrLf為回車符。
5.組合框是組合了文本框和列表框的特性而組成的一種控件。[12]風(fēng)格的組合框不允用戶輸入列表框中沒有的項(xiàng)。
6.在Visual Basic中，除了可以指定某個(gè)窗體作為啟動(dòng)對(duì)象外，還可以指定[13]為啟動(dòng)對(duì)象。
7.Visual Basic 提供了三種控件，即[14]、[15]和可插入對(duì)象。二級(jí)VB模擬試卷(二)參考答案
一、(1)B (2)B (3)B (4)D (5)D (6)D (7)B (8)D (9)B (10)B (11)C (12)A (13)C (14)B (15)B (16)C
(17)B (18)A (19)D (20)C (21)D (22)A (23)C (24)D (25)C (26)D (27)B (28)C (29)C (30)D
(31)B (32)A (33)B (34)C (35)C
分析:
二、[1]x=-x [2]Label3.Caption [3]2*i-l [4]Right [5]x>Max [6]x [9]Checkl_Click() [10]Combol.Text [11]Textl.Text [12]下拉式列表框
[13]Main子過程 [14]標(biāo)準(zhǔn)控件（內(nèi)部控件） [15]ActiveX控件
下列各題A)、B)、C)、D)四個(gè)選項(xiàng)中，只有一個(gè)選項(xiàng)是正確的，請(qǐng)將正確選項(xiàng)涂寫在答題卡相應(yīng)位置上，答在試卷上不得分。
1.保存一個(gè)工程至少應(yīng)保存兩個(gè)文件，這兩個(gè)文件分別是（ ）
A)文本文件和工程文件
B)窗體文件和工程文件
C)窗體文件和標(biāo)準(zhǔn)模塊文件
D)類模塊文件和工程文件
分析:
2.當(dāng)對(duì)命令按鈕的Picture屬性裝入.bmp圖形文件后，命令按鈕上并沒有顯示所需的圖形，原因是沒有對(duì)某個(gè)屬性設(shè)置為1，該屬性是（ ）
A)MousePicture
B)Style
C)DownPicture
D)DisabledPicture
分析:
3.下面敘述正確的是（ ）
A)Spc函數(shù)既能用于Print方法中，也能用于表達(dá)式
B)Space函數(shù)既能用于Print方法中，也能用于表達(dá)式
C)Spc函數(shù)與Space函數(shù)均生成空格，沒有區(qū)別
D)以上說法均不對(duì)
分析:
4.假設(shè)變量bool_x是一個(gè)布爾型(邏輯型)的變量，則下面正確的賦值語句是（ ）
A)bool_x="False"
B)bool_x=.False.
C)bool_x=#False#
D)bool_x=False
分析:
5.要存放如下方陣的數(shù)據(jù)，在不浪費(fèi)存儲(chǔ)空間的基礎(chǔ)上，能實(shí)現(xiàn)聲明的語句是（ ）
1 2 3
2 4 6
3 6 9
A)Dim A(9) As Integer
B)Dim A(3,3) As Integer
C)Dim A(-1 to 1,-3 to -1) As Single
D)Dim A(-3 to -1,1 to 3) As Integer
分析:
6.下面子過程語句說明合法的是（ ）
A)Sub f1（ByVal n() As Integer）
B)Sub f1（n() As Integer）As Integer
C)Function f1（f1 As Integer） As Integer
D)Finction f1（ByVal n As Integer）
分析:
7.已知X>Y，A>B，正確表示它們之間關(guān)系的式子是（ ）
A)Sgn(Y-X)-sgn(A-B)<0
B)Sgn(Y-X)-Sgn(A-B)=-2
C)Sgn(Y-X)-Sgn(A-B)=0
D)Sgn(Y-X)-Sgn(A-B)=-1
分析:
8.設(shè)a=2,b=4,c=6，下列表達(dá)式的值為真的是（ ）
A)a>b And cB)a>b Or cC)a>b Xor cD)a>b Eqv c分析:
9.設(shè)S=“中華人民共和國”，表達(dá)式Left（S,1）+Right（S,1）+Mid（S,3,2）的值為（ ）
A) “中華民國”
B) “中國人民”
C) “中共人民”
D) “人民共和”
分析:
10.下列表達(dá)式的值為2123的是（ ）
A) Val("123asd") & 2000
B) Val("123asd") + 2000
C) Str(123) & "2000"
D)Str(123)+"2000"
分析:
11.下列敘述不正確的是（ ）
A)InputBox函數(shù)返回值為字符型
B)MsgBox函數(shù)返回值為所單擊按鈕的鍵值
C)MsgBox語句返回值為所單擊按鈕的鍵值
D)Shell函數(shù)返回值為所執(zhí)行文件的工作代碼
分析:
12.下列敘述不正確的是（ ）
A)命令按鈕的默認(rèn)屬性為Caption
B)標(biāo)簽的默主屬性為Caption
C)復(fù)選框的默認(rèn)屬性為value
D)滾動(dòng)條的默認(rèn)屬性為value
分析:
13.下列各程序段中，正確的是（ ）
A)If 10 < 10 Then a=a+10
B)If a> 10 Then a= a+1 Else a= a+ 5 End If
C)If a <=10 Then
a=a + 1
Else
End If
D)If a <=10 Then
a=a + 1
Else If a <=20 Then
a=a + 10
End If
分析:
14.在窗體上畫一個(gè)命令按鈕，名稱為Command1。然后編寫如下程序：
Private Sub Command1_Click()
For I= 1 to 2
For J=1 to I
Print String (I,"Hello");
Next J
Next I
End Sub
程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是（ ）
A)H
HH
HHH
B)H
HHHH
C)HHHHH
D)H
HH
HHHH
分析:
15.為了使圖像框與圖片框的大小適應(yīng)圖片的大小 ，下邊屬性組設(shè)置正確的是（ ）
A)Autosize= Ture Stretch= True
B)Autosize= Ture Stretch= False
C)Autosize= False Stretch= True
D)Autosize= False Stretch= False
分析:
16.假設(shè) x的值為5，則在執(zhí)行以下語句時(shí)，其輸出結(jié)果為“OK”的Select case語句是（ ）
A)Select Case X
Case 10 to 1
Print "OK"
End Select
B)Select Case X
Case Is > 5,Is <5
Print "OK"
End Select
C)Select Case X
Case Is > 5,1,3 to 10
Print "OK"
End Select
D)Select Case X
Case 1,3 Is > 5
Print "OK"
End Select
分析:
17.有如下程序：
Private Sub Form_Click()
Dim check As Boolean, n As Integer
check=False
n= 0
Do
Do While n< 10
n=n + 1
If n= 5 Then
check=True
Exit Do
End If
Print n；
Loop
Loop Until check=True
End Sub
程序運(yùn)行后，輸出的結(jié)果是（ ）
A)1 2 3
B)1 2 3 4
C)1 2 3 4 5
D)1 2 3 4 5 6
分析:
18.在運(yùn)行階段，要在文本框Text1獲得焦點(diǎn)時(shí)選中文本框中所有內(nèi)容，對(duì)應(yīng)的事件過程是（ ）
A)Private Sub Text1_GotFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.text)
End Sub
B)Private Sub Text1_LostFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.text)
End Sub
C)Private Sub Text1_Change()
Text1.SelStart=0
Text1.SelLength=Len(Text1.text)
End Sub
D)Private Sub Text1_SetFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.text)
End Sub
分析:
19.有如程序（ ）
Private Sub From_Activate()
Dim a
a=Array(1 ,2 ,3, 4, 5)
For i=LBound(a) To UBound(a)
a(i)=i*a(i)
Next i
Print i,LBound(a),UBound(a),a(i)
End Sub
A)4 0 4 25
B)5 0 4 25
C)不確定
D)程序出錯(cuò)
分析:
20.在窗體上畫一個(gè)水平滾動(dòng)條，名稱為HScroll1;再畫一個(gè)文本框，名稱為Text1。要想使用滾動(dòng)條滑塊的變化量來調(diào)用文本框中文字的大小，則可滿足的語句是（ ）
A)Text1.FontName= HScroll1.Max
B)Text1.FontSize= HScroll1.Min
C)Text1.FontSize= HScroll1.value
D)Text1.FontBold= HScroll1.value
分析:
21.在下列程序中，無論使用鼠標(biāo)左鍵還是右鍵都能彈出菜單，且彈出菜單中的菜單項(xiàng)都響應(yīng)鼠標(biāo)單的是（ ）
A)Sub Form_MouseDown (Button As Integer,Shift As Integer, X As Single, Y As Single)
PopupMenu_test,1
End Sub
B)Sub Form_MouseDown (Button As Integer,Shift As Integer, X As Single, Y As Single)
PopupMenu_test,0
End Sub
C)Sub Form_MouseDown (Button As Integer,Shift As Integer, X As Single, Y As Single)
PopupMenu_test
End Sub
D)Sub Form_MouseDown (Button As Integer,Shift As Integer, X As Single, Y As Single)
PopupMenu_test,2
End Sub
分析:
22.假設(shè)在窗體上建立了一個(gè)通用對(duì)話框，其名稱為CommonDialog1，然后畫一個(gè)命令按鈕Command1,并編寫如下事件過程：
Private Sub Command1_Click()
CommonDialog1.Flags=4
CommonDialog1.Filter="all files(* . *)|* .*|text Files(* .Txt)|* .txt|Batch Filse(*.bat)|*.bat"
CommonDialog1.FilterIndex=1
CommonDialog1.ShowOpen
MsgBox CommonDialog1.FileName
End Sub
程序運(yùn)行后，單擊命令按鈕，將顯示一個(gè)“打開”對(duì)話框，此時(shí)在“文件類型”對(duì)話框中顯示的是（ ）
A)All Files(* . *)
B)Text Files(*. Txt)
C)Batch Files(.bat)
D)不確定
分析:
23.按文件的內(nèi)容劃分有（ ）
A)順序文件和隨機(jī)文件
B)ASCII文件和二進(jìn)制文件
C)程序文件和數(shù)據(jù)文件
D)磁盤文件和打印文件
分析:
24.有如下的程序：
Private Sub Form_Click()
Dim x As Integer, y As Integer
a= 8
b= 3
Call test(6 ,a b+1)
Print "主程序"，6，a, b
End Sub
Sub test (x As Integer, y, As Integer, z As Integer)
Print "子程序"，x,y,z
x = 2
y = 4
z = 9
End Sub
當(dāng)運(yùn)行程序后，顯示的結(jié)果是（ ）
A)子程序6 4 3
主程序6 8 4
B)主程序6 4 3
子程序6 8 4
C)主程序6 8 4
子程序6 4 3
D)子程序6 8 4
主程序6 4 3
分析:
25.Cls 方法可清除窗體或圖片框中的信息是（ ）
A)Picture屬性設(shè)置的背景圖案
B)在設(shè)計(jì)時(shí)放置的控件
C)程序運(yùn)行時(shí)產(chǎn)生的圖形和文字
D)以上方法都對(duì)
分析:
26.下列數(shù)組聲明正確的是（ ）
A)n=5
Dim a(1 to n) As Integer
B)Dim a(10) As Integer
ReDim a(1 to 12)
C)Dim a() As Single
ReDim a(3 ,4) As Integer
D)Dim a() As Integer
n=5
ReDim a(1 to n) As Integer
分析:
27.下列控件中，沒有Caption屬性的是（ ）
A)框架
B)列表框
C)復(fù)選框
D)單選按鈕
分析:
28.如下程序段定義了學(xué)生成績(jī)的記錄類型，由學(xué)號(hào)、姓名、三門課程成績(jī)(百分制)組成。
Type Stud
no As Integer
name As String * 10
score (1 to 3) As Single
End Type
若對(duì)某個(gè)學(xué)生的各數(shù)據(jù)項(xiàng)進(jìn)行賦值，下列程序段正確的是（ ）
A)Dim S As Stud
Stud.no =0201
Stud.name="李平"
Stud.score=78,88,96
B)Dim S As Stud
S.no =0201
S.name="李平"
S.score=78,88,96
C)Dim S As Stud
S.no =0201
S.name="李平"
S.score(1)=78
S.score(2)=88
S.score(3)=96
D)Dim S As Stud
Stud.no =0201
Stud.name="李平"
Stud.score(1)=78
Stud.score(2)=88
Stud.score(3)=96
分析:
29.如果Form1是啟動(dòng)窗體，并且Form1的Load事件過程中有Form2.Show，則程序啟動(dòng)后（ ）
A)發(fā)生一個(gè)運(yùn)行時(shí)錯(cuò)誤
B)發(fā)生一個(gè)編譯時(shí)錯(cuò)誤
C)在所有的初始化代碼運(yùn)行后Form1是活動(dòng)窗體
D)在所有的初始化代碼運(yùn)行后Form2是活動(dòng)窗體
分析:
30.如果列表框（List1）中沒有被選定的項(xiàng)目，則執(zhí)行List1.RemoveItem List1.ListIndex語句的結(jié)果是（ ）
A)移去第一項(xiàng)
B)移去后一項(xiàng)
C)移去后加入列表一項(xiàng)
D)以上都不對(duì)
分析:
31.如下程序，運(yùn)行的結(jié)果是（ ）
Private Sub Form_Click()
Dim m As Integer,i As Integer,x(10) As Integer
For i= 0 to 4
x(i)=i + 1
Next i
For i=1 to 2
Call proc(x)
Next i
For i= 0 to 4
Print x(i);
Next i
End Sub
Public Sub proc(a() As Integer)
Static i As Integer
Do
a(i)=a(i)+a(i+1)
i=i+1
Loop While i<2
End Sub
A)3 4 7 5 6
B)3 5 7 4 5
C)2 3 4 4 5
D)4 5 6 7 8
分析:
32.假設(shè)有以下程序段：
For I=1 to 3
For j=5 to 1 Step -1
Print I*j
Next j
Next I
則語句Print I*j的執(zhí)行次數(shù)I、j的值分別是（ ）
A)15 4 0
B)16 3 1
C)17 4 0
D)18 3 1
33.在窗體上一個(gè)文本框，其名稱為Text1,然后編寫如下事件過程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim str As String ,n As Integer
str = UCase (Chr(KeyAscii))
n=Len(str)
Text1=String(n, str)
End Sub
程序運(yùn)行后，如果在鍵盤上輸入單字母"K"，則在文本框Text1中顯示的內(nèi)容為（ ）
A)kk
B)kK
C)KK
D)Kk
34.下列敘述不正確的是（ ）
A)驅(qū)動(dòng)器列表框是一種能顯示系統(tǒng)中所有有效磁盤驅(qū)動(dòng)器的列表框
B)驅(qū)動(dòng)器列表框的Drive屬性只能在運(yùn)行時(shí)被設(shè)置
C)從驅(qū)動(dòng)器列表框中選擇驅(qū)動(dòng)器能自動(dòng)變更系統(tǒng)當(dāng)前的工作驅(qū)動(dòng)器
D)要改變系統(tǒng)當(dāng)前的工作驅(qū)動(dòng)器需要使用ChDrive語句
35.窗體上有Text1、Text2兩個(gè)文本框及一個(gè)命令按鈕Command1,編寫下列程序：
Dim y As Integer
Private Sub Command1_Click()
Dim x As Integer
x=2
Text1.Text= p2(p1(x),y)
Text2.Text= p1(x)
End Sub
Privage Function P1(x As Integer) As Integer
x =x+y:y=x+y
P1=x+y
End Function
Private Function P2(x As Integer, y As Integer) As Integer
P2= 2*x+y
End Function
當(dāng)單擊1 次和單擊2次命令按鈕后，文本框Text1和Text2內(nèi)的值分別是（ ）
A)2 4
2 4
B)2 4
4 8
C)10 10
58 58
D)4 4
8 8
二、填空：每空2分，共30分。
1.在窗體上畫一個(gè)命令按鈕，名稱為Command1,Caption屬性設(shè)置為“確定”，畫3個(gè)標(biāo)簽Label1、Label2和Label3，在label1中輸入“這是一個(gè)絕對(duì)值的程序”，在Label2中輸入“請(qǐng)輸入x的值”，Label3將輸出本題 結(jié)果，再畫一個(gè)文體框，名稱為Textl,用于輸入x的值。當(dāng)在文本框Textl輸入一個(gè)負(fù)數(shù)，然后“確定”按鈕，則在標(biāo)簽Label3中將輸出該數(shù)的絕對(duì)值及信息，程序有運(yùn)行情況如圖2-3所示。請(qǐng)?jiān)赱1]和[2]處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。（要求不用取絕對(duì)值函數(shù)）
Private Sub Commandl_Click()
Dim x As Single
x=Val(Text1.Text)
Label3.Caption="x=&x
If x<0 Then[1]
Label3.Caption=[2]+", x的絕對(duì)值是" &x
End Sub
2.用單循環(huán)實(shí)現(xiàn)如圖2-4所示圖案。請(qǐng)?jiān)赱3]和[4]處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。
Private Sub Form_Click（）
For i =1 To 10
Print Tab(15 -i);String([3],[4](i,1))
Next i
End Sub
3.下面是一個(gè)歌手大賽評(píng)分程序。10位評(píng)委，除去一個(gè)高分和一個(gè)低分，計(jì)算平均分(設(shè)滿分為10分)。請(qǐng)?jiān)赱5]、[6]、和[7]處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。
Private Sub Form_Click()
Max= 0
Min= 10
For i = 1 To 10
x=Val(InputBox("請(qǐng)輸入分?jǐn)?shù)"))
If [5] Then Max=x
If [6] Then Min=x
s =s + x
Next i
s = [7]
p = s/8
Print "高分"；Max,"低分"；Min
Print "后得分"；p
End Sub
4.窗體和控件名稱如圖2-5所示，當(dāng)“電視機(jī)”和“付款方式”未被選定時(shí)，它們所在框架的控件不能使用，如果單擊“確定”按鈕，則在下面的標(biāo)簽中顯示用戶所選擇的信息。請(qǐng)?jiān)赱8]、[9]、[10]和[11]處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。
Private Sub Form__[8]
Combo1.Enabled =False
Textl.Enabled =False
End Sub
Private Sub Check2__Click()
Option1.Enabled = False
Option2.Enabled =False
End Sub
Private Sub [9]
Combo1,Enabled = Not Combo1.Enabled
Textl.Enabled = Not Text1.Enabled
Option1.Enabled= Not Option1.Enabled
Option2.Enabled= Not Option2.Enabled
End Sub
Private Sub Commandl_Click()
If Check1.value = 1 Then
Label1.Caption =Label1.Caption & [10] &vbCrlf
Label1.Caption = Label1.Caption & [11] & vbClf
End If
If Check2.value=1 Then
If Option1.value = True Then
Label1.Caption=Label1.Caption&"現(xiàn)金付款"&vbCrLf
Else
Label1.Caption=Label1.Caption&"轉(zhuǎn)帳付款"&vbCrLf
End If
End If
End Sub
注：vbCrLf為回車符。
5.組合框是組合了文本框和列表框的特性而組成的一種控件。[12]風(fēng)格的組合框不允用戶輸入列表框中沒有的項(xiàng)。
6.在Visual Basic中，除了可以指定某個(gè)窗體作為啟動(dòng)對(duì)象外，還可以指定[13]為啟動(dòng)對(duì)象。
7.Visual Basic 提供了三種控件，即[14]、[15]和可插入對(duì)象。二級(jí)VB模擬試卷(二)參考答案
一、(1)B (2)B (3)B (4)D (5)D (6)D (7)B (8)D (9)B (10)B (11)C (12)A (13)C (14)B (15)B (16)C
(17)B (18)A (19)D (20)C (21)D (22)A (23)C (24)D (25)C (26)D (27)B (28)C (29)C (30)D
(31)B (32)A (33)B (34)C (35)C
分析:
二、[1]x=-x [2]Label3.Caption [3]2*i-l [4]Right [5]x>Max [6]x
[13]Main子過程 [14]標(biāo)準(zhǔn)控件（內(nèi)部控件） [15]ActiveX控件