(9)建立了一個(gè)窗體,窗體中有一命令按鈕,單擊此按鈕,將打開(kāi)一個(gè)查詢,查詢名為“qT”,如果采用VBA代碼完成,應(yīng)使用的語(yǔ)句是 【9】 。
(10)在報(bào)表設(shè)計(jì)中,可以通過(guò)添加 【10】 控件來(lái)控制另起一頁(yè)輸出顯示。
(11)設(shè)有以下窗體單擊事件過(guò)程:
Private Sub Form_Click( )
a = 1
For i = 1 To 3
Select Case i
Case 1, 3
a = a + 1
Case 2, 4
a = a + 2
End Select
Next i
MsgBox a
End Sub
打開(kāi)窗體運(yùn)行后,單擊窗體,則消息框的輸出內(nèi)容是 【11】 。
(12)在窗體中添加一個(gè)命令按鈕(名為Command1)和一個(gè)文本框(名為text1),然后編寫(xiě)如下事件過(guò)程:
Private Sub Command1_Click( )
Dim x As Integer, y As Integer, z As Integer
x = 5 : y = 7 : z = 0
Me!Text1= ""
Call p1(x, y, z)
Me!Text1 =z
End Sub
Sub p1(a As Integer, b As Integer, c As Integer)
c = a + b
End Sub
打開(kāi)窗體運(yùn)行后,單擊命令按鈕,文本框中顯示的內(nèi)容是 【12】 。
(13)有一個(gè)VBA計(jì)算程序的功能如下,該程序用戶界面由4個(gè)文本框和3個(gè)按鈕組成。4個(gè)文本框的名稱分別為:Text1、Text2、Text3和Text4。3個(gè)按鈕分別為:清除(名為Command1)、計(jì)算(名為Command2)和退出(名為Command3)。窗體打開(kāi)運(yùn)行后,單擊清除按鈕,則清除所有文本框中顯示的內(nèi)容;單擊計(jì)算按鈕,則計(jì)算在Text1、Text2和Text3三個(gè)文本框中輸入的3科成績(jī)的平均成績(jī)并將結(jié)果存放在Text4文本框中;單擊退出按鈕則退出。請(qǐng)將下列程序填空補(bǔ)充完整。
Private Sub Command1_Click( )
Me!Text1 = ""
Me!Text2 = ""
Me!Text3 = ""
Me!Text4 = ""
End Sub
Private Sub Command2_Click( )
If Me!Text1 = "" Or Me!Text2 = "" Or Me!Text3 = "" Then
MsgBox "成績(jī)輸入不全"
Else
Me!Text4 = ( 【13】 + Val(Me!Text2)+ Val(Me!Text3)) / 3
【14】
End Sub
Private Sub Command3_Click( )
Docmd. 【15】
End Sub
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |