首頁 考試吧論壇 Exam8視線 考試商城 網絡課程 模擬考試 考友錄 實用文檔 求職招聘 論文下載 | ||
![]() |
2011中考 | 2011高考 | 2012考研 | 考研培訓 | 在職研 | 自學考試 | 成人高考 | 法律碩士 | MBA考試 MPA考試 | 中科院 |
|
![]() |
四六級 | 職稱英語 | 商務英語 | 公共英語 | 托福 | 雅思 | 專四專八 | 口譯筆譯 | 博思 | GRE GMAT 新概念英語 | 成人英語三級 | 申碩英語 | 攻碩英語 | 職稱日語 | 日語學習 | 法語 | 德語 | 韓語 |
|
![]() |
計算機等級考試 | 軟件水平考試 | 職稱計算機 | 微軟認證 | 思科認證 | Oracle認證 | Linux認證 華為認證 | Java認證 |
|
![]() |
公務員 | 報關員 | 銀行從業資格 | 證券從業資格 | 期貨從業資格 | 司法考試 | 法律顧問 | 導游資格 報檢員 | 教師資格 | 社會工作者 | 外銷員 | 國際商務師 | 跟單員 | 單證員 | 物流師 | 價格鑒證師 人力資源 | 管理咨詢師考試 | 秘書資格 | 心理咨詢師考試 | 出版專業資格 | 廣告師職業水平 駕駛員 | 網絡編輯 |
|
![]() |
衛生資格 | 執業醫師 | 執業藥師 | 執業護士 | |
![]() |
會計從業資格考試(會計證) | 經濟師 | 會計職稱 | 注冊會計師 | 審計師 | 注冊稅務師 注冊資產評估師 | 高級會計師 | ACCA | 統計師 | 精算師 | 理財規劃師 | 國際內審師 |
|
![]() |
一級建造師 | 二級建造師 | 造價工程師 | 造價員 | 咨詢工程師 | 監理工程師 | 安全工程師 質量工程師 | 物業管理師 | 招標師 | 結構工程師 | 建筑師 | 房地產估價師 | 土地估價師 | 巖土師 設備監理師 | 房地產經紀人 | 投資項目管理師 | 土地登記代理人 | 環境影響評價師 | 環保工程師 城市規劃師 | 公路監理師 | 公路造價師 | 安全評價師 | 電氣工程師 | 注冊測繪師 | 注冊計量師 |
|
![]() |
繽紛校園 | 實用文檔 | 英語學習 | 作文大全 | 求職招聘 | 論文下載 | 訪談 | 游戲 |
(9)建立了一個窗體,窗體中有一命令按鈕,單擊此按鈕,將打開一個查詢,查詢名為“qT”,如果采用VBA代碼完成,應使用的語句是 【9】 。
(10)在報表設計中,可以通過添加 【10】 控件來控制另起一頁輸出顯示。
(11)設有以下窗體單擊事件過程:
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
打開窗體運行后,單擊窗體,則消息框的輸出內容是 【11】 。
(12)在窗體中添加一個命令按鈕(名為Command1)和一個文本框(名為text1),然后編寫如下事件過程:
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
打開窗體運行后,單擊命令按鈕,文本框中顯示的內容是 【12】 。
(13)有一個VBA計算程序的功能如下,該程序用戶界面由4個文本框和3個按鈕組成。4個文本框的名稱分別為:Text1、Text2、Text3和Text4。3個按鈕分別為:清除(名為Command1)、計算(名為Command2)和退出(名為Command3)。窗體打開運行后,單擊清除按鈕,則清除所有文本框中顯示的內容;單擊計算按鈕,則計算在Text1、Text2和Text3三個文本框中輸入的3科成績的平均成績并將結果存放在Text4文本框中;單擊退出按鈕則退出。請將下列程序填空補充完整。
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 "成績輸入不全"
Else
Me!Text4 = ( 【13】 + Val(Me!Text2)+ Val(Me!Text3)) / 3
【14】
End Sub
Private Sub Command3_Click( )
Docmd. 【15】
End Sub
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內蒙古 |