10、alse
[例3-8]. 設(shè)a=10，b=5，c?=1，執(zhí)行語句Print?a?>?b?>?c后，窗體上顯示的是
? A)True? B)False? C)1? D)出錯信息
9. 表達(dá)式中運(yùn)算符的優(yōu)先級:
算術(shù)運(yùn)算符>字符運(yùn)算符>關(guān)系運(yùn)算符>邏輯運(yùn)算
10.常用內(nèi)部函數(shù):
算術(shù)函數(shù)： Rnd,Int
,Sqr,Abs
字符串函數(shù)：Left,Right,Mid,Len,String，InStr
日期時間函數(shù)：Date, Time, Year,Month,Day
其它函數(shù)：Val, Format
[例3
11、-9]. 在窗體上畫一個命令按鈕，其名稱為Command1，然后編寫如下事件過程：
Private Sub Command1_Click()
a = 12345
Print Format$(a, "000.00")
End Sub
程序運(yùn)行后，單擊命令按鈕，窗體上顯示的是
A) 123.45 B) 12345.00 C) 12345 D)00123.45
[例3-10]. 執(zhí)行語句s=Len(Mid("VisualBasic",1,6))后，s的值是 。
A) Visua
12、l B) Basic C) 6 D) 11
[例3-11]. 寫一個產(chǎn)生一個大于等于50,且小于等于100隨機(jī)整數(shù)的表達(dá)式。
[例3-12]. N是一個個位不等于零二位整數(shù)，寫一個表達(dá)式將N的個位與十位交換。
[例3-13]. 設(shè)有如下程序段：
a$=”BeijingShanghai”
b$=Mid(a$,InStr(a$,”g”)+1)
執(zhí)行上面的程序段后，變量b$的值為 。
[例3-14]. 與數(shù)學(xué)表達(dá)式Cos2(a+b)/(3×x)+5 對應(yīng)的Visual Basic表達(dá)式是
13、 。
第四章 基本的控制結(jié)構(gòu)
1. 結(jié)構(gòu)化程序設(shè)計的三種基本結(jié)構(gòu): 順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)
2．賦值語句格式:變量名＝表達(dá)式
3. 與用戶交互函數(shù)和過程
:
InputBox函數(shù)
、MsgBox函數(shù)和MsgBox過程
[例4-1]. 執(zhí)行如下語句：
a = InputBox("Today", "Tomorrow", "Yesterday")
將顯示一個輸入對話框，在對話框的輸入?yún)^(qū)中顯示的信息是 。
A）T
14、oday B）Tomorrow C）Yesterday D）Day before yesterday
[例4-2]. 在窗體上畫一個命令按鈕，名稱為Command1。單擊命令按鈕時，執(zhí)行如下事件過程：
Private Sub Command1_Click()
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 hardw
15、are B）software C）hardware D）1
[例4-3]. 以下關(guān)于MsgBox的敘述中，錯誤的是
A）MsgBox函數(shù)返回的一個整數(shù)
B）通過MsgBox函數(shù)可以設(shè)置信息框中的圖標(biāo)和按鈕的類型
C）MsgBox語句沒有返回值
D）MsgBox函數(shù)的第二個參數(shù)是一個整數(shù)，該參數(shù)只能確定對話框中顯示的按鈕數(shù)量
4．選 擇 結(jié) 構(gòu)
：
4.1．If 語句
If…Then語句(單分支結(jié)構(gòu))
If…Then…Else語句(雙分支結(jié)構(gòu))
If…Then…ElseIf語句(多分支結(jié)構(gòu))
4.2．Select
16、 Case多分支語句
Select Case 測試表達(dá)式
Case 表達(dá)式表1
語句塊1
Case表達(dá)式表1
語句塊2
…
Case Else
語句塊n
End Select
[例4-4]. 在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click（）
X= Val(InputBox (“Input”))
Select Case X
17、 Case 1,3
Print “分支1”
Case Is > 4
Print “分支2”
Case Else
Print “Else分支”
End Select
End Sub
程序運(yùn)行后，如果在輸入對話框中輸入2，則窗體上顯示的是
A）分支1 B）分支2 C）Else分支 D）程序出錯
4.3. 條件函數(shù)：IIf函數(shù)
IIf函數(shù)形式是：
IIf（表達(dá)式，當(dāng)表達(dá)式為True時的值，當(dāng)表達(dá)式
18、為False時的值）
5. 循 環(huán) 結(jié) 構(gòu)
w For … Next 循環(huán)語句
[例4-5].執(zhí)行下面的程序段后，變量S的值為 【 】 。
s=0
For k=10 To 50 Step 15
s=s+k
Next k
If k>50 Then
s=s+k
Else
s=s-k
End If
[例4-6].執(zhí)行下面的程序段后，變量S的值為 【 】 。
S = 5
For i = 2.6 To 4.9 Step 0.6
S = S + 1
Next I
[例4-
19、7].執(zhí)行下面的程序段后，i的值為【 】 ，s的值為【 】。
s = 2
For i = 3.2 To 4.9 Step 0.8
s = s + 1
Next i
[例4-8]. 在窗體上畫一個名稱為Command1的命令按鈕，一個名稱為Label1的標(biāo)簽，然后編寫如下事件過程：
Private Sub Command1_Click()
s = 0
For i = 1 To 15
x = 2 *
20、 i - 1
If x Mod 3 = 0 Then s = s + 1
Next i
Label1.Caption = s
End Sub
程序運(yùn)行后，單擊命令按鈕，則標(biāo)簽中顯示的內(nèi)容是 。
A）1 B）5 C）27 D）45
[例4-9]. 設(shè)有如下程序段：
x = 2
For i = 1 To 10 Step 2
x = x + i
Next
運(yùn)行以上程序后，x的值是
A）26
21、 B）27 C）38 D）57
w Do…Loop循環(huán)語句
[例4-10]. 在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
Dim num As Integer
num = 1
Do Until num > 6
Print num;
num = num + 2.4
Loop
End
22、 Sub
程序運(yùn)行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是 。
A）1 3.4 5.8 B）1 3 5 C）1 4 7 D）無數(shù)據(jù)輸出
[例4-11]. 在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
Dim a As Integer, s As Integer
a = 8
s = 1
Do
s = s + a
23、 a = a－1
Loop While a <= 0
Print s; a
End Sub
程序運(yùn)行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是
A） 7 9 B） 34 0 C） 9 7 D）死循環(huán)
w 循環(huán)嵌套
[例4-12].閱讀下面的程序段：
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
24、??????????? C) 14?????????? D)
6. Exit語句
多種形式： Exit For、Exit Do、Exit Sub、Exit Function等。
作用：退出某種控制結(jié)構(gòu)的執(zhí)行。
7. End語句
多種形式： End、 End If、 End Select、 End Sub、 End Function、
作用：End結(jié)束一個程序的運(yùn)行；其余表示某個結(jié)構(gòu)的結(jié)束，與對應(yīng)的結(jié)構(gòu)語句配對出現(xiàn)。
第五章 常 用 控 件
1. 單選鈕和復(fù)選框
Caption屬性：文本標(biāo)題
Value屬性
單選鈕(邏輯型) 檢查框（數(shù)
25、值型）
True：選定 0--Unchecked：未被選定
False：未選定 1--Checked：選定
2--Grayed：灰色，禁止選擇
[例5-1]. 復(fù)選框是否被選中可以通過其以下屬性的值來確定 。
A) True B) False C) Value D) Cancel
[例5-2].下面的_______ 控件不具備Caption屬性。
A）標(biāo)簽框??? B）單選按鈕??? C）命令按鈕??? D）文
26、本框
2. 框架(Frame) Caption屬性：框架標(biāo)題
3. 列表框和組合框
屬性： List ListCount ListIndex Text
方法： Clear Additem RemoveItem
[例5-3]. Visual Basic中有一種控件組合了文本框和列表框的特性，這種控件是 。
[例5-4]. 設(shè)組合框Combo1中有3個項目，則以下能刪除最后一項的語句是
A）Combo1.RemoveItem Text
B）Combo1.RemoveItem 2
27、 C）Combo1.RemoveItem 3
D）Combo1.RemoveItem Combo1.Listcount
[例5-5].在窗體上畫一個列表框、一個命令按鈕和一個標(biāo)簽，其名稱分別為List1、Command1和Label1，通過屬性窗口把列表框中的項目設(shè)置為：“第一個項目”、“第二個項目”、“第三個項目”、“第四個項目”。程序運(yùn)行后，在列表框中選擇一個項目，然后單擊命令按鈕，即可將所選擇的項目刪除，并在標(biāo)簽中顯示列表框當(dāng)前的項目數(shù)，運(yùn)行情況如圖所示(選擇“第三個項目”的情況)。下面是實現(xiàn)按上述功能的程序，請?zhí)羁铡?
?
Private?Sub?Command1?_
28、Click()
? If?List1.ListIndex?>=?【 】?Then
? List1.RemoveItem?【 】
? Label1.Caption?=?【 】
? Else
? MsgBox?"請選擇要刪除的項目"
? End?IF
End?Sub
4. 滾動條
屬性:Max：最大值; Min：最小值; Value: 滑塊所處位置所代表的值。
事件：
Scroll：拖動滑塊時會觸發(fā)S
29、croll事件。
Change：Value屬性改變時觸發(fā)Change事件
[例5-6]. 在程序運(yùn)行期間，如果拖動滾動條上的滾動塊，則觸發(fā)的滾動條事件是??? ?? 。
A) Move?? ?????? B) Change??? C) Scroll??? ?? D) GetFocus
5. 時鐘(Timer)
第六章
時鐘控件以Interval為時間間隔產(chǎn)生 Timer事件。
屬性:
Interval屬性: 單位：ms(0.001s)，0.5秒是500,Inte
30、rval＝0：屏蔽計時器。
Enabled屬性: True：有效計時；False：停止時鐘工作
事件
: Timer
[例5-7]. 將計時器Timer1的時間間隔設(shè)置為1秒鐘的正確語句是 。
A) Timer1.Value=1000 B) Timer1.Time =1000
C) Timer1.SmallChange=1000 D) Timer1.Interval=1000
[例5-8]. 在窗體上畫一個名稱為Timer1的計時器和一個名稱為Label1的標(biāo)簽。當(dāng)運(yùn)行程序后，將在標(biāo)簽中顯示當(dāng)前時間的數(shù)字時鐘（包括 時：分：秒）。請在 【
31、 】 處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。
Private Sub Form_Load()
Timer1.Interval=1000
End Sub
Private Sub Timer1_Timer()
【 】
End Sub
[例5-9].下列各組控件都具有Caption屬性的是 。
A）窗體、標(biāo)簽 B）標(biāo)簽、定時器 C）窗體、文本框 D）文本框、定時器
第六章 數(shù)組
1. 靜態(tài)數(shù)組及聲明: 下標(biāo)的下界和上界必須是常量。
下界缺省為0，也可在重新定義數(shù)組的下界。例如：
Option Base 1
[例6
32、-1]. 用下面語句定義的數(shù)組的元素個數(shù)是????????????? 。
Dim A (-3 To 5) As Integer
A) 6???????? B) 7??????????? C) 8??????????? D) 9
[例6-2]. 語句DIM A(3,4,5)中定義的數(shù)組有多少個元素????????????? 。
A.345 B.12 C.60 D.120
2. 數(shù)組操作
[例6-3]. 在窗體上畫一個命令按鈕，然后編寫如下程序:
Private Sub Command1_Click()
Dim a(10,10) As Integer
For i
33、=2 To 5
For j=5 To 7
a(i,j)=i+j
Next j
Next i
Print a(2,5)+a(3,6)+a(4,7)
End Sub
程序運(yùn)行后單擊命令按鈕，輸出結(jié)果是_______。
A）24 B） 27 C）30 D）32
[例6-4]. 在窗體上面畫一個命令按鈕，然后編寫如下事件過程：
Option Base 1
Private Sub Commandl_Click()
Dim a
a = Array(1,2,3,4)
j = 1
For? i = 4 To 1 Step -1
34、s = s + a(i)*j
j =j*10
Next? i
Print s
End? Sub
運(yùn)行上面的程序，單擊命令按鈕，其輸出結(jié)果是???? 。
A) 4321????????? B) 12??? ?????C) 34?? ??? ??? D) 1234
[例6-5]. 設(shè)有程序：
? Option?Base?1
? Private?Sub?Command1_Click()
? Dim?arr1,?Max?as?Integer
? arr1?=?Array(12,?435,?76,?24,?78,?54,?866,?43)
35、
? 【 】?=?arr1(1)
? For?i?=?1?To?8
? If?arr1(i)?>?Max?Then?【 】
? Next?i
? Print?"最大值是:?";?Max
? End?Sub
? 以上程序的功能是：用Array函數(shù)建立一個含有8個元素的數(shù)組，然后查找并輸出該
數(shù)組中元素的最大值。請?zhí)羁铡?
[例6-6]. 在窗體上畫一個名稱為 Text1 的文本框和一個名稱為 Command1 的命令按鈕，
然后編寫如下事件過程：
Private Sub Comman
36、d1_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
程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是【 】
A)
37、15 B) 14 C) 13 D) 12
[例6-7]. 在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Option Base 1
Private Sub Command1_Click（）
Dim a
a=Array(1,2,3,4,5)
For i = 1 To UBound(a)
a(i) = a(i) +i –1
Next
Print a(3)
End Sub
程序運(yùn)行后，單擊命令按鈕，則在窗體上顯示的內(nèi)容是
A）4 B) 5 C) 6 D) 7
38、[例6-8].閱讀程序
Option Base 1
Private Sub Form_Click()
Dim arr,Sum
Sum = 0
arr = Array (1,3,5,7,9,11,13,15,17,19)
For i = 1 To 10
If arr(i) / 3=arr(i) \ 3 Then
Sum = Sum+ arr(i)
End If
Nex
39、t i
Print Sum
End Sub
程序運(yùn)行后，單擊窗口，輸出結(jié)果為
A)13 B)14 C)27 D)15
第七章 過程
1.函數(shù)過程的定義和調(diào)用：以Function保留字開始的為函數(shù)過程
2.子過程的定義和調(diào)用：Sub保留字開始的為子過程
3. 參數(shù)傳遞: 傳址與傳值
傳址：形參得到的是實參的地址，當(dāng)形參值的改變同時也改變實參的值。
傳值：形參得到的是實參的值，形參值的改變不會影響實參的值。
數(shù)組作為參數(shù)：傳地址
4. 變量、過程的作用域
5．變量的生存期：動態(tài)變量和靜態(tài)變量
[例7-1]．在以下事件過程中，Private表示
40、 。
Private Sub lblAbc_Change()
……?
End Sub
A）此過程可以被任何其它過程調(diào)用。
B）此過程只可以被本窗體模塊中的其它過程調(diào)用。
C）此過程不可以被任何其它過程調(diào)用。
D）此過程只可以被本工程中的其它過程調(diào)用
[例7-2]. 在窗體上畫一個名稱為Command1的命令按鈕，并編寫如下程序：
Private Sub Command1_Click（）
Dim x As Integer, y As Integer
x = 10
y = 5
Call f1(x,y)
Print x,y
End Sub
Private
41、 Sub f1(ByRef x1 As Integer ,ByVal y1 As Integer)
x1 = x1 + 2
y1 = y1 +2
End Sub
程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是 。
A） 10 5 B）12 5 C） 10 7 D）12 7
[例7-3]. 假設(shè)已通過下列Sub語句定義了MySub過程。若要調(diào)用該過程，可以采用 語句。
Sub MySub(x As Integer)
A) s=MySub(
42、2) B) Mysub 32000 C) Print Mysub(120) D) Call Mysub 40000
[例7-4].以下關(guān)于函數(shù)過程的敘述中，正確的是
A) 函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關(guān)系
B) 在函數(shù)過程中，過程的返回值可以有多個
C) 當(dāng)數(shù)組作為函數(shù)過程的參數(shù)時，既能以傳值方式傳遞，也能以傳址方式傳遞
D) 如果不指明函數(shù)過程參數(shù)的類型，則該參數(shù)沒有數(shù)據(jù)類型
[例7-5].設(shè)有如下通用過程：
Public Function f(x As Integer)
Dim
43、 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
44、 程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是
A)10 5 B)20 5 C)20 40 D)10 40
[例7-6]. 設(shè)有如下通用過程：
Public Sub Fun(a(), ByVal x As Integer)
For i = 1 To 5
x = x + a(i)
Next
End Sub
在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫
如下
45、的事件過程：
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
程序運(yùn)行后，單擊命令按鈕，則在文本框中顯示的內(nèi)容是
A）10 B）15 C）
46、25 D）24
[例7-7]. 在窗體上畫兩個名稱分別為Commandd1和Command2、標(biāo)題分別為“初始化”和“求和”的命令按鈕。程序運(yùn)行后，如果單擊“初始化”命令按鈕，則對數(shù)組a的各元素賦值；如果單擊“求和”命令按鈕，則求出數(shù)組a的各元素之和，并在文本框中顯示出來，如圖所示。請?zhí)羁铡?
Option Base1
Dim a(3,2) As Integer
Private Sub Command1_Click()
For i = 1 To 3
For j = 1 To 2
___【 】__
47、= i+j
Next j
Next i
End Sub
Private Sub Command2_Click()
For j = 1 To 3
For i = 1 To 2
s = s + ___【 】___
Next i
Next j
Text1.Text = ___【 】___
End Sub
[例7-8]. 在窗口上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click（）
Static x As Integer
Cls
For i = 1 To 2
y = y + x
x = x + 2
Next
Print x, y
End Sub
程序運(yùn)行后，連續(xù)三次單擊Command1按鈕后，窗體上顯示的是
A) 4 2 B) 12 18 C) 12 30 D) 4 6
第12頁，共12頁
《高級語言程序設(shè)計(VB)》復(fù)習(xí)提綱
