第一篇：2005年4月二級VB筆試試題
無憂考網(wǎng)
004km.cnmand1的命令按鈕，然后編寫一個事件過程。程序運行以后，如果在文本框中輸入一個字符，則把命令按鈕的標(biāo)題設(shè)置為“計算機等級考試”。以下能實現(xiàn)上述操作的事件過程是：
A)Private Sub Text1_Change()
Command1.Caption=”計算機等級考試”
End Sub
B)Private Sub Command1_Click()
Caption=”計算機等級考試”
End Sub
C)Private Sub Form1_Click()
Text1.Caption=”計算機等級考試”
End Sub
D)Private Sub Command1_Click()
Text1.Text=”計算機等級考試”
End Sub
(12)設(shè)a=5,b=4,c=3,d=2，下列表達(dá)式的值是 3>2*b Or a=c And b<>c Or c>d
A)1
B)True
C)False
D)2
(13)設(shè)a=”MicrosoftVisualBasic”, 則以下使變量b的值為”VisualBasic”的語句是
A)b=Left(a,10)
B)b=Mid(a,10)
C)b=Right(a,10)
D)b=Mid(a,11,10)
(14)假定有如下的窗體事件過程：
Private Sub Form_Click()
a$ = “Microsoft Visual Basic”
b$ = Right(a$, 5)
c = Mid(a$, 1, 9)
MsgBox a$, 34, b$, c$, 5
End Sub
程序運行后單擊窗體，則在彈出的信息框中的標(biāo)題欄中顯示的信息是：
A)Microsoft Visual
B)Microsoft
C)Basic
D)5
無憂考網(wǎng)
004km.cnmand1)右移200，應(yīng)使用的語句是
A)Command1.Move-200
B)Command1.Move 200
C)Command1.Left= Command1.Left+200
D)Command1.Left= Command1.Left-200
(17)在窗體上畫一個文本框，然后編寫如下事件過程：
Private Sub Form_Click()
x = InputBox(“請輸入一個整數(shù)”)
Print x + Text1.Text
End Sub
程序運行時，在文本框中輸入456，然后單擊窗體，在輸入對話框中輸入123，單擊“確定”按鈕后，在窗體上顯示的內(nèi)容是：
A)12
3B)456
C)579
D)123456
（18）在窗體上畫一個文本框和一個計時器控件，名稱分別為Text1和Timer1,在屬性窗口中把計時器的Interval屬性設(shè)置為1000，Enabled屬性設(shè)置為False,程序運行后，如果單擊命令按鈕，則每隔一秒鐘在文本框中顯示一次當(dāng)前的時間。以下是實現(xiàn)上述操作的程序：
Private Sub Command1_Click()
Timer1._________
End Sub Private Sub Timer1_Timer()Text1.Text = Time End Sub 在______處應(yīng)填入的內(nèi)容是
A)Enabled=True
B)Enabled=False
C)Visible=True
D)Visible=False
(19)假定在圖片框Picture1中裝入了一個圖形，為了清除該圖形（不刪除圖片框），應(yīng)采用的正確方法是：
A)選擇圖片框，然后按Del鍵
B)執(zhí)行語句Picture1.Picture=LoadPicture(“”)
C)執(zhí)行語句Picture1.Picture=””
D)選擇圖片框，在屬性窗口中選擇Picture屬性，然后按回車鍵
（20）在窗體上畫一個List1的列表框，一個名稱為Label1的標(biāo)簽，列表框中顯示若干個項目，當(dāng)單擊列表框中的某個項目時，在標(biāo)簽中顯示被選中的項目的名稱，下列能正確實現(xiàn)上述操作的程序是
A)Private Sub List1_Click()
Label1.Caption = List1.ListIndex
End Sub
B)Private Sub List1_Click()
Label1.Name = List1.ListIndex
End Sub
C)Private Sub List1_Click()
Label1.Name = List1.Text
End Sub
D)Private Sub List1_Click()
Label1.Caption = List1.Text
End Sub
（21）在窗體上畫一個命令按鈕，名稱為Command1，然后編寫如下事件過程：
Private Sub Command1_Click()
無憂考網(wǎng)
004km.cnmand1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
c = “ABCD”
For n = 1 To 4
Print _________
Next
End Sub
程序運行后，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容：
D
CD
BCD
ABCD
則在________處應(yīng)填入的內(nèi)容為
A)Left(c,n)
B)Right(c,n)
C)Mid(c,n,1)
D)Mid(c,n,n)
(23)執(zhí)行以下程序段
Dim x As Integer, i As Integer
x=0
For i = 20 To 1 Step-2
x = x + i 5
Next I
后，x的值為
A)16
B)17
C)18
D)19
（24）在Visual Basic工程中，可以作為啟動對象的程序是
A)任何窗體或標(biāo)準(zhǔn)模塊
B)任何窗體或過程
C)Sub Main過程或其他任何模塊
D)Sub Main過程或任何窗體
無憂考網(wǎng)
004km.cnmand1的命令按鈕數(shù)組，則以下說法中錯誤的是
A)數(shù)組中每個命令按鈕的名稱(名稱屬性)均為Command1 B)數(shù)組中每個命令按鈕的標(biāo)題(Caption屬性)都一樣 C)數(shù)組中所有命令按鈕可以使用同一個時間過程
D)用名稱Command1(下標(biāo))可以訪問數(shù)組中的每個命令按鈕
(26)把窗體的KeyPreview屬性設(shè)置為True,然后編寫如下事件過程:
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr(KeyAscii)
KeyAscii = Asc(UCase(ch))
Print Chr(KeyAscii + 2)
End Sub
程序運行后,按鍵盤上的”A”鍵,則在窗體上顯示的內(nèi)容是
A)A
B)B
C)C
D)D
(27)在窗體上畫一個命令按鈕和一個文本框,名稱分別為Command1和Text1,然后編寫如下程序:
Private Sub Command1_Click()
a = InputBox(“請輸入日期(1~31)”)
t = “旅游景點:” _
& IIf(a > 0 And a <= 10, “長城”, “")_
& IIf(a > 10 And a <= 20, ”故宮“, ”“)_
& IIf(a > 20 And a <= 30, ”頤和園“, ”“)
Text1.Text = t
End Sub
程序運行后,如果從鍵盤輸入16,則在文本框中顯示的內(nèi)容是:
A)旅游景點：長城故宮
B)旅游景點：長城頤和園
C)旅游景點：頤和園
D)旅游景點：故宮
(28)在窗體上畫一個名稱為Label1的標(biāo)簽,然后編寫如下事件過程:
Private Sub Form_Click()
Dim arr(10, 10)As Integer
Dim i As Integer, j As Integer
For i = 2 To 4
For j = 2 To 4
arr(i, j)= i * j
Next j
Next i
Label1.Caption = Str(arr(2, 2)+ arr(3, 3))
End Sub
程序運行后,單擊窗體,在標(biāo)簽中顯示的內(nèi)容是
無憂考網(wǎng)
004km.cnamnd1的命令按鈕,然后編寫如下通用過程和命令按鈕的事件過程:
Private Function fun(ByVal m As Integer)
If m Mod 2 = 0 Then
fun = 2
Else
fun = 1
End If
End Function
Private Sub Command1_Click()
Dim i As Integer, s As Integer
s = 0
For i = 1 To 5
s = s + fun(i)
Next
Print s
End Sub
程序運行后,單擊命令按鈕,則窗體上顯示的是:
A)6
B)7
C)8
D)9
(30)閱讀程序:
Option Base 1
Dim arr()As Integer
Private Sub Form_Click()
Dim i As Integer, j As Integer
ReDim arr(3, 2)
For i = 1 To 3
For j = 1 To 2
arr(i, j)= i * 2 + j
Next j
Next i
ReDim Preserve arr(3, 4)
For j = 3 To 4
arr(3, j)= j + 9
Next j
Print arr(3, 2)+ arr(3, 4)
無憂考網(wǎng)
004km.cnmand1的命令按鈕,然后編寫如下程序:
Option Base 1
Private Sub Command1_Click()
Dim c As Integer, d As Integer
d = 0
c = 6
x = Array(2, 4, 6, 8, 10, 12)
For i = 1 To 6
If x(i)> c Then
d = d + x(i)
c = x(i)
Else
d = d1
Loop While n > 0
Print s
End Sub
以上程序的功能是【10】,程序運行后,單擊窗體,輸出結(jié)果為【11】
(10)設(shè)有如下程序:
Option Base 1
Private Sub Command1_Click()
Dim arr1
Dim Min As Integer, i As Integer
arr1 = Array(12, 435, 76,-24, 78, 54, 866, 43)
Min = 【12】
For i = 2 To 8
If arr1(i)< Min Then 【13】
Next i
Print ”最小值是:“;Min
End Sub
以上程序的功能是用Array函數(shù)建立一個含有8個元素的數(shù)組,然后查找并輸出該數(shù)組中的最小值,請?zhí)羁?/p>
(11)在名稱為Form1的窗體上畫一個文本框,其名稱為Text1,在屬性窗口中把文本框的MultiLine屬性設(shè)置為True,然后編寫如下事件過程:
Private Sub Form_Click()
Open ”d:testsmtext1.txt“ For Input As #1
Do While Not 【14】
Line Input #1, aspect$
whole$ = whole$ + aspect$ + Chr(13)+ Chr(10)
Loop
Text1.Text = whole$
Close #1
Open ”d:testsmtext2.txt" For Output As #1
Print #1, 【15】
Close #1
End Sub
上述程序的功能是,把磁盤文件smtext1.txt 的內(nèi)容讀到內(nèi)存并在文本框中顯示出來,然后
無憂考網(wǎng)
www.51test.net 把該文本框中的內(nèi)容存入磁盤文件smtext2.txt.請?zhí)羁?/p>
以下答案僅供參考
選擇題：
1---5DBDCA
6---10 CBDDC
11--15 ABBCD
16--20 CDABD
21--25 ABCDB
26--30 CDBBA
31--35 CDDDA
填空題：
【1】19
【2】 對象
【3】
程序調(diào)試
【4】 關(guān)系
【5】 算法
【6】12345.68
【7】VB程序設(shè)計
【8】 VB Programming
【9】 10
【10】 求1-8的和
【11】36
【12】 arr1(1)
【13】min=arr1(i)
【14】 EOF(1)
【15】text1.text(或whole$)12
第二篇：全國計算機二級VB筆試試題總結(jié)
2002年4月二級VB筆試試題
一、選擇題1~35題每題2分，共70分。
下列各題A）、B）、C）、D）四個選項中，只有一個選擇是正確的，請將正確選項涂寫在答題卡相應(yīng)位置上，答在試卷上不得分。
1．下列不能打開屬性窗口的操作是（）。
A）執(zhí)行“視圖”菜單中的“屬性窗口”命令
B）按F4鍵
C）按Ctrl+T
D）單擊工具欄上的“屬性窗口”按鈕。
2．下列可以打開立即窗口的操作是（）。
A）Ctrl+D
B）Ctrl+E
C）Ctrl+F
D）Ctrl+G 3．InputBox函數(shù)返回值的類型為（）。
A）數(shù)值 B）字符串 C）變體 D）數(shù)值或字符串（視輸入的數(shù)據(jù)而定）
4．可以同時刪除字符串前導(dǎo)和尾部空白的函數(shù)是（）。
A）Ltrim
B）Rtrim
C）Trim
D）Mid 5．表達(dá)式4+5 6 * 7 / 8 Mod 9 的值是（）。
A）4
B）5
C）6
D）7 6．如果在立即窗口中執(zhí)行以下操作：
a=8
b=9
print a>b
A）-1
B）0
C）False
D）True 7．以下語句的輸出結(jié)果是（）。
Print Format $(32548.5,“000,000.00”)
A）32548.5
B）32,548.5 C）032,548.50
D）32,548.50 8．執(zhí)行以下程序段后，變量c$的值為（）。
a$=“Visual Basic Programing” b$=“Quick”
c$=b$ & UCase(Mid$(a$,7,6))& Right $(a$,11)
A）Visual BASIC Programing B）Quick Basic Programing C）QUICK Basic Programing
D）Quick BASIC Programing
9．為了在按下回車鍵時執(zhí)行某個命令按鈕的事件過程，需要把該命令按鈕的一個屬性設(shè)置為True，這個屬性是（）。
A）Value
B）Default C）Cancel
D）Enabled 10．為了把焦點移到某個指定的控件，所使用的方法是（）。
A）SetFocus
B）Visible C）Refresh
D）GetFocus 11．設(shè)a=6，則執(zhí)行 x=IIf(a>5,-1,0)后，x 的值為（）。
A）5 B）6 C）0
D）-1
12．執(zhí)行下面的程序段后，x 的值為（）。
x=5
For i=1 To 20 Step 2 x=x+i5 Next i A）21
B）22 C）23
D）24
13．在窗體上畫一個命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()For i=1 To 4 x=4
For j =1 To 3? x=3
For k=1 To 2 x=x+6 Next k Next j Next i Print x End Sub
程序運行后，單擊命令按鈕，輸出結(jié)果是（）。
A）7 B）15 C）157 D）538
14．在窗體上畫一個命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()x=0
Do Until x=-1
a = InputBox(“請輸入A的值”)a = Val(a)
b = InputBox(“請輸入B的值”)b = Val(b)
x = InputBox(“請輸入x的值”)x = Val(x)a = a+b+x Loop Print a End Sub
程序運行后，單擊命令按鈕，依次在輸入對話框中輸入5、4、3、2、1、-1，則輸出結(jié)果為（）。
A）2 B）3
C）14
D）15
15．在窗體（Name屬性為Form1）上畫兩個文本框（其Name屬性分別為Text1和Text2）和一個命令按鈕（Name屬性為Command1），然后編寫如下兩個事件過程：
Private Sub Command1_Click()a=Text1.Text+Text2.Text Print a End Sub
Private Sub Form_Load()Text1.Text=”“ Text2.Text=”“ End sub
程序運行后，在第一個文本框（Text1）和第二個文本框（Text2）中分別輸入123和321，然后單擊命令按鈕，則輸出結(jié)果為（）。
A）444 B）321123 C）123
321 D）132231 16．閱讀下面的程序段：
For i=1 To 3 For j=1 To i For k=j To 3 a=a+1 Next k Next j Next i
執(zhí)行上面的三重循環(huán)后，a 的值為（）。
A）3 B）9 C）14
D）21
17．在窗體上畫一個文本框（其中Name屬性為Text1），然后編寫如下事件過程：
Private Sub Form_Load()Text1.Text=”“ Text1.SetFocus For i=1 To 10 Sum=Sum+i Next i
Text1.Text=Sum End Sub
上述程序的運行結(jié)果是（）。
A）在文本框Text1中輸出55 B）在文本框Text1中輸出0 C）出錯
D）在文本框Text1中輸出不定值
18．在窗體上畫兩個文本框（其Name屬性分別為Text1和Text2）和一個命令按鈕（其Name屬性為Command1），然后編寫如下事件過程： Private Sub Command1_Click()x=0
Do While x<50 x=(x+2)*(x+3)n=n+1 Loop
Text1.Text=Str(n)Text2.Text=Str(x)End Sub
程序運行后，單擊命令按鈕，在兩個文本框中顯示的值分別為（）。
A）1和0 B）2和72 C）3和50
D）4和168 19．用下面語句定義的數(shù)組的元素個數(shù)是（）。
Dim A(-3 To 5)As Integer
A）6 B）7 C）8
D）9 20．以下程序的輸出結(jié)果是（）。
Option Base 1
Private Sub Command1_Click()Dim a(10),p(3)As Integer k=5 For i=1 To 10 a(i)=i Next i
For i=1 To 3 p(i)=a(i*i)Next i
For i=1 To 3 k=k+p(i)*2 Next i Print k End sub
A）33 B）28 C）35 D）37
21．在窗體上畫一個命令按鈕，然后編寫如下事件過程：
Option Base 1
Private Sub Commandl_Click()Dim a
a = Array(1,2,3,4)j = 1
For i = 4 To Step-1 s = s + a(i)*j j =j*10 Next i Print s End Sub
運行上面的程序，單擊命令按鈕，其輸出結(jié)果是（）。
A）4321 B）12 C）3D）1234
22．在窗體上畫一個命令按鈕（其Name屬性為Commandl），然后編寫如下代碼：
Option Base 1
Private Sub Commandl_Click()Dim a(4,4)For i =1 To 4 For j =1 To 4 a(i,j)=(i-1)*3+j Next j Next i
For i =3 To 4 For j =3 To 4 Print a(j,i);Next j Print Next i End Sub
程序運行后，單擊命令按鈕，其輸出結(jié)果為（）。
A）6 9
B）7 10
7&n
bsp;10 11
C）8 11
D）9 12 12
23．假定有如下的Sub過程：
Sub S（x As Single,y As Single）
t = x x =t/y
y =t Mod y End Sub
在窗體上畫一個命令按鈕，然后編寫如下事件過程：
Private Sub Commandl_Click()Dim a As Single Dim b As Single a =5 b =4 S a,b Print a,b End Sub
程序運行后，單擊命令按鈕，輸出結(jié)果為（）。
A）5 4 B）1 1 C）1.25 4
D）1.25 1 24．閱讀程序：
Function F(a As Integer)b = 0 Static c b = b+1 c = c+1 F = a+b+c End Function
Private Sub Commandl_Click()Dim a As Integer a =2
For i =1 To 3 Print F(a)Next i End Sub
運行上面的程序，單擊命令按鈕，輸出結(jié)果為（）。
A）4 B）4
C）4
D）4
7
25．閱讀程序：
Sub subP(b()As Integer)For i =1 To 4 b(i)=2*i Next i End Sub
Private Sub Commandl_Click()Dim a(1 To 4)As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 subP a()For i =1 To 4 Print a(i)Next i End Sub
運行上面的程序，單擊命令按鈕，輸出結(jié)果為（）。
A）2 B）5
C）10 D）出錯
26．下列不能打開菜單編輯器的操作是（）。
A）按Ctrl+E B）單擊工具欄中的“菜單編輯器”按鈕
C）執(zhí)行“工具”菜單中的“菜單編輯器”命令 D）按Shift + Alt + M
27．假定有一個菜單項，名為MenuItem，為了在運行時使該菜單項失效（變灰），應(yīng)使用的語句為（）。
A）MenuItem.Enabled=False B）MenuItem.Enabled=True C）MenuItem.Visible=True
D）MenuItem.Visible=False
28．在程序運行期間，如果拖動滾動條上的滾動塊，則觸發(fā)的滾動條事件是（）。
A）Move B）Change C）Scroll
D）GetFocus
29．假定窗體上有一個標(biāo)簽，名為Labell，為了使該標(biāo)簽透明并且沒有邊框，則正確的屬性設(shè)置為（）。
A）Label1.BackStyle=0
Label1.Borderstyle=0
B）Label1.BackStyle=1
Label1.Borderstyle=1
C）Label1.BackStyle=True
Label1.BorderStyle=True
D）Label1.BackStyle=False
Label1.Borderstyle=False
30．在窗體上畫一個列表框和一個文本框，然后編寫如下兩個事件過程：
Private Sub Form_Load()List1.AddItem”357“ List1.AddItem”246“ List1.AddItem”123“ Listl.AddItem”456“ Text1.Text=”“ End Sub
Private Sub List1_ DblClick()a =List1.Text
Print a+Text1.Text End Sub
程序運行后，在文本框中輸入“789”（見圖附錄-1），然后雙擊列表框中的“456”，則輸出結(jié)果為（）。
圖附錄-1
A）1245
B）456789
C）789456
D）0
31．為了暫時關(guān)閉計時器，應(yīng)把該計時器的某個屬性設(shè)置為False，這個屬性是（）。
A）Visible
B）Timer
C）Enabled
D）Interval
32．為了把一個記錄型變量的內(nèi)容寫入文件中指定的位置，所使用的語句的格式為（）。
A）Get文件號，記錄號，變量名
B）Get文件號，變量名，記錄號
C）Put文件號，變量名，記錄號
D）Put文件號，記錄號，變量名
33．對窗體編寫如下事件過程：
Private Sub Form _MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button =2 Then Print ”AAAAA“ End If End Sub
Private Sub Form _ MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Print ”BB BBB“ End Sub
程序運行后，如果右擊鼠標(biāo)，則輸出結(jié)果為（）。
A）AAAAA B）BBBBB
BBBBB
C）AAAAA D）BBBBB
AAAAA
34．為了在運行時能顯示窗體左上角的控制框（系統(tǒng)菜單），必須（）。
A）把窗體的Contro1Box屬性設(shè)置為False，其他屬性任意
B）把窗體的ControlBox屬性設(shè)置為True，并且把Boder Style屬性設(shè)置為1-5
C）把窗體的ControlBox屬性設(shè)置為False，同時把BoderStyle屬性調(diào)協(xié)為非0值
D）把窗體的ControlBox屬性設(shè)置為True，同時把BoderStyle屬性設(shè)置為0值
35．對窗體編寫如下代碼：
Option Base 1 Private Sub Form_KeyPress(KeyAscii As Integer)a = Array(237,126,87,48,498)m1 = a(1)m2 = 1
If KeyAscii = 13 Then For i =2 To 5 If a(i)>ml Then m1 =a(i)m2 =i End If Next i End If Print m1 Print m2 End Sub
程序運行后，按回車鍵，輸出結(jié)果為（）。
A）48
B）237
C）498
D）498
二、填空題（每空２分，共30分）
請將每空的正確答案寫在答題卡[1]~[15]序號的橫線上，答在試卷上不得分。
1．設(shè)有如下的Visual Basic表達(dá)式： 5 * x^2 – 3 * x – 2 * Sin(a)/3 它相當(dāng)于代數(shù)式 [1]。
2．執(zhí)行下面的程序段后，s的值為 [2]。
s = 5
For i = 2.6 To 4.9 Step 0.6 s = s+1 Next i
3．表達(dá)式Fix(-32.68)+Int(-23.02)的值為 [3]。
4．為了在運行時把圖形文件picfile.jpg裝入圖片框Picture1，所使用的語句為 [4]。
5．在窗體上畫一個命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()a = InputBox(”請輸入一個整數(shù)“)b = InputBox(”請輸入一個整數(shù)“)Print a + b End Sub
程序運行后，單擊命令按鈕，在輸入對話框中分別輸入321和456，輸出結(jié)果為 [5]。
6．執(zhí)行下面的程序段后，b的值為 [6]。
a=300 b=20 a=a+b b=a-b a=a-b
7．以下程序段的輸出結(jié)果是 [7]。num=0 &nb sp;
While num<=2 num=num+1 Print num Wend
8．在窗體畫一個命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()Dim a(1 To 10)Dim p(1 To 3)k=5
For i=1 To 10 a(i)=i Next i
For i=1 To 3 p(i)=a(i*i)Next i
For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub
程序運行后，單擊命令按鈕，輸出結(jié)果是 [8]。
9．下面的程序用“冒泡”法將數(shù)組a中的10個整數(shù)按升序排列，請在 [9]、處將程序補充完整。
Option Base 1
Private Sub Command1_Click()Dim a
a=Array(678,45,324,528,439,387,87,875,273,823)For i= [9] For j= [10]
If a(i)[11] a(j)Then a1=a(i)a(i)=a(j)a(j)=a1 End If Next j Next i
For i=1 To 10 Print a(i)Next i End Sub
10．在窗體上畫一個命令按鈕，然后編寫如下過程：
Function fun(ByVal num As Long)As Long
[10]、[11] Dim k As Long k=1
num=Abs(num)Do While num k=k*(num Mod 10)num=num10 Loop fun=k
End Function
Private Sub Command1_Click()Dim n As Long Dim r As Long
n=InputBox(”請輸入一個數(shù)“)n=CLng(n)r=fun(n)Print r End Sub
程序運行后，單擊命令按鈕，在輸入對話框中輸入234，輸出結(jié)果為 [12]。
11．如果要將某個菜單項設(shè)計為分隔線，則該菜單項的標(biāo)題應(yīng)設(shè)置為 [13]。
12．假定建立了一個工程，該工程包括兩個窗體，其名稱（Name屬性）分別為Form1和Form2，啟動窗體為Form1。在Form1上畫一個命令按鈕Command1，程序運行后，要求當(dāng)單擊該命令按鈕時，F(xiàn)orm1窗體消失，顯示窗體Form2，請在 [14] 和 [15] 處將程序補充完整。
Private Sub Command1_Click();[14] Form1 Form2.[15] End Sub
2002年9月二級VB筆試試題
一、選擇題(每題2分，共70分)
下列各題A)、B)、C)、D)四個選項中，只有一個選項是正確的，請將正確選項涂寫在答題卡相應(yīng)位置上，答在試卷上不得分。
(1)在設(shè)計階段，當(dāng)雙擊窗體上的某個控件時，所打開的窗口是（）。
A)工程資源管理器窗口
B)工具箱窗口
C)代碼窗口
D)屬性窗口
(2)以下敘述中正確的是（）。
A)窗體的Name屬性指定窗體的名稱，用來標(biāo)識一個窗體
B)窗體的Name屬性的值是顯示在窗體標(biāo)題欄中的文本
C)可以在運行期間改變對象的Name屬性的值
D)對象的Name屬性值可以為空
(3)剛建立一個新的標(biāo)準(zhǔn)EXE工程后，不在工具箱中出現(xiàn)的控件是（）。
A)單選按鈕
B)圖片框
C)通用對話框
D)文本框
(4)設(shè)有如下變量聲明
Dim TestDate As Date
為變量TestDate正確賦值的表達(dá)方式是（）。
A)TextDate=#1/1/200
2# B)TestDate=#“1/1/2002”#
C)TextDate=date(“1/1/2002”)
D)TestDate=Format(“m/d/yy”,“1/1/2002”)
(5)設(shè)有如下聲明：
Dim X As Integer
如果Sgn(X)的值為-1，則X的值是（）。
A)整數(shù)
B)大于0的整數(shù)
C)等于0的整數(shù)
D)小于0的數(shù)
(6)在窗體上畫一個名稱為Commandl的命令按鈕，然后編寫如下程序：
Private Sub Command1_Click()
Static X As Integer
Static Y As Integer
Cls
Y=1
Y=Y+5
X=5+X
Print X,Y
End Sub
程序運行時，三次單擊命令按鈕Commandl后，窗體上顯示的結(jié)果為（）。
A)15 16
B)15 6
C)15 1D)5 6
(7)設(shè)a=3,b=5，則以下表達(dá)式值為真的是（）。
A)a>=b And b>10
B)(a>b)Or(b>0)
C)(a<0)Eqv(b>0)
D)(-3+5>a)And(b>0)
(8)設(shè)有語句
x=InputBox(“輸入數(shù)值”，“0”，“示例”)
程序運行后，如果從鍵盤上輸入數(shù)值10并按回車鍵，則下列敘述中正確的是（）。
A)變量X的值是數(shù)值10
B)在InputBox對話框標(biāo)題欄中顯示的是“示例”
C)0是默認(rèn)值
D)變量X的值是字符串“10”
(9)從鍵盤上輸入兩個字符串，分別保存在變量str1、str2中。確定第二個字符串在第一個字符串中起始位置的函數(shù)是（）。
A)Left
B)Mid
C)String
D)Instr
(10)設(shè)a=“Visual Basic”，下面使b=“Basic”的語句是（）。
A)b=Left(a,8,12)
B)b=Mid(a,8,5)
C)b=Rigth(a,5,5)
D)b=Left(a,8,5)
(11)以下能夠觸發(fā)文本框Change事件的操作是（）。
A)文本框失去焦點
B)文本框獲得焦點
C)設(shè)置文本框的焦點
D)改變文本框的內(nèi)容
(12)在窗體上有一個文本框控件，名稱為TxtTime：一個計時器控件，名稱為Timerl，要求每一秒鐘在文本框中顯示一次當(dāng)前的時間。程序為：
Private Sub Timer1_()
TxtTime.text=Time
End Sub
在下劃線上應(yīng)填入的內(nèi)容是（）。
A)Enabled
B)Visible
C)Interval
D)Timer
(13)在窗體上畫兩個單選按鈕，名稱分別為Option1、Option2，標(biāo)題分別為“宋體”和“黑體”；一個復(fù)選框，名稱為Check1,標(biāo)題為“粗體”；一個文本框，名稱為Text1，Text屬性為“改變文字字體”。要求程序運行時，“宋體”單選按鈕和“粗體”復(fù)選框被選中(窗體外觀如下圖)，則能夠?qū)崿F(xiàn)上述要求的語句序列是（）。
A)Option1.value=True
B)Option1.Value=True
Check1.Value=False
Check1.Value=True
C)Option2.Value=False D)Option1.Value=True
Check1.Value=True
Check1.Value=1
(14)為了在按下Esc鍵時執(zhí)行某個命令按鈕的Click事件過程，需要把該命令按鈕的一個屬性設(shè)置為True，這個屬性是（）。
A)Value
B)Default
C)Cancel
D)Enabled
(15)在窗體上畫一個命令按鈕，名稱為Command1。然后編寫如下程序：
Private Sub Command1_Click()
For I=1 To 4
For J=0 To 1
Print Chr$(65+I);
Next J
Next I
End Sub
程序運行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是（）。
A)BB
B)A
C)B
D)AA
CC
BB
CC
BBB
DDDD
CCC
DDD
CCCC
EEEEE
DDDD
EEEE
DDDDD
(16)圖像框有一個屬性，可以自動調(diào)整圖形的大小，以適應(yīng)圖像框的尺寸，這個屬性是（）。
A)Autosize
B)Stretch
C)AutoRedraw
D)Appearance
(17)在窗體上畫兩個名稱分別為Text1、Texte2的文本框和一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
Dim x As Integer,n As Integer
x=1
n=0
Do While x<20
x=x*3
n=n+1
Loop
Text1.Text=Str(x)
Text2.Text=Str(n)
End Sub
程序運行后，單擊命令按鈕，在兩個文本框中顯示的值分別是（）。
A)15和1
B)27和C)195和3
D)600和4
(18)在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
Dim i As Integer,n As Integer
For I=0 To 50
i=i+3
n=n+1
If i>10 Then xit for
Next
Text1.Text=Str(n)
End Sub
程序運行后，單擊命令按鈕，在文本框中顯示的值是（）。
A)B)3
D)4
D)5
(19)在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
Dim array1(10,10)As Integer
Dim i,j As Integer
For i=1 To 3
For j=2 To 4
array1(i,j)=i+j
Next j
Next I
Text1.Text=array1(2,3)+array1(3,4)
End Sub
程序運行后，單擊命令按鈕，在文本框中顯示的值是（）。
A)12
B)13
C)1D)15
(20)在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下程序：
Private Sub Command1_Click()
Dim i As Integer,j As Integer
Dim a(10,10)As Integer
For i=1 To 3
For j=1 To 3
a(i,j)=(i-1)*3+j
Print a(i,j);
Next j
Next j
End Sub
程序運行后，單擊命令按鈕，窗體上顯示的是（）。
A)123 B)234 C)147 D)123
246
345
258
456
369 456
369
789
(21)設(shè)有如下程序：
Option Base 0
Private Sub Form_Click()
Dim a
Dim i As Integer
a=Array(1,2,3,4,5,6,7,8,9)
For i=0 To 3
Print a(5-i);
Next
End Sub
程序運行后，單擊窗體，則在窗體上顯示的是（）。
A)4 3 2 1 B)5 4 3 2 C)6 5 4 3 D)7 6 5 4
(22)下列敘述中正確的是（）。
A)在窗體的Form_Load事件過程中定義的變量是全局變量
B)局部變量的作用域可以超出所定義的過程
C)在某個Sub過程中定義的局部變量可以與其它事件過程中定義的局部變量同名，但其作用域只限于該過程
D)在調(diào)用過程時，所有局部變量被系統(tǒng)初始化為0或空字符串
(23)在窗體上畫一個命令按鈕，名稱為Command1。程序運行后，如果單擊命令按鈕，則顯示一個輸入對話框，在該對話框中輸入一個整數(shù)，并用這個整數(shù)作為實參調(diào)用函數(shù)過程F1。在F1中判斷所輸入的整數(shù)是否是奇數(shù)，如果是奇數(shù)，過程F1返回1，否則返回0。能夠正確實現(xiàn)上述功能的代碼是（）。
A)Private Sub Command1_Click()
x=InputBox(“請輸入整數(shù)”)
a=F1(Val(x))
Print a
End Sub
Function F1(ByRef b As Integer)
If b Mod 2=0 Then
Return 0
Else
Return 1
End If
End Function
B)Private Sub Command1_Click()
x=InputBox(“請輸入整數(shù)”)
a=F1(Val(x))
Print a
End Sub
Function F1(ByRef b As Integer)
If b Mod 2=0 Then
F1=0
Else
F1=1
End If
End Function
C)Private Sub Command1_Click()
x=InputBox(“請輸入整數(shù)”)
F1(Val(x))
Print a
End Sub
Function F1(ByRef b As Integer)
If b Mod 2=0 Then
F1=1
Else
F1=0
End If
End Function
D)Private Sub Command1_Click()
x=InputBox(“請輸入整數(shù)”)
F1(Val(x))
Print a
End Sub
Function F1(ByRef b As Integer)
If b Mod 2=0 Then
Return 0
Else
Return 1
End If
End Function
(24)在窗體上畫一個名稱為Command1的命令按鈕和一個名稱為Text1的文本框，然后編寫如下程序：
Private Sub Command1_Click()
Dim x,y,z As Integer
x=5
y=7
z=0
Text1.text=“”
Call P1(x,y,z)
Text1.Text=Str(x)
End Sub
Sub P1(ByVal a As Integer,ByVal b As Integer,c As Integer)
c=a+b
End Sub
程序運行后，如果單擊命令按鈕，則在文本框中顯示的內(nèi)容是（）。
A)0
B)12
C)Str(z)
D)沒有顯示
(25)以下敘述中錯誤的是（）。
A)如果過程被定義為Static類型，則該過程中的局部變量都是Static類型
B)Sub過程中不能嵌套定義Sub過程
C)Sub過程中可以嵌套調(diào)用Sub過程
D)事件過程可以像通用過程一樣由用戶定義過程名
(26)以下敘述中錯誤的是（）。
A)在KeyUp和KeyDown事件過程中，從鍵盤上輸入A或a被視作相同的字母(即具有相同的KeyCode)
B)在KeyUp和KeyDown事件過程中，將鍵盤上的“1”和右側(cè)小鍵盤上的“1”視作不同的數(shù)字(具有不同的KeyCode)
C)KeyPress事件中不能識別鍵盤上某個鍵的按下與釋放
D)KeyPress事件中可以識別鍵盤上某個鍵的按下與釋放
(27)以下敘述中錯誤的是（）。
A)在同一窗體的菜單項中，不允許出現(xiàn)標(biāo)題相同的菜單項
B)在菜單的標(biāo)題欄中，“&”所引導(dǎo)的字母指明了訪問該菜單項的訪問鍵
C)程序運行過程中，可以重新設(shè)置菜單的Visible屬性
D)彈出式菜單也在菜單編輯器中定義
(28)設(shè)在菜單編輯器中定義了一個菜單項，名為menu1。為了在運行時隱藏該菜單項，應(yīng)使用的語句是（）。
A)menu1.Enabled=True B)Munu1.Enabled=False
C)Menu1.Visible=True D)Menu1.Visible=False
(29)以下敘述中錯誤的是（）。
A)在程序運行時，通用對話框控件是不可見的
B)在同一個程序中，用不同的方法(如ShowOpen或ShowSave等）打開的通用對話框具有不同的作用
C)調(diào)用通用對話框控件的ShowOpen方法，可以直接打開在該通用對話框中指定的文件
D)調(diào)用通用對話框控件的ShowColor方法，可以打開顏色對話框
(30)在用通用對話框控件建立“打開”或“保存”文件對話框時，如果需要指定文件列表框所列出的文件類型是文本文件(即.txt文件)，則正確的描述格式是（）。
A)“text(.txt)|(*.txt)” B)“文本文件(.txt)|(.txt)”
C)“text(.txt)||(*.txt)” D)“text(.txt)(*.txt)”
(31)以下敘述中錯誤的是（）。
A)一個工程中只能有一個Sub Main過程
B)窗體的Show方法的作用是將指定的窗體裝入內(nèi)存并顯示該窗體
C)窗體的Hide方法和Unload方法的作用完全相同
D)若工程文件中有多個窗體，可以根據(jù)需要指定一個窗體為啟動窗體
(32)以下敘述中錯誤的是（）。
A)一個工程中可以包含多個窗體文件
B)在一個窗體文件中用Private定義的通用過程能被其他窗體調(diào)用
C)在設(shè)計VB程序時，窗體、標(biāo)準(zhǔn)模塊、類模塊等需要分別保存為不同類型的磁盤文件
D)全局變量必須在標(biāo)準(zhǔn)模塊中定義
(33)設(shè)在工程中有一個標(biāo)準(zhǔn)模塊，其中定義了如下記錄類型
Type Books
Name As String *10
TelNum As String *20
End Type
在窗體上畫一個名為Command1的命令按鈕。要求當(dāng)執(zhí)行事件過程Command1_Click時，在順序文件Person.txt中寫入一條記錄。下列能夠完成該操作的事件過程是（）。
A)Private Sub Command1_Click()
Dim B As Books
Open “c:Person.txt”For Output As #1
B.Name=InputBox(“輸入姓名”)
B.TelNum=InputBox(“輸入電話號碼”)
Write #1,B.Name,B.TelNum
Close #1
End Sub
B)Private Sub Command1_Click()
Dim B As Books
Open “c:Person.txt”For Input As #1
B.Name=InputBox(“輸入姓名”)
B.TelNum=InputBox(“輸入電話號碼”)
Print #1,B.Name,B.TelNum
Close #1
End Sub
C)Private Sub Command1_Click()
Dim B As Books
Open “c:Person.txt”For Output As #1
B.Name=InputBox(“輸入姓名”)
B.TelNum=InputBox(“輸入電話號碼”)
Write #1,B
Close #1
End Sub
D)Private Sub Command1_Click()
Open “c:Person.txt”For Input As #1
Name=InputBox(“輸入姓名”)
TelNum=InputBox(“輸入電話號碼”)
Print #1,Name,TelNum
Close #1
End Sub
(34)以下敘述中正確的是（）。
A)一個記錄中所包含的各個元素的數(shù)據(jù)類型必須相同
B)隨機文件中每個記錄的長度是固定的
C)Open命令的作用是打開一個已經(jīng)存在的文件
D)使用Input #語句可以從隨機文件中讀取數(shù)據(jù)
(35)目錄列表框的Path屬性的作用是（）。
A)顯示當(dāng)前驅(qū)動器或指定驅(qū)動器上的目錄結(jié)構(gòu)
B)顯示當(dāng)前驅(qū)動器或指定驅(qū)動器上的某目錄下的文件名
C)顯示根目錄下的文件名
D)顯示該路徑下的文件
二、填空題(每空2分，共40分）
請將每空的正確答案寫在答題卡(1)至(15)的橫線上，答在試卷上不得分。
(1)在窗體上畫兩個標(biāo)簽，其名稱分別為Label1和Label2,Caption屬性分別為“數(shù)值”及空白；然后畫一個名稱為Hscoll1的水平滾動條，其Min的值為0，Max的值為100。程序運行后，如果單擊滾動條兩端的箭頭，則在標(biāo)簽Lable2中顯示滾動條的值，如圖所示。請在 [1] 和 [2] 處填入適當(dāng)?shù)膬?nèi)容，將程序補充完整。
Private Sub HScroll1_ [1]()
Labl2.Caption=HScroll1.[2]
End Sub
(2)在窗體上畫一個名稱為Command1、標(biāo)題為“計算”的命令按鈕；畫兩個文本框，名稱分別為Text1和Text2；然后畫4個標(biāo)簽，名稱分別為Label1、Label2、Label3和Label4，標(biāo)題分別為“操作數(shù)1”、“操作數(shù)2”、“運算結(jié)果”和空白；再建立一個含有4個單選按紐的控件數(shù)組，名稱為Option1，標(biāo)題分別為“+”、“-”、“*”和“/”。程序運行后，在Text1、Text2中輸入兩個數(shù)值，選中一個單選按鈕后單擊命令按鈕，相應(yīng)的計算結(jié)果顯示在Label4，程序運行情況如圖所示。請在 [3]、[4] 和 [5] 處填入適當(dāng)?shù)膬?nèi)容，將程序補充完整。
Private Sub Command1_Click()
For i=0 To 3
If [3] =True then
opt=Option1(i).Caption
End If
Next
Select Case [4]
Case”+”
Result=Val(Text1.Text)+Val(Text2.Text)
Case”-”
Result=Val(Text1.Text)-Val(Text2.Text)
Case”*”
Result=Val(Text.Text)*Val(Text2.Text)
Case”/”
Result=Val(Text1.Text)/Val(Text2.Text)
End Select
[5] =Result
End Sub
(3)在窗體上畫一個名稱為Command1的命令按鈕和一個名稱為Text1的文本框。程序運行后，Command1為禁用(灰色)。當(dāng)向文框中輸入任何字符時，命令按鈕Command1變?yōu)榭捎?。請?[6] 處填入適當(dāng)?shù)膬?nèi)容，將程序補充完整。
Private Sub Form_Load()
Command1.Enabled=False
End Sub
Private Sub Text1_ [6]()
Command1.Enabled=True
End Sub
(4)在菜單編輯器中建立了一個菜單，名為pmenu，用下面的語句可以把它作為彈出式菜單彈出，請?zhí)羁铡?/p>
Form1.[7] Pmenu
(5)以下程序的功能是：從鍵盤上輸入若干個學(xué)生的考試分?jǐn)?shù)，當(dāng)輸入負(fù)數(shù)時結(jié)束輸入，然后輸出其中的最高分?jǐn)?shù)和最低分?jǐn)?shù)。請在 [8] 和 [9] 處填入適當(dāng)?shù)膬?nèi)容，將程序補充完整。
Private Sub Form_Click()
Dim x As Single,amax As Single,amin As Single
x=InputBox(“Enter a score”)
amax=x
amin=x
Do While [8]
If x>amax Then
Amax=x
End If
If [9]Then
Amin=x
End If
x=InputBox(“Enter a score”)
Loop
Print”Max=”;amax,”Min=”;amin
End Sub
(6)在窗體上畫一個文本框和一個圖片框，然后編寫如下兩個事件過程：
Private Sub Form_Load()
Text1.Text=”計算機”
End Sub
Private Sub Text1_Change()
Picture1.Print“等級考試”
End Sub
程序運行后，在文本框中顯示的內(nèi)容是 [10]，而在圖片框中顯示的內(nèi)容是 [11]。
(7)在窗體上畫一個命令按鈕，其名稱為Command1，然后編寫如下程序：
Function M(x As Integer,y As Integer)As Integer
M=IIf(x>y,x,y)
End Function
Private Sub command1_Click()
Dim a As Integer,b As Integer
a=100
b=200
Print M(a,b)
End Sub
程序運行后，單擊命令按鈕，輸出結(jié)果為 [12]。
(8)為了改變計時器控件的時間間隔，應(yīng)該修改該控件的 [13] 屬性。
(9)在窗體上畫一個名稱為Lable1的標(biāo)簽和一個名稱為List1的列表框。程序運行后，在列表框中添加若干列表項。當(dāng)雙擊列表框中的某個項目時，在標(biāo)簽Label1中顯示所選中的項目，如圖所示。請在 [14] 和 [15] 處填入適當(dāng)?shù)膬?nèi)容將程序補充完整。
Private Sub Form_load()
List1.AddItem”北京”
List1.AddItem”上?！?/p>
List1.AddItem”湖北”
End Sub
Private Sub [14]()
Label1.Caption= [15]
End Sub
2003年4月二級VB筆試試題
一、選擇題((1)一(20)每小題2分，(21)一(30)每小題3分，共30題，70分)
下列各題A)、B)、C)、D)四個選項中，只有一個選項是正確的，請將正確選項涂在答題卡的相應(yīng)位置上，答在試卷上不得分。
(1)以下不能在”工程資源管理器“窗口中列出的文件類型是（）。
A)．bas
B)．res
C)．fnn
D)．ocx
(2)以下關(guān)于窗體的描述中，錯誤的是（）。
A)執(zhí)行UnloadFoMl語句后，窗體Fonnl消失，但仍在內(nèi)存中
B)窗體的Ioad事件在加載窗體時發(fā)生
C)當(dāng)窗體的Enabled屬性為False時，通過鼠標(biāo)和鍵盤對窗體的操作都被禁止
D)窗體的Height、width屬性用于設(shè)置窗體的高和寬
(3)下列可作為V2sualBasic變量名的是（）。
A)A#A
B)4A
C)?xY
D)constA(4)設(shè)有如下的記錄類型
Type Student
numberAs string
name As String
age As Integer
End Type
則正確引用該記錄類型變量的代碼是（）。
A)Student．name=”張紅“
B)Dim As Student
s．name＝”張紅“ C)Dim s As Type Student
D)Dim s As Type
S．name=”張紅“
s.Dame＝”張紅“
(5)函數(shù)String(n，”str“)的功能是（）。
A)把數(shù)值型數(shù)據(jù)轉(zhuǎn)換為字符串 B)返回由n個字符組成的字符串
C)從字符串中取出n個字符
D)從字符串中第n個字符的位置開始取子字符串
(6)將數(shù)學(xué)表達(dá)式Cos2(a+b)+5e2寫成Visual Basic的表達(dá)式，其正確的形式是（）。
A)Cos(a+b)A2十5。exp(2)
B)Cos^2(a+b)+5*exp(2)C)Cos(a+b)^2十5*ln(2)
D)Cos^2(a+b)+5*ln(2)
(7)在窗體上畫一個命令按鈕，名稱為Commandl。單擊命令按鈕時，執(zhí)行如下事件過程：
PrlVate Sub Commandl_C1ick（）
a$=”software and hardware“
b$＝Right(a$,8)
c$=Mid(a$,1，8)
Msgbox a$，b$,c$,1
End Sub
則在彈出的信息框的標(biāo)題欄中顯示的信息是（）。
A)softWare and hardware
B)software
C)hardwafe
D)1
(8)執(zhí)行如下語句：
a＝inutBox(”Today“，”TomorroW，“Yesterday”，,“Day before yesterday”，5)
將顯示一個輸入對話框，在對話框的輸入?yún)^(qū)中顯示的信息是（）。
A)Today
B)Tomorrow
C)Yesterday
D)Day before yesterday
(9)表示滾動條控件取值范圍最大值的屬性是（）。
A)Max
B)LargeChange
C)Value
D)Max-Min
(10)在窗體上畫一個名稱為Listl的列表框，一個名稱為Labell的標(biāo)簽。列表框中顯示若干城市的名稱。當(dāng)單擊列表框中的某個城市名時，在標(biāo)簽中顯示選中城市的名稱。下列能正確實現(xiàn)上述功能的程序是
A)Private Sub listl_Click()B)Private Sub Listl_C1ick()
Labell．Caption＝list1.listlndex Labell．Nanle＝Listl．listindex
End Sub ．End Sub
程序運行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是（）。A)空白
B)錯誤提示
C)北京
D)上海
(15)假定有以下函數(shù)過程：
Function Fun(S As String)As String
Dim s1 As String
For i=1 To Len(S)
s1＝UCase(Mid(S，i，1))十s1
Next i
Fun＝s1
End Function
在窗體上畫一個命令按鈕，然后編寫如下事件過程：
Prlvate Sub Commmldl_Click()
Dim Str1 As String，Str2 As String
Strl＝inputbox(“請輸入一個字符串”)
Str2=Fun(Strl)
Print Str2
End Sub
程序運行后，單擊命令按鈕，如果在輸入對話框中輸入字符串“abcdefg”，則單擊“確定”按鈕后在窗體上的輸出結(jié)果為（）。
A)abcdefg
B)ABCDEFG
C)gfedcba
D)GFEDCBA
(16)設(shè)有語句
open “c：Test．Dat” For OutPut As#1
則以下錯誤的敘述是（）。
A)該語句打開C盤根目錄下一個己存在的文件Test．Dat B)該語句在C盤根目錄下建立一個名為Test．Dat的文件
C)該語句建立的文件的文件號為1 D)執(zhí)行該語句后，就可以通過Print#語句向文件Test．Dat中寫入信息
(17)以下敘述中錯誤的是（）。
A)用Shell函數(shù)可以調(diào)用能夠在Windows下運行的應(yīng)用程序
B)用Shell函數(shù)可以調(diào)用可執(zhí)行文件，也可以調(diào)用VisualBasic的內(nèi)部函數(shù)
C)調(diào)用Shell函數(shù)的格式應(yīng)為：<變量名>＝Shell(……)
D)用Shell函數(shù)不能執(zhí)行DoS命令
(18)以下關(guān)于過程及過程參數(shù)的描述中，錯誤的是（）。
A)過程的參數(shù)可以是控件名稱 B)用數(shù)組作為過程的參數(shù)時，使用的是“傳地址”方式
C)只有函數(shù)過程能夠?qū)⑦^程中處理的信息傳回到調(diào)用的程序中
D)窗體可以作為過程的參數(shù)
(19)在窗體上畫一個名稱為TxtA的文本框，然后編寫如下的事件過程：
Private Sub Txta_KeyPress(keyascii as integer)
End Sub
若焦點位于文本框中，則能夠觸發(fā)KeyPress事件的操作是（）。
A)單擊鼠標(biāo)
B)雙擊文本框
C)鼠標(biāo)滑過文本框
D)按下鍵盤上的某個鍵
(20)目錄列表框的Path屬性的作用是（）。
A)顯示當(dāng)前驅(qū)動器或指定驅(qū)動器上的路徑
B)顯示當(dāng)前驅(qū)動器或指定驅(qū)動器上的某目錄下的文件名
D)顯示根目錄下的文件名
D)只顯示當(dāng)前路徑下的文件
(21)假定有如下事件過程：
PriVate Sub Form_MouseDown(button As Integer,Shift As Integer, x As Single，Y As
Single)
If Button＝2 then
PopupMenu popForm
End if
End Sub
則以下描述中錯誤的是（）。
A)該過程的功能是彈出一個菜單
B)popForm 是在菜單編輯器中定義的彈出式菜單的名稱
C)參數(shù)X、Y指明鼠標(biāo)的當(dāng)前位置
D)Button=2 表示按下的是鼠標(biāo)左鍵
(22)以下能夠正確計算n!的程序是（）。
A)Private Sub Commandl_ClicK()
n＝5:x＝1
Do
X=x*1
i＝i十1
Loop While i＜n
Print x
End Sub B)Private Sub Commandl_Click()
n＝5: x＝1：i=1
Do
X＝X*1
i＝i十1
Loop While i＜n
Print x
End Sub C)Private Sub Commandl_Click()
n=5：x＝1：i＝1
Do
X=X*1
i＝i十1
Loop while i<=n
Print x
End Sub D)Private Sub Commandl_C1ick()
n＝5：x＝1：i=1
Do
X=X*l
i=i十1
loop While i＞n
Print x
End Sub
(23)在窗體上畫一個名稱為Commandl的命令按鈕，再畫兩個名稱分別為Labell、Label2的標(biāo)簽，然后編寫如下程序代碼：
Private x As Integer
Private Sub Commandl-Click()
X＝5：Y＝3
Call proc(x,Y)
Labell．Caption＝X
Label2．Caption＝Y(jié)
End Sub
Private Sub proc(ByVal a As Integer，ByVal b As hteger)
x＝a* a
Y=b十b
End Sub
程序運行后，單擊命令按鈕，則兩個標(biāo)簽中顯示的內(nèi)容分別是（）。
A)5和3
B)25和3
C)25和6
D)5和6
(24)在窗體上畫一個名稱為Commandl的命令按鈕，一個名稱為Labell的標(biāo)簽，然后編寫如下事件過程：
Private Sub Commandl_C1ick()
S＝0
For i＝1 T0 15
x＝2*i一1
1f x Mod 3＝0 Then s＝s十1
Nexti
Labell．Caption=s
End Sub
程序運行后，單擊命令按鈕，則標(biāo)簽中顯示的內(nèi)容是（）。
A)1
B)5
C)27
D)45
(25)在窗體上畫一個名稱為Commandl的命令按鈕和三個名稱分別為Labell、Label2、Label3的標(biāo)簽，然后編寫如下代碼：
Private x As Integer
Private Sub Command1_C1ick()
Static y As Integer
Dimz As Integer
n＝10
z=n十z
y＝y(tǒng)十z
X＝X十Z
Labell.Caption＝x
Label2．Caption=y
Label3．Caption＝z
End Sub
運行程序，連續(xù)三次單擊命令按鈕后，則三個標(biāo)簽中顯示的內(nèi)容分別是（）。
A)10 10 10
B)30 30 30
C)30 30 10
D)10 30 30(26)設(shè)在窗體上有一個名稱為Commandl的命令按鈕，并有以下事件過程：
PriVate Sub Commandl_C1ick()
Static b As Variant
b＝Array(1,3,5,7,9)
End Sub
此過程的功能是把數(shù)組b中的5個數(shù)逆序存放(即排列為9，7，5，3，1)。為實現(xiàn)此功能，省略號處的程序段應(yīng)該是（）。
A)For i＝0 To 5-1＼2
tmp＝b(i)
b(i)＝b(5-i-1)
b(5-i-1)＝tmp
Next B)for i＝0 To 5
tmp=b(i)
b(i)＝b(5-i-1)
b(5-i-1)=tmp
Next C)For i＝0 T0 5＼2
tmp＝b(i)
b(i)＝b(5-i-1)
b(5-i-1)；tmp
Next D)For i＝1 T0 5＼2
tmp=b(i)
b(i)＝b(5一i一1)
b(5-i-1)＝tmp
Next
(27)在窗體上畫一個名稱為Drivel的驅(qū)動器列表框，一個名稱為Dirl的目錄列表框，一個名稱為Filel的文件列表框，兩個名稱分別為Labell、Label2，標(biāo)題分別為空白和“共有文件”的標(biāo)簽。編寫程序，使得驅(qū)動器打開一個保存文件的通用對話框。該窗口的標(biāo)題為“Save”，缺省文件名為“SaveFile”，在“文件類型”欄中顯示*.txt。則能夠滿足上述要求的程序是（）。
A)Private Sub Command_C1ick()
Commondialogl．FileName=“Savefile”
Commondialogl.filter＝“All Files|*.*|(*.txt)|*.txt|(*.doc)．|*.doc”
CommonDialogl．Filterindex=2
CommonDialogl．Dial0g．title＝“Save”
CommonDialogl．Action＝2
End Sub B)Private Sub Commandl-Click()
CommonDialogl．FileName＝“SaveFile”
CommonDiaLogl．Filter＝“A11 Files|*.*|(*.txt)|*.txt|*．doc|*．doc”
C0mmonDialogl．FilterIndex＝1
CommonDialogl．DialogTitle＝“Save”
CommonDialogl．Action＝2
End Sub C)Private Sub Cmmandl_C1ick()
COmmonDialogl．FileName＝“Save”
CommonDialogl．FiLter＝“A11Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc”
CommonDialogl．Filterindex＝2
C0mmonDialogl．DialogTitle＝“SaveFile”
CommonDialogl．Action＝2
End Sub D)Private Sub Commandl_C1ick()
CommonDialogl．FileName＝“SaveFile”
CommonDialogl．Filter＝“All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc”
CommonDialogl．FilterIndex=1
CommonDialogl．DialogTitle=“Save”
CommonDialogl．Action＝1
End Sub
二、填空題(每空2分，共30分)
請將每空的正確答案寫在答題卡[1]一[15序號的橫線上，答在試卷上不得分。
(1)visual Basic中有一種控件組合了文本框和列表框的特性，這種控件是________
(2)Visual Basic提供的對數(shù)據(jù)文件的三種訪問方式為隨機訪問方式_____和二進(jìn)制訪問方式。
(3)執(zhí)行下面的程序段后，變量S的值為_______。
S＝5
For i ＝2.6 To 4.9 Step 0.6
S=S十1
Next i
(4)為了在運行時把d:pic文件夾下的圖形文件a.jpg裝入圖片框Picturel，所使用的語句為_______。
(5)計時器控件能有規(guī)律的以一定時間間隔觸發(fā)_______事件，并執(zhí)行該事件過程中的程序代碼。
(6)以下程序的功能是：生成20個200到300之間的隨機整數(shù)，輸出其中能被5整除的 數(shù)并求出它們的和。請?zhí)羁铡?/p>
Private Sub Commandl_C1ick()
Fori＝1To 20
x＝Int(____________*200+100)
If_______[7] ＝0 Then
Print x
S＝S十 _________ [83
End If
Next i
Print “Sum＝”：S
End Sub
(7)設(shè)有如下程序
Private Sub Form_Click()
Dim a AS Integer，b As integer
a＝20：b=50R>
p2a，b
p3a,b
Print“a＝”；a,“b＝”；b
End Sub
Sub pl(x As Integer，ByVal y As Integer)
x=x十10．
v＝v十20
End Sub
Sub p2(byVal x As Integer, y As Integer)
x＝x十10
y＝y(tǒng)十20
End Sub
Sub p3(ByValx As Integer, ByVal y As Integer)
x＝x十10
y=y十20
End Sub
該程序運行后，單擊窗體，則在窗體上顯示的內(nèi)容是：a＝______和b=______。
(8)在窗體上畫一個名稱為Commandl的命令按鈕，編寫如下事件過程
Private Sub Commandl_C1icK()
Dim As String
a=_____[11]
For i ＝1 To 5
Print Space(6-i)；Mid$3(a，6-i，2*i-1)
Nexti
End Sub
程序運行后，單擊命令按鈕，要求窗體上顯示的輸出結(jié)果為
456
34567
2345678
123456789
請?zhí)羁铡?/p>
(9)在窗體上畫一個名稱為Combo1的組合框，畫兩個名稱分別Label1和Label2及Caption屬性分別為“城市名稱”和空白的標(biāo)簽。程序運行后，當(dāng)在組合框中輸入一個新項后按回車鍵(ASCII碼為13)時，如果輸入的項在組合框的列表中不存在，則自動添加到組合框的列表中，并在Label2中給出提示“已成功添加輸入項”如圖所示； 如果存在，則在Label2中給出提示“輸入項已在組合框中”。請在[12>、[13]和[14]處將程序補充完整。
Private Sub Combol_________<12>(KeyAscii As integer)
1f KeyAscii＝13 Then
Fori＝0 To Combo1．listCount-1
1f Combo1．Text＝______ [13] Ihen
Label2．Caption＝“輸入項己在組合框中”
ExIt Sub
End lf
Next i
Label2．Caption＝“已成功添加輸入項”
Combo1．______ [14] CombO1．Text
End lf
End Sub
(10)設(shè)有如下程序
Private sub search(a()As variant，ByVal key As Variant，index%)
Dim I％
ForI＝LBound(a)To UBound(a)
If key＝a(I)Then
index＝I
Exit Sub
End If
Next I
Index＝-1
End Sub
Private Sub Form_Load()
Show
Dtm b()As Variant
Dim n As Integer
b＝Array(1，3，5，7，9，11，13，15)
Call search(b，11，n)
Printt n
End Sub
程序運行后，輸出結(jié)果是________。
2003年9月二級VB筆試試題
（考試時間90分鐘，滿分100分）
一、選擇題（（1）~（20）每小題2分，（21）~（30）每小題3分，共70分）
（1）以下敘述中錯誤的是（）。
A）Visual Basic 是事件驅(qū)動型可視化編程工具
B）Visual Basic應(yīng)用程序不具有明顯的開始和結(jié)束語句
C）Visual Basic工具箱中的所有控件都具有寬度（Width）和高度（Height）屬性
D）Visual Basic中控件的某些屬性只能在運行時設(shè)置
（2）以下敘述中錯誤的是（）。
A）在工程資源管理器窗口中只能包含一個工程文件及屬于該工程的其他文件
B）以.BAS為擴展名的文件是標(biāo)準(zhǔn)模塊文件
C）窗體文件包含該窗體及其控件的屬性
D）一個工程中可以含有多個標(biāo)準(zhǔn)模塊文件
（3）以下敘述中錯誤的是（）。
A）雙擊鼠標(biāo)可以觸發(fā)DblClick事件
B）窗體或控件的事件的名稱可以由編程人員確定
C）移動鼠標(biāo)時，會觸發(fā)MouseMove事件
D）控件的名稱可以由編程人員設(shè)定
（4）以下不屬于Visual Basic系統(tǒng)的文件類型是（）。
A）.frm
B）.bat
C）.vbg
D）.vbp
（5）以下敘述中錯誤的是（）。
A）打開一個工程文件時，系統(tǒng)自動裝入與該工程有關(guān)的窗體、標(biāo)準(zhǔn)模塊等文件
B）保存Visual Basic程序時，應(yīng)分別保存窗體文件及工程文件
C）Visual Basic應(yīng)用程序只能以解釋方式執(zhí)行
D）事件可以由用戶引發(fā)，也可以由系統(tǒng)引發(fā)
（6）以下能正確定義數(shù)據(jù)類型TelBook的代碼是（）。
A）Type TelBook
B）Type TelBook
Name As String*10
Name As String*10
TelNum As Integer
TelNum As Integer
End Type
End TelBook
C）Type TelBook
D）Typedef TelBook
Name String*10
Name String*10
TelNum Integer
TelNum Integer
End Type TelBook
End Type
（7）以下聲明語句中錯誤的是（）。
A）Const var1=123
B）Dim var2 = 'ABC'
C）DefInt a-z
D）Static var3 As Integer
（8）設(shè)窗體上有一個列表框控件List1，且其中含有若干列表項。則以下能表示當(dāng)前被選中的列表項內(nèi)容的是（）。
A）List1.List
B）List1.ListIndex
C）List1.Index
D）List1.Text
（9）程序運行后，在窗體上單擊鼠標(biāo)，此時窗體不會接收到的事件是（）。
A）MouseDown B）MouseUp
C）Load
D）Click
（10）設(shè)a=10，b=5，c=1，執(zhí)行語句Print a > b > c后，窗體上顯示的是（）。
A）True
B）False
C）
1D）出錯信息
（11）如果要改變窗體的標(biāo)題，則需要設(shè)置的屬性是（）。
A）Caption
B）Name
C）BackColor D）BorderStyle
（12）以下能判斷是否到達(dá)文件尾的函數(shù)是（）。
A）BOF
B）LOC
C）LOF
D）EOF
（13）如果一個工程含有多個窗體及標(biāo)準(zhǔn)模塊，則以下敘述中錯誤的是（）。
A）如果工程中含有Sub Main過程，則程序一定首先執(zhí)行該過程
B）不能把標(biāo)準(zhǔn)模塊設(shè)置為啟動模塊
C）用Hide方法只是隱藏一個窗體，不能從內(nèi)存中清除該窗體
D）任何時刻最多只有一個窗體是活動窗體
（14）窗體的MouseDown事件過程
Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
有4個參數(shù)，關(guān)于這些參數(shù)，正確的描述是（）。
A）通過Button參數(shù)判定當(dāng)前按下的是哪一個鼠標(biāo)鍵
B）Shift參數(shù)只能用來確定是否按下Shift鍵
C）Shift參數(shù)只能用來確定是否按下Alt和Ctrl鍵
D）參數(shù)x,y用來設(shè)置鼠標(biāo)當(dāng)前位置的坐標(biāo)
（15）設(shè)組合框Combo1中有3個項目，則以下能刪除最后一項的語句是（）。
A）Combo1.RemoveItem Text
B）Combo1.RemoveItem 2
C）Combo1.RemoveItem 3
D）Combo1.RemoveItem Combo1.Listcount
（16）以下關(guān)于焦點的敘述中，錯誤的是（）。
A）如果文本框的TabStop屬性為False，則不能接收從鍵盤上輸入的數(shù)據(jù)
B）當(dāng)文本框失去焦點時，觸發(fā)LostFocus事件
C）當(dāng)文本框的Enabled屬性為False時，其Tab順序不起作用
D）可以用TabIndex屬性改變Tab順序
（17）如果要在菜單中添加一個分隔線，則應(yīng)將其Caption屬性設(shè)置為（）。
A）=
B）*
C）&
D）-
（18）執(zhí)行語句Open “Tel.dat” For Random As #1 Len = 50后，對文件Tel.dat中的數(shù)據(jù)能夠執(zhí)行的操作是（）。
A）只能寫，不能讀
B）只能讀，不能寫
C）既可以讀，也可以寫
D）不能讀，不能寫
（19）在窗體上畫一個名稱為Command1的命令按鈕和兩個名稱分別為Text1、Text2的文本框，然后編寫如下事件過程：
Private Sub Command1_Click()
n = Text1.Text
Select Case n
Case 1 To 20
x = 10
Case 2, 4, 6
x = 20
Case Is < 10
x = 30
Case 10
x = 40
End Select
Text2.Text = x
End Sub
程序運行后，如果在文本框Text1中輸入10，然后單擊命令按鈕，則在Text2中顯示的內(nèi)容是（）。
A）10
B）20
C）30
D）40
（20）設(shè)有以下循環(huán)結(jié)構(gòu)
Do
循環(huán)體
Loop While <條件>
則以下敘述中錯誤的是（）。
A）若“條件”是一個為0的常數(shù)，則一次也不執(zhí)行循環(huán)體
B）“條件”可以是關(guān)系表達(dá)式、邏輯表達(dá)式或常數(shù)
C）循環(huán)體中可以使用Exit Do語句
D）如果“條件”總是為True，則不停地執(zhí)行循環(huán)體
（21）在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
Dim num As Integer
num = 1
Do Until num > 6
Print num;
num = num + 2.4
Loop
End Sub
程序運行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是（）。
A）1 3.4 5.8
B）1 3 5
C）1 4 7
D）無數(shù)據(jù)輸出
（22）在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
Dim a As Integer, s As Integer
a = 8
s = 1
Do
s = s + a
a = a－1
Loop While a <= 0
Print s;a
End Sub
程序運行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是（）。
A）7 9
B）34 0
C）9 7
D）死循環(huán)
（23）設(shè)有如下通用過程：
Public Function f(x As Integer)
Dim y As Integer
x = 20
y = 2
f = x * y
End Function
在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
Static x As Integer
x = 10
y=5
y = f(x)
Print x;y
End Sub
程序運行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是（）。
A）10 5
B）20 5
C）20 40
D）10 40
（24）設(shè)有如下通用過程：
Public Sub Fun(a(), ByVal x As Integer)
For i = 1 To 5
x = x + a(i)
Next
End Sub
在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫如下的事件過程：
Private Sub Command1_Click()
Dim arr(5)As Variant
For i = 1 To 5
arr(i)= i
Next
n = 10
Call Fun(arr(), n)
Text1.Text = n
End Sub
程序運行后，單擊命令按鈕，則在文本框中顯示的內(nèi)容是（）。
A）10
B）1C）25
D）24
（25）在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下代碼：
Option Base 1
Private Sub Command1_Click()
d = 0
c = 10
x = Array(10, 12, 21, 32, 24)
For i = 1 To 5
If x(i)> c Then
d = d + x(i)
c = x(i)
Else
d = d－c
End If
Next i
Print d
End Sub
程序運行后，如果單擊命令按鈕，則在窗體上輸出的內(nèi)容為（）。
A）89
B）99
C）2D）77
（26）在窗體上畫兩個滾動條，名稱分別為Hscroll1、Hscroll2；六個標(biāo)簽，名稱分別為Label1、Label2、Label3、Label4、Label5、Label6，其中標(biāo)簽Label 4~ Label6分別顯示“A”、“B”、“A*B”等文字信息，標(biāo)簽Label1、Label2分別顯示其右側(cè)的滾動條的數(shù)值，Label3 顯示A*B的計算結(jié)果。如圖所示。當(dāng)移動滾動框時，在相應(yīng)的標(biāo)簽中顯示滾動條的值。當(dāng)單擊命令按鈕“計算”時，對標(biāo)簽Label1、Label2中顯示的兩個值求積，并將結(jié)果顯示在Label3中。以下不能實現(xiàn)上述功能的事件過程是（）。
A）Private Sub Command1_Click()
Label3.Caption = Str(Val(Label1.Caption)*Val(Label2.Caption))
End Sub
B）Private Sub Command1_Click()
Label3.Caption = HScroll1.Value * HScroll2.Value
End Sub
C）Private Sub Command1_Click()
Label3.Caption = HScroll1 * HScroll2
End Sub
D）Private Sub Command1_Click()
Label3.Caption = HScroll1.Text * HScroll2.Text
End Sub
（27）在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
For n = 1 To 20
If n Mod 3 <> 0 Then m = m + n 3
Next n
Print n
End Sub
程序運行后，如果單擊命令按鈕，則窗體上顯示的內(nèi)容是（）。
A）15
B）18
C）D）24
（28）在窗體上畫一個名稱為Text1的文本框，并編寫如下程序：
Private Sub Form_Load()Show Text1.Text = “" Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Print ”程序設(shè)計“ End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)Print ”Visual Basic“;End Sub 程序運行后，如果按”A“鍵，然后單擊窗體，則在窗體上顯示的內(nèi)容是（A）Visual Basic
B）程序設(shè)計
C）A程序設(shè)計
D）Visual Basic程序設(shè)計
（29）設(shè)有如下程序：
Private Sub Command1_Click()Dim sum As Double, x As Double sum = 0 n = 0 For i = 1 To 5 x = n / i n = n + 1 sum = sum + x Next End Sub 該程序通過For循環(huán)計算一個表達(dá)式的值，這個表達(dá)式是（）。
A）1+1/2+ 2/3+3/4+4/5
B）1+1/2+2/3+3/4 C）1/2+2/3+3/4+4/
5D）1+1/2+1/3+1/4+1/5
（30）以下有關(guān)數(shù)組定義的語句序列中，錯誤的是（）。
A）Static arr1(3)
arr1(1)= 100
arr1(2)= ”Hello“
arr1(3)= 123.45 B）Dim arr2()As Integer
Dim size As Integer
Private Sub Command2_Click()
size = InputBox(”輸入：“)
ReDim arr2(size)．．．．．．
End Sub。）
C）Option Base 1
Private Sub Command3_Click()
Dim arr3(3)As Integer
．．．．．．
End Sub
D）Dim n As Integer
Private Sub Command4_Click()
Dim arr4(n)As Integer
．．．．．．
End Sub
二、填空題（每空2分，共30分）
（1）執(zhí)行下面的程序段后，i的值為 〖1〗，s的值為 〖2〗。
s = 2
For i = 3.2 To 4.9 Step 0.8
s = s + 1
Next i
（2）把窗體的KeyPreview屬性設(shè)置為True，然后編寫如下兩個事件過程：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
程序運行后，如果直接按鍵盤上的”A“鍵（即不按住Shift鍵），則在窗體上輸出的字符分別是 〖3〗 和 〖4〗。
（3）在窗體上畫一個標(biāo)簽（名稱為Label1）和一個計時器（名稱為Timer1），然后編寫如下幾個事件過程：
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 〖5〗
End Sub
Private Sub Form_Click()
Timer1.Enabled = 〖6〗
End Sub
Private Sub Timer1_Timer()
Label1.Caption = 〖7〗
End Sub
程序運行后，單擊窗體，將在標(biāo)簽中顯示當(dāng)前時間，每隔1秒鐘變換一次（見圖）。請?zhí)羁铡?/p>
——————————————————————
14：54：41
——————————————————————
（4）在窗體上畫一個文本框、一個標(biāo)簽和一個命令按鈕，其名稱分別為Text1、Label1和Command1，然后編寫如下兩個事件過程：
Private Sub Command1_Click()
S$ = InputBox(”請輸入一個字符串“)
Text1.Text = S$
End Sub
Private Sub Text1_Change()
Label1.Caption = UCase(Mid(Text1.Text, 7))
End Sub
程序運行后，單擊命令按鈕，將顯示一個輸入對話框，如果在該對話框中輸入字符串”VisualBasic“，則在標(biāo)簽中顯示的內(nèi)容是 〖8〗。
（5）在窗體上畫一個列表框、一個命令按鈕和一個標(biāo)簽，其名稱分別為List1、Command1和Label1，通過屬性窗口把列表框中的項目設(shè)置為：”第一個項目“、”第二個項目“、”第三個項目“、”第四個項目“。程序運行后，在列表框中選擇一個項目，然后單擊命令按鈕，即可將所選擇的項目刪除，并在標(biāo)簽中顯示列表框當(dāng)前的項目數(shù)，運行情況如圖所示(選擇”第三個項目“的情況)。下面是實現(xiàn)上述功能的程序，請?zhí)羁铡?/p>
Private Sub Command1_Click()
If List1.ListIndex >= 〖9〗 Then
List1.RemoveItem 〖10〗
Label1.Caption = 〖11〗
Else
MsgBox ”請選擇要刪除的項目“
End If
End Sub
—————————————————————
第一個項目
第二個項目 COMMAND1
第三個項目 3
—————————————————————
（6）設(shè)有程序：
Option Base 1
Private Sub Command1_Click()
Dim arr1, Max as Integer
arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43)
（資料來源：東方教育網(wǎng) http://004km.cn)
〖12〗 = arr1(1)
For i = 1 To 8
If arr1(i)> Max Then 〖13〗
Next i
Print ”最大值是: “;Max
End Sub
以上程序的功能是：用Array函數(shù)建立一個含有8個元素的數(shù)組，然后查找并輸出該數(shù)組中元素的最大值。請?zhí)羁铡?/p>
（7）以下程序的功能是：把當(dāng)前目錄下的順序文件smtext1.txt的內(nèi)容讀入內(nèi)存，并在文本框Text1中顯示出來。請?zhí)羁铡?/p>
Private Sub Command1_Click()
Dim inData As String
Text1.Text = ”“
Open ”.smtext1.txt“ 〖14〗 As #1
Do While 〖15〗
Input #1, inData
Text1.Text = Text1.Text & inData
Loop
Close #1
End Sub
04年4月全國計算機等級考試二級VB筆試試卷
一、選擇題（(1)—(20)每小題2分，(21)—(30)每小題3分，共70分）
下列各題 A)、B)、C)、D)四個選項中，只有一個選項是正確的，請將正確選項涂寫在答題卡相應(yīng)位置上，答在試卷上不得分。
(1)在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
Move 500，500
End Sub
程序運行后，單擊命令按鈕，執(zhí)行的操作為（）。
A)命令按鈕移動到距窗體左邊界、上邊界各500的位置
B)窗體移動到距屏幕左邊界、上邊界各500的位置
C)命令按鈕向左、上方向各移動500
D)窗體向左、上方向各移動500
(2)在窗體上有若干控件，其中有一個名稱為Text1的文本框。影響Text1的Tab順序的屬性是（）。
A)TabStop
B)Enabled
C)Visible
D)TabIndex
(3)以下定義數(shù)組或給數(shù)組元素賦值的語句中，正確的是（）。
(4)在窗體上畫一個名稱為List1的列表框，為了對列表框中的每個項目都能進(jìn)行處理，應(yīng)使用的循環(huán)語句為（）。
A)For i=0 To List1.ListCount-1
??
Next
B)For i=0 To ListCount-1
??
Next
C)For i=1 To List1.listCount
??
Next
D)For i=1 To ListCount
??
Next
(5)以下Case語句中錯誤的是（）。
A)Case 0 To 10
B)Case Is>10
C)Case Is>10 And Is<50
D)Case 3,5,Is>10
(6)以下關(guān)于圖片框控件的說法中，錯誤的是（）。
A)可以通過Print方法在圖片框中輸出文本
B)清空圖片框控件中圖形的方法之一是加載一個空圖形
C)圖片框控件可以作為容器使用
D)用Stretch屬性可以自動調(diào)整圖片框中圖形的大小
(7)執(zhí)行語句s=Len(Mid(”VisualBasic“,1,6))后，s的值是（）。
A)Visual
B)Basic
C)6
D)11
(8)以下敘述中錯誤的是（）。
A)下拉式菜單和彈出式菜單都用菜單編輯器建立
B)在多窗體程序中，每個窗體都可以建立自己的菜單系統(tǒng)
C)除分隔線外，所有菜單項都能接收Click事件
D)如果把一個菜單項的Enabled屬性設(shè)置為False，則該菜單項不可見
(9)在窗體上畫一個命令按鈕，其名稱為Command1，然后編寫如下事件過程：
Private Sub Command1_Click()
a = 12345
Print Format$(a, ”000.00“)
End Sub
程序運行后，單擊命令按鈕，窗體上顯示的是（）。
A)123.45
B)12345.00
C)12345
D)00123.45
(10)以下敘述中錯誤的是（）。
A)一個工程可以包括多種類型的文件
B)Visual Basic應(yīng)用程序既能以編譯方式執(zhí)行，也能以解釋方式執(zhí)行
C)程序運行后，在內(nèi)存中只能駐留一個窗體
D)對于事件驅(qū)動型應(yīng)用程序，每次運行時的執(zhí)行順序可以不一樣
(11)以下關(guān)于函數(shù)過程的敘述中，正確的是（）。
A)函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關(guān)系
B)在函數(shù)過程中，過程的返回值可以有多個
C)當(dāng)數(shù)組作為函數(shù)過程的參數(shù)時，既能以傳值方式傳遞，也能以傳址方式傳遞
D)如果不指明函數(shù)過程參數(shù)的類型，則該參數(shù)沒有數(shù)據(jù)類型
(12)以下關(guān)于變量作用域的敘述中，正確的是（）。
A)窗體中凡被聲明為Private的變量只能在某個指定的過程中使用
B)全局變量必須在標(biāo)準(zhǔn)模塊中聲明
C)模塊級變量只能用Private關(guān)鍵字聲明
D)Static類型變量的作用域是它所在的窗體或模塊文件
(13)確定一個控件在窗體上的位置的屬性是（）。
A)Width和Height
B)Width或Height
C)Top和Left
D)Top或Left
(14)在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫如下事件過程
Private Sub Command1_Click()
Text1.Text = ”Visual“
Me.Text1 = ”Basic“
Text1 = ”Program“
End Sub
程序運行后，如果單擊命令按鈕，則在文本框中顯示的是（）。
A)Visual
B)Basic
C)Program
D)出錯
(15)以下關(guān)系表達(dá)式中，其值為False的是（）。
A)”ABC“>”AbC“
B)”the“<>”they“
C)”VISUAL“=UCase(”Visual“)
D)”Integer“>”Int“
(16)語句Print 5/4*65 Mod 2的輸出結(jié)果是（）。
A)0
B)1
C)2
D)3
(17)在窗體上畫一個文本框、一個標(biāo)簽和一個命令按鈕，其名稱分別為Text1Label1和Command1，然后編寫如下兩個事件過程：（）。
Private Sub Command1_Click()
strText = InputBox(”請輸入“)
Text1.Text = strText
End Sub
Private Sub Text1_Change()
Label1.Caption = Right(Trim(Text1.Text), 3)
End Sub A)空
B)abcdef C)abc D)def
(18)在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
x =-5
If Sgn(x)Then
y = Sgn(x ^ 2)
Else
y = Sgn(x)
End If
Print y
End Sub
程序運行后，單擊命令按鈕，窗體上顯示的是（）。A)-5 B)25 C)1 D)-1
(19)一個工程中含有窗體Form1、Form2和標(biāo)準(zhǔn)模塊Model1，如果在Form1中有語句Pubilc X As Integer，在Model1中有語句Pubilc Y As Integer，則以下敘述中正確的是（）。A)變量X、Y的作用域相同
B)Y的作用域是Model1 C)在Form1中可以直接使用X D)在Form2中可以直接使用X和Y
(20)在窗體上畫一個名稱為Drive1的驅(qū)動器列表框，一個名稱為Dir1的目錄列表框。當(dāng)改變當(dāng)前驅(qū)動器時，目錄列表框應(yīng)該與之同步改變。設(shè)置兩個控件同步的命令放在一個事件過程中，這個事件過程是（）。A）Drive1_Change B)Drive1_Click C)Dir1_Click D)Dir1_Change
(21)在窗體上畫一個命令按鈕（其NAME屬性為Command1），然后編寫如下代碼:
Option Base 1
Private Sub Command1_Click()
Dim a
s = 0
a = Array(1,2,3,4)
j = 1
For i = 4 To 1 Step-1
s = s + a(i)* j
j = j * 10
Next i
Print s
End Sub
運行上面的程序，單擊命令按鈕，其輸出結(jié)果是（）。A)4321 B)1234 C)34 D)12
(22)在窗體上畫一個名稱為Text1的文本框，要求文本框只能接收大寫字母的輸入。以下能實現(xiàn)該操作的事件過程是（）。
A)Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 65 Or KeyAscii > 90 Then
MsgBox ”請輸入大寫字母“
KeyAscii = 0
End If
End Sub
B)Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode < 65 Or KeyCode > 90 Then
MsgBox ”請輸入大寫字母“
KeyCode = 0
End If
End Sub
C)Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Asc(Text1.Text)< 65 Or Asc(Text1.Text)> 90 Then
MsgBox ”請輸入大寫字母“
End If
End Sub
D)Private Sub Text1_Change()
If Asc(Text1.Text)> 64 And Asc(Text1.Text)< 91 Then
MsgBox ”請輸入大寫字母“
End If
End Sub
(23)假定在窗體（名稱為Form1）的代碼窗口中定義如下記錄類型：
Private Type animal
AnimalName As String*20
AColor As String*10
End Type
在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程:
Private Sub Command1_Click()
Dim rec As animal
Open ”c:vbTest.dat“ For Random As #1 Len = Len(rec)
rec.animalName = ”Cat“
rec.aColor = ”White“
Put #1, , rec
Close #1
End Sub
則以下敘述中正確的是（）。
A)記錄類型animal不能在Form1中定義，必須在標(biāo)準(zhǔn)模塊中定義 B)如果文件c:vbTest.dat不存在，則Open命令執(zhí)行失敗
C)由于Put命令中沒有指明記錄號，因此每次都把記錄寫到文件的末尾 D)語句“Put #1, , rec”將animal類型的兩個數(shù)據(jù)元素寫到文件中
(24)在窗體上畫一個名稱為Text1的文本框，一個名稱為Command1的命令按鈕，然后編寫如下事件過程和通用過程：
Private Sub Command1_Click()
n = Val(Text1.Text)
If n2 = n/2 Then
f = f1(n)
Else
f = f2(n)
End If
Print f;n
End Sub
Public Function f1(ByRef x)
x=x*x
f1=x+x
End Function
Public Function f2(ByVal x)
x=x*x
f2=x+x+x
End Function
程序運行后，在文本框中輸入6，然后單擊命令按鈕，窗體上顯示的是（）。A)72 36 B)108 36 C)72 6 D)108 6
(25)在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程:
Private Sub Command1_Click()
c = 1234
c1 = Trim(Str(c))
For i = 1 To 4
Next
End Sub
程序運行后，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容
123
1234
則在下劃線處應(yīng)填入的內(nèi)容為（）。A)Right(c1,i)B)Left(c1,i)C)Mid(c1,i,1)D)Mid(c1,i,i)
(26)在窗體上畫一個名稱為Command1的命令按鈕和一個名稱為Text1的文本框，然后編寫如下事件過程：
Private Sub Command1_Click()
n = Val(Text1.Text)
For i = 2 To n
For j = 2 To sqr(i)
If i Mod j = 0 Then Exit For
Next j
If j > Sqr(i)Then Print i
Next i
End Sub
該事件過程的功能是（）。A)輸出n以內(nèi)的奇數(shù) B)輸出n以內(nèi)的偶數(shù) C)輸出n以內(nèi)的素數(shù)
D)輸出n以內(nèi)能被j整除的數(shù)
(27)在以下描述中正確的是（）。
A)標(biāo)準(zhǔn)模塊中的任何過程都可以在整個工程范圍內(nèi)被調(diào)用
B)在一個窗體模塊中可以調(diào)用在其他窗體中被定義為Public的通用過程 C)如果工程中包含Sub Main過程，則程序?qū)⑹紫葓?zhí)行該過程
D)如果工程中不包含Sub Main過程，則程序一定首先執(zhí)行第一個建立的窗體
(28)在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下通用過程和命令按鈕的事件過程：
Private Function f(m As Integer)
If m Mod 2 = 0 Then
f = m
Else
f = 1
End If
End Function
Private Sub Command1_Click()
Dim i As Integer
s = 0
For i = 1 To 5
s = s + f(i)
Next
Print s
End Sub
程序運行后，單擊命令按鈕，在窗體上顯示的是（）。A)11 B)10 C)9 D)8
(29)在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
Dim array1(10, 10)As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
For j = 2 To 4
array1(i, j)= i + j
Next j
Next i
Text1.Text = array1(2, 3)+ array1(3, 4)
End Sub
程序運行后，單擊命令按鈕，在文本框中顯示的值是（）。A)15 B)14 C)13 D)12
(30)在窗體上畫四個文本框（如圖所示），并用這四個文本框建立一個控件數(shù)組，名稱為Text1（下標(biāo)從0開始，自左至右順序增大），然后編寫如下事件過程：
Private Sub Command1_Click()
For Each TextBox In Text1
Text1(i)= Text1(i).Index
i = i + 1
Next
End Sub
程序運行后，單擊命令按鈕，四個文本框中顯示的內(nèi)容分別為（）。A)0 1 2 3 B)1 2 3 4 C)0 1 3 2 D)出錯信息
二、填空題(每空2分，共30分)
請將每空的正確答案寫在答題卡【1】～【15】序號的橫線上，答在試卷上不得分。
(1)Visual Basic應(yīng)用程序中標(biāo)準(zhǔn)模塊文件的擴展名是【1】。
(2)在菜單編輯器中建立一個菜單，其主菜單項的名稱為mnuEdit，Visible屬性為False，程序運行后，如果用鼠標(biāo)右鍵單擊
窗體，則彈出與mnuEdit相應(yīng)的菜單。以下是實現(xiàn)上述功能的程序，請?zhí)羁铡?/p>
Private Sub Form 【2】(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=2 Then
【3】 mnuEdit
End If
End Sub
(3)為了使計時器控件Timer1每隔0.5秒觸發(fā)一次Timer事件，應(yīng)將Timer1控件的【4】屬性設(shè)置為【5】。
(4)與數(shù)學(xué)表達(dá)式 對應(yīng)的Visual Basic表達(dá)式是【6】。
(5)將C盤根目錄下的圖形文件moon.jpg裝入圖片框Picture1的語句是【7】。
(6)在窗體上畫一個名稱為Text1的文本框，然后畫三個單選按鈕，并用這三個單選按鈕建立一個控件數(shù)組，名稱為
Option1，程序運行后，如果單擊某個單選按鈕，則文本框中的字體將根據(jù)所選擇的單選按鈕切換，如圖所示，請?zhí)羁铡?/p>
Private Sub Option1_Click(Index As Integer)
Select Case 【8】
Case 0
a = ”宋體“
Case 1
a = ”黑體“
Case 2
a = ”楷體＿GB2312“
End Select
text1.【9】 =a
End Sub
(7)在窗體上畫兩個組合框，其名稱分別為Combo1、Combo2，然后畫兩個標(biāo)簽，名稱分別為Label1、Label2，如圖所示，程
序運行后，如果在某個組合框中選擇一個項目，則把所選中的項目在其下面的標(biāo)簽中顯示出來。請?zhí)羁铡?/p>
Private Sub Combo1_Click()
Call ShowItem(Combo1, Label1)
End Sub
Private Sub Combo2_Click()
Call ShowItem(Combo2, Label2)
End Sub
Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)
【10】.Caption =【11】.Text
End Sub
（8）在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
n = 5
f = 1
s = 0
For i = 1 To n
f = f【12】
s = s + f
Next
Print s
End Sub
該事件過程的功能是計算的值。請?zhí)羁铡?/p>
（9）在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下程序：
Option Base 1
Private Sub Command1_Click()
Dim a(10)As Integer
For i = 1 To 10
a(i)= i
Next
Call swap（【13】）
For i = 1 To 10
Print a(i);
Next
End Sub
Sub swap(b()As Integer)
n = 【14】
For i = 1 To n / 2
t = b(i)
b(i)= b(n)
b(n)= t
【15】
Next
End Sub
上述程序的功能是，通過調(diào)用過程swap，調(diào)換數(shù)組中數(shù)值的存放位置，即a(1)與a(10)的值互換，a(2)與a(9)的值互換，??，a(5)與a(6)的值互換。請?zhí)羁铡?/p>
04年9月全國計算機等級考試二級VB筆試試卷
一、選擇題（(1)—(20)每小題2分，(21)—(30)每小題3分，共70分）
(1)設(shè)窗體上有一個文本框，名稱為text1,程序運行后，要求該文本框不能接受鍵盤輸入，但能輸出信息，以下屬性設(shè)置正確的是：（）。A)text1.maxlength=0 B)text1.enabled=flase C)text1.visible=flase D)text1.width=0
(2)以下能在窗體Form1的標(biāo)題欄中顯示“VisualBasic窗體”的語句是（）。A)Form1.Name=“VisualBasic窗體” B)Form1.Title=“VisualBasic窗體” C)Form1.Caption=“VisualBasic窗體” D)Form1.Text=“VisualBasic窗體”
(3)在窗體上畫一個名稱為Text1的文本框，然后畫一個名稱為HScroll1的滾動條，其Min和Max屬性分別為0和100。程序運行后，如果移動滾動框，則在文本框中顯示滾動條的當(dāng)前值，如圖所示：
以下能實現(xiàn)上述操作的程序段是（）。A)Private Sub HScroll_Change()Text1.Text=HScroll1.value End Sub B)Private Sub HScroll_Click()Text1.Text=HScroll1.value End Sub C)Private Sub HScroll_Change()Text1.Text=HScroll.Caption D)Private Sub HScroll_Click()Text1.Text=HScroll.Caption End Sub
(4)設(shè)菜單中有一個菜單項為”O(jiān)pen“。若要為該菜單命令設(shè)計訪問鍵，即按下Alt及字母O時，能夠執(zhí)行”O(jiān)pen“命令，則在菜單編輯器中設(shè)置“Open”命令的方式是（）。A)把Caption屬性設(shè)置為&Open B)把Caption屬性設(shè)置為O&pen C)把Name屬性設(shè)置為&Open D)把Name屬性設(shè)置為O&pen
(5)在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click()x=InputBox(“Input”)Select Case x Case 1,3 Print “分支 1” Case Is >4 Print “分支 2” Case Else Print “Else 分支 ” End Select End Sub 程序運行后，如果在輸入對話框中輸入2，則窗體上顯示的是（）。A）分支1 B）分支2 C）Else分支
D)程序出錯
(6)以下關(guān)于MsgBox的敘述中，錯誤的是（）。A）MsgBox函數(shù)返回一個整數(shù)
第三篇：VB筆試復(fù)習(xí)題
學(xué)參教育東北林業(yè)大學(xué)考研網(wǎng)http://
筆試復(fù)習(xí)題
筆試占總分的50％、平時占10％、上機占40％。
筆試時間為1小時。四道大題為：程序填空、程序運行結(jié)果、程序段功能、編程題
復(fù)習(xí)范圍
隨機整數(shù)[A,B]
公式：Int(Rnd*(B-A+1)+A)1． 循環(huán)
（1）打印三角形 方法一：用單重循環(huán) Private Sub Form_Click()For i = 1 To 8
Print Tab(151, “*”)Next i End Sub
方法二：用多重循環(huán) Private Sub Form_Click()For i = 1 To 8 Print Tab(151 Print “*”;Next j Print Next i End Sub
（2）求積數(shù)部分和
P88 例4.18p268習(xí)題3Private Sub Form_Click()Dim s!,i%,t!i=1:t=2:s=
1Do while 1/t>0.0001
s=s+1/t i=i+1 t=t+iLoop
Print “共計算”;i-1;“項”Print “s=”;s End Sub
（3）求100到200之間的所有素數(shù)。Private Sub Form_Click()Dim t As Boolean
For x = 101 To 200 Step 2 t = True
For i = 2 To xx * 100)/ 10)z = iy * 10
If i = x * x * x + y * y * y + z * z * z ThenPrint i, End If Next i End Sub
(6)最大值、最小值。2． 數(shù)組(1)排序
P106 例5.5 從小到大排序
Private Sub Form_Click()
學(xué)參教育東北林業(yè)大學(xué)考研網(wǎng)http://
Dim a()As Integer n = Val(InputBox(“n”))ReDim a(1 To n)As Integer Randomize For i = 1 To n
a(i)= Int(Rnd * 101 + 100)Print a(i);
If i Mod 10 = 0 Then Print Next i
For i = 1 To n1
s(i, j)= s(i1)+ s(i2 * i + 4 * j);s(i, j);Next j
Picture1.Print Next i End Sub 3． 過程
（1）s=4!+5!+6!
Private Sub Form_Click()Print fax(4)+ fax(5)+ fax(6)End Sub
Private Function fax(k As Integer)As Single t = 1
For i = 2 To k t = t * i Next i fax = t
End Function
（2）回文數(shù)P2784
Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then
If Not IsNumeric(Text1)Then
MsgBox “輸入非數(shù)字串，重新輸入”Text1.Text = “"Text1.SetFocusElse
If IsH(Text1)Then
Picture1.Print Text1;” ★ “Else
Picture1.Print Text1End IfText1 = ”"End IfEnd If End Sub
Function IsH(ss As String)As BooleanDim i%, Ls%IsH = Truess = Trim(ss)Ls = Len(ss)
For i = 1 To Ls 2
If Mid(ss, i, 1)<> Mid(ss, Ls + 1-i, 1)ThenIsH = FalseExit FunctionEnd IfNext i End Function
4． 文件(要求掌握隨機文件)講稿中例題
第四篇：全國VB二級操作試題及答案2016
一、基本操作題
(1)在名稱為Forml，標(biāo)題為“輸入”、最大化按鈕不可用的窗體上畫1個名稱為Framel的框架控件，其標(biāo)題為“選擇性別”;再向框架內(nèi)畫兩個名稱分別為Optionl和Option2的單選按鈕，其標(biāo)題分別為“男”和“女”，并將單選按鈕Option2設(shè)置為選中狀態(tài)。請設(shè)置相應(yīng)屬性使得程序執(zhí)行時，窗體界面如圖所示。
注意：存盤時，將文件保存至考生文件夾下，窗體文件名為sjtl.frm，工程文件名為sjtl.vbp。
(2)在名稱為Forml的窗體上畫1個名稱為Labell的標(biāo)簽，其標(biāo)題為“計算機等級考試”，且能根據(jù)標(biāo)題內(nèi)容自動調(diào)整大小，有邊框(如圖所示);再在窗體上畫1個名稱為HScrolll的水平滾動條，并將滾動條所能表示的最小值設(shè)置為
10、最大值設(shè)置為20。
要求：編寫適當(dāng)?shù)氖录^程，使得程序運行時，當(dāng)單擊水平滾動條兩端的箭頭時，能將標(biāo)簽中的文字大小設(shè)置為滾動框當(dāng)前位置值，程序運行后的界面如圖所示。
注意：程序中不得使用變量，每個事件過程中只能寫一條語句(不得使用選擇語句或循環(huán)語句)。存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。
二、簡單應(yīng)用題
(1)考生文件夾中有工程文件sjt3.vbv。窗體上顯示有一個列表框和一個文本框，且列表框中已有若干列表項。程序的功能是，程序運行時，當(dāng)用戶在列表框中單擊并選中某個列表項時，該項的內(nèi)容將顯示到文本框中，用戶可以在文本框中對相關(guān)內(nèi)容進(jìn)行編輯，按回車鍵后，能夠用編輯好的內(nèi)容替換被選中的列表項，并自動清空文本框;當(dāng)雙擊某個列表項時，則從列表框中刪除該列表項;當(dāng)用戶直接在文本框中鍵入文本并按回車鍵后，則把該文本添加為列表框的一個新列表項，添加完成后，將文本框清空。運行窗體如圖所示。
要求：程序已經(jīng)給出，但不完整，請將其中的注釋符去掉，把“?”改為正確的內(nèi)容，以實現(xiàn)上述程序功能。
注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序。最后程序按原文件名存盤。
(2)考生文件夾中有一個工程文件sjt4.vbp。窗體上有兩個文本框和一個標(biāo)題為“運算”的命令按鈕。程序的功能是，當(dāng)程序運行時，單擊“運算”按鈕，能夠產(chǎn)生10個1～100之間的隨機整數(shù)，并顯示在上面一個文本框中，然后，程序從中找出一個最大值，并將最大值與第1個數(shù)互換位置，最后把結(jié)果顯示在下面一個文本框中。下圖為程序某次運行的結(jié)果。程序已經(jīng)給出，但不完整，請將其中的注釋符去掉，把“?”改為正確的內(nèi)容，以實現(xiàn)上述程序功能。
注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，最后程序按原文件名存盤。
三、綜合應(yīng)用題
考生文件夾下有工程文件sjt5.vbp，窗體界面如圖所示?？忌募A下的in5.dat文件中有某次歌睦大獎賽10位選手的得分，文件中的每一行數(shù)據(jù)包含選手的編號及5位評委的打分。程序運行時，單擊“顯示數(shù)據(jù)”按鈕，則將in5.dat文件的內(nèi)容讀入二維數(shù)組a中，并將數(shù)組a各元素的值顯示在Textl文本框中;單擊“計算并排序”按鈕，則先計算每位選手的平均分作為最后得分，再按最后得分從高到低排序，最后按序在Listl列表框中顯示各選手的編號和最后得分(每組編號和最后得分用空格隔開作為一行)。單擊“保存”按鈕，則保存結(jié)果。“顯示數(shù)據(jù)”和“保存”按鈕的Click事件過程已經(jīng)給出，請編寫“計算并排序”按鈕的Click事件過程實現(xiàn)上述功能。
注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，在結(jié)束程序運行之前，必須單擊“計算并排序”按鈕后，再單擊“保存”按鈕保存結(jié)果，否則無成績。最后，程序按原文件名存盤。
參考答案及解析
一、基本操作題
(1)【解題思路】新建一個空白窗體，添加一個框架控件和兩個單選按鈕控件，設(shè)置窗體和控件的相關(guān)屬性值。
【操作步驟】
步驟1：新建一個“輸入”、最大化按鈕不可用的窗體，相關(guān)屬性設(shè)置如表4.1所示。
步驟2：向窗體中添加一個框架控件和兩個選項按鈕，并設(shè)置好相關(guān)屬性，如表4.2所示。
設(shè)置完成后效果如圖4.1所示。
步驟3：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤。
(2)【解題思路】新建一個空白窗體，添加一個標(biāo)簽控件和一個水平滾動條控件，設(shè)置好該控件的相關(guān)屬性，最后通過水平滾動條的change事件，將標(biāo)簽控件的fontSize屬性設(shè)置為滾動條的value值。
步驟3：添加一個水平滾動條，設(shè)置控件的相關(guān)屬性，如
表4.4所示。
設(shè)置完成后，窗體運行效果如圖4.2所示。
步驟5：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤。
二、簡單應(yīng)用題
(1)【解題思路】本題主要考查對列表框控件的使用，包括向列表框中增加項目，從列表框中刪除項目。修改列表框中選中項目的值。
第一個空使用列表框的Text屬性，該屬性的值為最后一次選中的表項的文本。
第二個空使用列表框的Lisflndex屬性，該屬性的值是已選中的表項的位置。
第三個空判斷Text1文本框中的內(nèi)容是否為空。
第四個空表示當(dāng)列表框中無選中項目時，將Text1中的內(nèi)容添加到列表框的最后。
第五個空表示將Text1文本框中的文本替換為列表框中選中的項目，使用列表框的List和ListIndex屬性。
步驟3：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤
(2)【解題思路】本題主要考核對數(shù)組中元素的基本操作，利用循環(huán)語句找出數(shù)組中的最大值，并將保存最大值和其所對應(yīng)的下標(biāo)，然后將最大值與數(shù)組中的第一個元素進(jìn)行互換操作。
三、綜合應(yīng)用題
【解題思路】本題主要考核列表框控件的基本操作，在事件過程中利用循環(huán)結(jié)構(gòu)對二維數(shù)組中的元素求平均值，并將結(jié)果添加到列表框中，然后利用二重循環(huán)結(jié)構(gòu)對列表框中的元素進(jìn)行降序排列。
步驟3：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤。
第五篇：二級VB用戶手冊
無憂考試吧(http://ncre.wyk8.com)全國計算機等級考試超級模擬軟件用戶手冊
二級Visual Basic語言程序設(shè)計 1.1 引言
南京易考無憂科技有限公司研制的全國計算機等級考試超級模擬軟件提供了開放式的考試環(huán)境，具有自動計時、自動閱卷評分、完全模擬真實考場等功能，能讓考生盡快熟悉等級考試的考試環(huán)境，掌握全國計算機等級考試的出題規(guī)律，順利地通過考試。
全國計算機等級考試超級模擬軟件（二級Visual Basic）題型為選擇題、基本操作題、簡單應(yīng)用題和綜合應(yīng)用題。
等級考試中上機考試部分在中文版Windows 7系統(tǒng)環(huán)境下運行，用來測試考生在Windows的環(huán)境下對Visual Basic編程軟件的使用能力。
1.2 安裝過程
1）啟動計算機，進(jìn)入Windows 7操作系統(tǒng)。
2）雙擊運行無憂全國計算機等級考試模擬軟件安裝包，然后按提示進(jìn)行安裝。3）安裝成功后，系統(tǒng)將自動在桌面上創(chuàng)建 “二級VB練習(xí)”和“二級VB考試”的快捷方式圖標(biāo)，并在“程序”菜單項中增加“全國計算機等級考試超級模擬軟件（二級VB）”。
1.3 考試環(huán)境
1.3.1 硬件環(huán)境
CPU：1G或以上 內(nèi)存：512M或以上
硬盤：剩余空間500M或以上
1.3.2 軟件環(huán)境
·1· 無憂考試吧(http://ncre.wyk8.com)中文版Windows 7 中文版Visual Basic 6.0 1.3.3 軟件使用模式
本軟件有2種使用模式：“離線模式”和“聯(lián)網(wǎng)模式”。
離線模式：僅固定在一臺電腦上使用。激活方法：登錄http://ncre.wyk8.com，在會員中心或主頁面單擊“激活軟件”按鈕，按提示進(jìn)行操作。獲得激活碼后，啟動模擬軟件，選擇“離線模式”，輸入激活碼激活相應(yīng)的科目。
聯(lián)網(wǎng)模式：在任意聯(lián)網(wǎng)的電腦上使用。開通方法：啟動模擬軟件，選擇“聯(lián)網(wǎng)模式”，使用會員名登錄模擬軟件，輸入激活卡號、密碼開通相應(yīng)的科目。
1.4 軟件試用（未激活狀態(tài)下）步驟
軟件未激活，試用時只能看到五套試題。
1.4.1 “離線模式”下試用
1）雙擊桌面上的“二級VB練習(xí)”（或“二級VB考試”）快捷方式，出現(xiàn)下圖所示的界面：
2）單擊“離線模式”按鈕，出現(xiàn)下圖所示的界面：
·2· 無憂考試吧(http://ncre.wyk8.com)
3）單擊“先試用，以后激活”按鈕，即可進(jìn)入試用模式（可以抽取5套試卷）。4）在操作步驟2中，單擊“更改模式”按鈕可以切換到模式選擇界面。
1.4.2 “聯(lián)網(wǎng)模式”下試用
1）雙擊桌面上的“二級VB練習(xí)”（或“二級VB考試”）快捷方式，出現(xiàn)下圖所示的界面：
2）單擊“聯(lián)網(wǎng)模式”按鈕，出現(xiàn)下圖所示的界面：
·3· 無憂考試吧(http://ncre.wyk8.com)
3）單擊“試用軟件”按鈕，即可進(jìn)入試用模式（可以抽取5套試卷）.4）在操作步驟2中，單擊右上角“更換模式”按鈕可以切換到模式選擇界面。
1.5 軟件激活步驟
本軟件為激活版，請按以下步驟進(jìn)行激活（兩種模式中任選一種，激活后，將不能更換使用模式）。
1.5.1 如果您的電腦不能上網(wǎng)，請選擇“離線模式”
1）單擊“離線模式”按鈕，出現(xiàn)下圖所示的界面：
2）在軟件激活界面中，單擊“復(fù)制產(chǎn)品ID”按鈕（可以將復(fù)制的產(chǎn)品ID粘貼保存在記事本中）。
3）準(zhǔn)備好激活卡、產(chǎn)品ID，可以用手機上網(wǎng)，也可以到能上網(wǎng)的電腦上，輸入
·4· 無憂考試吧(http://ncre.wyk8.com)網(wǎng)址：http://ncre.wyk8.com/，注冊成為無憂考吧會員，進(jìn)入會員中心。單擊頁面左側(cè)“考試應(yīng)用”下的“計算機等級考試”，出現(xiàn)下圖界面：
4）在產(chǎn)品激活頁面中輸入產(chǎn)品ID、激活卡卡號、激活卡密碼和驗證碼，單擊“激活”按鈕，出現(xiàn)下圖所示界面：
5）激活成功后，在激活記錄表中可以看到軟件激活的相關(guān)信息。紅色部分為激活碼，用于軟件激活。請一定將獲得的激活碼記錄下來或復(fù)制到U盤中保存。（注意：請牢記激活碼，并及時到您的電腦上激活軟件。）
6）在軟件激活界面中輸入獲得的激活碼和驗證碼，如下圖所示的界面：
·5· 無憂考試吧(http://ncre.wyk8.com)
7）單擊“激活”按鈕，彈出軟件激活成功界面，如下圖。
1.5.2 如果您希望可以在任意一臺可以上網(wǎng)的電腦上使用本軟件，請選擇“聯(lián)網(wǎng)模式”
1）雙擊桌面上的“二級VB練習(xí)”（或“二級VB考試”）快捷方式，出現(xiàn)下圖所示的界面：
·6·
無憂考試吧(http://ncre.wyk8.com)2）單擊“聯(lián)網(wǎng)模式”按鈕，出現(xiàn)下圖所示的界面：
3）如果您已經(jīng)注冊成為ncre.wyk8.com網(wǎng)站的會員（尚未注冊成為會員的用戶請看操作步驟5），請輸入會員名、會員密碼，單擊“現(xiàn)在登錄”按鈕，跳轉(zhuǎn)到激活產(chǎn)品界面進(jìn)行產(chǎn)品激活（如下圖）：
4）請輸入激活卡號、激活卡密碼和驗證碼，單擊“激活產(chǎn)品”按鈕，此時窗口跳轉(zhuǎn)到等考練習(xí)界面或等考考試界面表示本軟件激活成功。
5）尚未注冊成為會員的用戶，需要注冊成為會員再進(jìn)行軟件激活。注冊方法：單擊“立即注冊”按鈕，彈出下圖界面；
·7· 無憂考試吧(http://ncre.wyk8.com)
6）填寫相關(guān)會員注冊信息，完成后單擊“同意以下條款并注冊”，此時彈出一個新的界面（如下圖），要求填寫報考區(qū)域、我的學(xué)校（這兩項為必填項），密碼保護問題可填可不填。
7）信息填寫完整后，點擊“提交”按鈕，此時彈出會員名注冊成功信息（如下圖），然后按照步驟
3、步驟4對軟件進(jìn)行激活。
·8· 無憂考試吧(http://ncre.wyk8.com)
1.6 軟件操作說明
1.6.1 上機練習(xí)
1）雙擊桌面上的“二級VB練習(xí)”快捷方式。2）單擊“上機練習(xí)”項，將彈出下圖所示的畫面：
考生可根據(jù)自己的需要選擇練習(xí)選項。
隨機出題：系統(tǒng)會在固定的套數(shù)范圍內(nèi)，隨機抽取某一套試卷供您練習(xí)。固定抽題：系統(tǒng)會將系統(tǒng)里所有的題目分成若干套數(shù)顯示給用戶，由用戶自己決定要練習(xí)的試卷套號，方便考生系統(tǒng)練習(xí)。
重復(fù)抽題：抽取最近一次測試的試卷，方便考生反復(fù)練習(xí)，加強記憶。
恢復(fù)現(xiàn)場：恢復(fù)最近一次測試的試卷和答題情況，可以幫助考生完成上次沒有完成的練習(xí)。
·9· 無憂考試吧(http://ncre.wyk8.com)3）考生可根據(jù)自己的需要選擇練習(xí)選項。下面以單擊“固定抽題”為例，出現(xiàn)下圖所示的畫面：
4）輸入所需固定抽題的套數(shù)，單擊“確定”按鈕，將出現(xiàn)如下畫面：
1.選擇題
鼠標(biāo)單擊選擇題，然后從“答題”菜單中選擇“選擇題”菜單項，出現(xiàn)下圖所示的選擇題界面：
·10· 無憂考試吧(http://ncre.wyk8.com)
直接用鼠標(biāo)左鍵單擊選擇答案選項，同時題號處有不同的顏色顯示，尚未做的試題顯示為紅色，已經(jīng)做過的試題顯示為淺藍(lán)。單擊“答案”按鈕，當(dāng)前題的正確選項會來回變換顏色。單擊“評析”按鈕，可以查看當(dāng)前題目的評析。單擊“保存并退出”按鈕，返回到練習(xí)主界面，選擇其他類型的試題。
2.基本操作題、簡單應(yīng)用題和綜合應(yīng)用題
從“答題”菜單中選擇“啟動Visual Basic”，系統(tǒng)將自動運行注冊過的Visual Basic 6.0版本，即可進(jìn)行做題。請按照試題內(nèi)容的要求進(jìn)行操作，將文件存放在考生文件夾下。
技巧：在操作過程中要對試題進(jìn)行評分，可用“評分”菜單中的“評當(dāng)前題”或“評全部題”，評完后可以返回繼續(xù)做題。
在操作過程中要查看操作步驟，可單擊“操作演示”菜單中的“[基本操作題]演示”，“[簡單應(yīng)用題]演示”或“[綜合應(yīng)用題]演示”查看。
在操作過程中要添加筆記，可用“筆記”菜單中的“添加筆記”，添加后可用菜單中的“修改筆記”，“查看筆記” 對筆記進(jìn)行修改和查看。也可用此菜單中的“標(biāo)記此題”進(jìn)行標(biāo)記，以便通過“練習(xí)日志”中的“標(biāo)記練習(xí)”再次做題。
注意：做完題后，請先將Visual Basic程序關(guān)閉，然后再評分。
當(dāng)考生做完所有的試題后，單擊屏幕上狀態(tài)欄中的“交卷”按鈕，系統(tǒng)自動進(jìn)行評分，評分完成后出現(xiàn)下圖所示的畫面：
·11· 無憂考試吧(http://ncre.wyk8.com)
該畫面列出考生的得分和錯誤信息，單擊“評析”按鈕，可以查看題面以及詳盡的評析。
查看完畢后，請單擊“退出”按鈕。
5）單擊“操作演示”即可觀看當(dāng)前題目的操作演示。
6）單擊“返回”按鈕，系統(tǒng)返回做題界面，可重復(fù)做當(dāng)前的題目。
1.6.2 上機考試
1）雙擊桌面上的“二級VB上機考試”快捷方式。
·12· 無憂考試吧(http://ncre.wyk8.com)
2)單擊“開始登錄”按鈕，進(jìn)入登錄界面，在“準(zhǔn)考證號”欄中輸入準(zhǔn)考證號碼。
注：二級Visual Basic考試的準(zhǔn)考證號為260199990001－260199990005。輸入準(zhǔn)考證號前，將鼠標(biāo)停留在輸入欄的位置，系統(tǒng)會提示準(zhǔn)考證范圍。
3）單擊“登錄”按鈕，系統(tǒng)出現(xiàn)下圖所示的提示：
·13· 無憂考試吧(http://ncre.wyk8.com)
4）單擊“是”按鈕，進(jìn)入下圖所示的登錄界面：
5）單擊“開始考試”按鈕，系統(tǒng)開始抽題，然后出現(xiàn)下圖所示的界面：
6）勾選“已閱讀”后，單擊“開始考試并計時”，即可按照題面的提示進(jìn)行操
·14· 無憂考試吧(http://ncre.wyk8.com)作?？荚囘^程和方法與前面“練習(xí)”一樣。
7）交卷后顯示每題得分和總分。
8）如果對得分不滿意，希望重做且上一次考試的時間沒有用完，則可以退出后重新進(jìn)入登錄界面，輸入剛才的準(zhǔn)考證號，驗證并確認(rèn)后出現(xiàn)如下對話框：
9）單擊“確定”按鈕，出現(xiàn)下圖所示界面：
·15· 無憂考試吧(http://ncre.wyk8.com)
輸入“ABC”，并單擊“密碼驗證”按鈕后即可重做剛才那套試卷（如果上一次考試時間已經(jīng)用完，則進(jìn)入考試界面后會立即強制交卷）。如輸入“WY”則系統(tǒng)會重新抽取一套新的上機題。
1.6.3 輔助功能
雙擊桌面上的“二級VB練習(xí)”快捷方式，單擊左側(cè)“輔助功能”項，將彈出下圖所示的畫面：
1.練習(xí)日志
·16· 無憂考試吧(http://ncre.wyk8.com)單擊“練習(xí)日志”，可查看歷次練習(xí)的情況統(tǒng)計。
練習(xí)日志提供了列表顯示和圖形顯示兩種方式，列表顯示可以查看先前練習(xí)的時間、類型以及得分情況，圖形顯示又分條形圖和線形圖，讓你更直觀地了解自己做題的不足。
練習(xí)日志最重要的是提供了各項輔助功能：（1）通過“試卷重做”功能對試題進(jìn)行重做；（2）通過“查看試卷”功能查看做過的試卷情況；（3）通過“打印試卷”功能將練習(xí)過的試卷打印出來；（4）通過“錯題重做”功能將練習(xí)中出現(xiàn)的錯題進(jìn)行重做，即只做曾經(jīng)做錯的題，加強了復(fù)習(xí)的目標(biāo)性；（5）通過“標(biāo)記練習(xí)”功能對練習(xí)時做標(biāo)記的題再次練習(xí)，以方便考生直接定位于自己的需求。
單擊右上角的關(guān)閉按鈕，可回到輔助功能主界面。
2.查看筆記
單擊“查看筆記”，可查看在考試中添加的筆記。
·17· 無憂考試吧(http://ncre.wyk8.com)
筆記可以用來記錄下當(dāng)前題目的心得體會，或者標(biāo)記題目的重要性。同時筆記會將創(chuàng)建時間、查看次數(shù)和題目的題面自動保存下來，以便以后查看。這些筆記都將是你積累下來的財富。在考前沖刺復(fù)習(xí)中將會起到很大的作用。
查看筆記時，可以通過菜單欄上的“修改”、“刪除”按鈕，對已經(jīng)存在的筆記進(jìn)行相應(yīng)操作，其中，修改筆記后，可以通過“保存”按鈕保存對筆記的修改。
在對筆記進(jìn)行查看的過程中，也可以通過單擊界面上的“顯示評析”按鈕查看對應(yīng)題的評析。
3.考前攻略
單擊“考前攻略”，可查看在學(xué)習(xí)、復(fù)習(xí)等方法和策略，也可以了解等考相關(guān)信息及考試注意事項等。
·18· 無憂考試吧(http://ncre.wyk8.com)1.6.4 常見問題功能
單擊“常見問題”功能按鈕，可以打開“常見問題.htm”網(wǎng)頁。在打開的網(wǎng)頁中，有常見問題解答。用戶可以自行查找相關(guān)問題，從中獲得解決方法。
·19·
點擊咨詢 