3、nt “優(yōu)秀”
Case 4
Print “良好”
Case 3
Print ” 通過”
Case else
Print ”不通過”
End select
A 優(yōu)秀 B 良好
C 通過 D 不通過
(7)下列哪個不是窗體的屬性。
A Caption B Text
C ControlBox D BorderStyle
(8)設(shè)組合框Combo1中有3個項目，則以下能刪除最后一項的語句是
A Combo1.RemoveItem Text B Combo1.RemoveItem 2
C Combo1.RemoveItem 3 D Combo1.RemoveItemCom
4、bo1.Listcount
(9)窗體BorderStyle 屬性的功能是。
A 設(shè)置窗體的邊框大小
B 設(shè)置窗體的邊框樣式，是否顯示標(biāo)題欄，是否可以調(diào)整大小等
C 決定是否顯示窗體的控制菜單圖標(biāo)與狀態(tài)控制按鈕
D 決定窗體的最大化或最小化按鈕是否有效
(10)下列可作為VB將變量名的是。
A c*Del B Alpha
C 4a D print
(11)要把一個命令按鈕設(shè)置成無效，應(yīng)設(shè)置其哪一屬性值—。
A Visible B) Enabled C Default D) Cancel
(12)下列不能作為VB所允許的常量是。
A &O148 B “china”
C
5、 3E2 D &H2a
(13) 是指控件本身所具有的、反映該控件功能的內(nèi)部函數(shù)或過程。
A 方法 B 事件
C 屬性 D 控件
(14)表達(dá)式33Mod 17\3*2 的值是。
A 10 B 1
C 2 D 3
(15)表達(dá)式 int (123.4567*100+0.5)/100 的值是。
A 123.47 B 123.45
C 123.461 D 123
(16)不屬于VB6集成開發(fā)環(huán)境工作狀態(tài)的是。
A “設(shè)計”狀態(tài) B 編寫代碼狀態(tài)
C “運行狀態(tài)” D “中斷狀態(tài)”
(17)工程文件的擴展名是 o
A frm B vbp
C bas D frx
(18
6、)提供控件的窗口是。
A “對象”窗口 B “立即”窗口
C 工具箱 D 工具欄
(19)變量x=1234.5678 ,要保留兩位小數(shù)四舍五入輸出，如輸出結(jié)果為 1235.57,正確的方法是。
A Print Format(x, " #####.##" ) B Print Format( " #####.##"，x)
C Print Format(x,
00000.00" ) D Print Format(
00000.00"，x)
(20)要顯示一個對話框，提示用戶輸入一個數(shù)據(jù)，并且對話框中要顯示的提 示信息位”請輸入一個整數(shù)”,正確的是。
A Word=MsgBox(
7、 “請輸入一個整數(shù)："，"輸入”)
B Word=MsgBox( "輸入”，“請輸入一個整數(shù)：”)
C Word=InputBox( “請輸入一個整數(shù)："，"輸入”)
D Word=InputgBox( "輸入”，“請輸入一個整數(shù)：”)
(21)用于字符串連接的運算符是 o
A & B +
C And D A 、B都可以
(22)以下?lián)碛蠵rint 方法的對象是。
A 窗體 B 圖片框
C 打印機 D 以上都有
(23)設(shè)a=2, b=3, c=4, d=5, 下列表達(dá)式的值是。
NOT a<=c OR 4*c=bA2 AND b<>a+c
A -1 B 1
C Tr
8、ue D False
(24)代碼 Print “test " &" ="，3*6 顯示的結(jié)果為。
A test= 18 B test=18
C test = 18 D test =18
(25)在VB中，通過改變列表框 屬性的值，可以為列表框添加項目。
A List B (名稱)
C Caption D Text
(26)在VB中，復(fù)選框(Check)的Value值有3種，分別是。
A -1 , 0, 1 B 0, 1,2
C 1 , 2, 3 D True, False, 0
(27)下列程序段的執(zhí)行結(jié)果是 o
X=5
Y=-20
If not x>0 then
9、x=y-3 else y=x+3
Print x-y; y-x A -3 3 B 5 -8 C 3 -3 D 25 -25
(28)要把Print方法輸出的文字顯示為粗體字，應(yīng)該設(shè)置屬性。
A FontBold B FontName
C FontSize D FontItalic
(29)設(shè)a=2, b=3, c=4, d=5, 下列表達(dá)式的值是。
3>2*b OR a=c AND b<>a+c
A 1 B True
C False D -1
(30))如果要在代碼窗口內(nèi)將表單 Form1的Caption屬性設(shè)置為“時鐘”，正 確的書寫形式是。
A Form.Caption
10、 “時鐘” B Form.Caption = "時鐘”
C .Caption = "時鐘” D Form.Caption( “時鐘”)
二、判斷題(1分/題，共10分，對用T表示，錯用F表示)
( )1、設(shè)置屬性的語句格式為：”對象名.屬性名=屬性值”。
( )2、在窗體或模塊文件中聲明為 Private的過程，只能被本窗體或模塊
中的過程所調(diào)用。
( )3、V B的賦值語句只能給變量賦值。
( )4、在VB中，字符型常量應(yīng)使用"#"號將其括起來。
( )5、窗體大小只能通過鼠標(biāo)拖動窗體邊框來設(shè)置。
( )6、VB的Double類型數(shù)據(jù)，可以精確表示其數(shù)值范圍內(nèi)的所有實數(shù)。
11、
( )7、若用戶在鍵盤上按下一個鍵，則會產(chǎn)生一個 Click事件。
( )8、羅馬數(shù)制是進(jìn)位計數(shù)制。
( )9、事件過程可以由用戶事件觸發(fā)執(zhí)行，也可以由其他過程所調(diào)用。
( )10、Do While 條件..…Loop 和 DO Until Not 條件..…Loop 兩條循
環(huán)語句，實現(xiàn)循環(huán)控制是等效的。
三、讀程序并填空題(每空2分，共10分)
1.
j1=10
j2=30
If j1
12、
Y=-20
If not x>0 then x=y-3 else y=x+3
Print x-y; y-x
3.
Private Sub Form_Click()
Dim A as integer
A=200
If A< =100 Then
A=A*10
If A>1000 Then
A=A- 10
Else
A=A^ 10
Endif
Else
A=A / 10
If A=10 Then
A=A- 10
Else
A=A 10
Endif
Endif
Msgbox Str(A)
End Sub運行程序，單擊窗體Forml,消息框中顯示： 4.
13、
Function F(a As Integer)
Dim b As Integer
Static c As Integer
b = b + 2
c = c + 2
F = a + b + c
End Function
Private Sub Command1_Click()
Dim a As Integer
a = 4
Fori = 1 To 3
Print F(a)
Next i
End Sub
寫出程序運行時，單擊命令按鈕在窗體上的輸出結(jié)果
5.
Private Sub Form_Click()
Dim c As Integer, j As Intege
14、r, k As Integer
k = 0
c = 1
Forj = 1 To 6
If j > 4 Then
c = c + 4
Exit For
Else k = k + 1 End If Next j Print c, k End Sub 寫出程序運行時單擊窗體后，c,k的值分別是： 四、編寫程序（每題10分，共20分）
1.購物優(yōu)惠程序。某商場為了加速促成商品流通，采用購物打折的優(yōu)惠辦法， 每位顧客一次購物（1）在200元以上者，按9.5折優(yōu)惠；（2）在300元以上者, 按9折優(yōu)惠；（3） 400元以上者，按8折優(yōu)惠；（4） 600元以上者按7折優(yōu)惠。 在窗體上添加兩個
15、文本框和一個命令按鈕，要求在 Text1中輸入購物商品總金
額，單擊命令按鈕，在Text2中輸出優(yōu)惠后的價格。程序運行結(jié)果如圖 1所示。
圖1程序運行效果
2.
實現(xiàn)課對所選擇課程進(jìn)行統(tǒng)計現(xiàn)實，下如圖 2所示:
漢 F5m2 I = 崢
課程
Lt：語言
|7 VB
口單片機 i最后牖認(rèn)
I
廠電路貨折
圖2程序運行效果
答案
、選擇題（每題2分，共60分）
1
2
3
4
5
6
7
8
9
10
C
c 1
A
[d
C
B
B「
B
B
B
11
12
13
14
15
16
17
18
1
16、9
20
B
A
B
B
A
A
B
C
A
B
21
22 ―
23
[24
25
26
27
28
29
30
D
A
D
A
D
B
A
A
B
C
、判斷題（1分/題，共10分）
1
2
3
4
5
6
7
8
9
10
T
T
T
F
F
T
F
F
T
T
三、讀程序并填空題（每空 1分，共10分）
1. 30 10
2. -3 3
3. 30
4. 8 10 12
5. 5 4
四、編寫程序（每題10分，共20分）
1. Private Sub Co
17、mmand1_Click（） （1 分）
Dim x As Single, y As Single
x = Val（Text1.Text） （1 分）
If x < 200 Then （2 分）
y = x
Else
If x < 300 Then （2 分）
y = 9.5 * x
Else
If x < 400 Then （2 分）
y = 0.9 * x
Else
If x < 600 Then （2 分）
y = 0.8 * x
Else
y = 0.7 * x
End If
End If
End If
End If
Text2.Text = y
18、
2.
Dim i As Integer
Private Sub Check1_Click() (2 分)
If Check1.Value = 1 Then i = i + 1 End If
If Check1.Value = False Then i = i - 1
End If
End Sub
Private Sub Check2_Click() (2 分)
If Check2.Value = 1 Then i = i + 1 End If
If Check2.Value = False Then i = i - 1
End If
End Sub
Private
19、Sub Check3_Click() (2 分)
If Check3.Value = 1 Then i = i + 1
If Check3.Value = False Then i = i - 1 End If End Sub
Private Sub Check4_Click() (2 分)
If Check4.Value = 1 Then i = i + 1
End If
If Check4.Value = False Then i = i - 1
End If
End Sub
Private Sub Command1_Click() (2 分)
Label1.Caption ="您一共選擇了 " & i & "門課程"
End Sub
Private Sub Form_Load()
Label1.Caption =""
End Sub
End If
《VB程序設(shè)計》期末考試試卷(A)附答案
