



全文預(yù)覽已結(jié)束
下載本文檔
版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
計(jì)算機(jī)程序設(shè)計(jì)(ACCESS)實(shí)驗(yàn) 實(shí)驗(yàn)報(bào)告 2013 年 6 月 5 日實(shí)驗(yàn)題目VBA程序設(shè)計(jì)基礎(chǔ)選課課號學(xué) 院會計(jì)學(xué)院班 級姓 名學(xué) 號理論課教師上機(jī)指導(dǎo)教師實(shí)驗(yàn)?zāi)康募耙螅?. 熟悉VBA編輯器的使用。2. 掌握VBA的基本語法規(guī)則、各種運(yùn)算量的表示及使用。3. 掌握VBA程序的3種流程控制結(jié)構(gòu):順序結(jié)構(gòu)、選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)。4. 熟悉過程和模塊的概念及創(chuàng)建和使用方法。掌握為窗體、報(bào)表和控件編寫VBA事件過程代碼的方法。實(shí)驗(yàn)的詳細(xì)操作步驟及程序代碼:1. 啟動VBA編輯器,打開數(shù)據(jù)庫,在Access2003 中創(chuàng)建空白數(shù)據(jù)庫,命名為“test.mdb”。單擊數(shù)據(jù)庫窗口中的“模塊”對象,在單擊工具欄中的“新建”按鈕,打開VBA窗口。2. 輸出2,100之間的素?cái)?shù),1插入-模塊 2在標(biāo)準(zhǔn)模塊中定義全局變量,定義一個boolean數(shù)組,用它來儲存2200之間每個數(shù)字是否為素?cái)?shù)。Dim a(2to100)as boolean3定義一個子過程,實(shí)現(xiàn)素?cái)?shù)的查找與輸出,Dim a(2 To 100) As BooleanSub test2()Dim n As Integer, m As Integer初始化數(shù)組為trueFor n = 2 To 100a(n) = TrueNext n判斷是否為素?cái)?shù)For n = 2 To 100For m = 2 To n - 1If n Mod m = 0 Then a(n) = FalseNext mIf a(n) Then Debug.Print nNext nEnd Sub單擊“運(yùn)行”按鈕。3. 求任意三角形的面積。新建一個窗體,要求有3個文本框控件和1個命令控件。在文本框中輸入三角形邊長,單擊命令按鈕后,通過消息提示框顯示三角形面積。Private Sub cmdcalculate_Click()Dim a As Single, b As Single, c As Single, p As Single判斷文本框中是否輸入數(shù)據(jù)If Not (IsNull(Txta) Or IsNull(Txtb) Or IsNull(Txtc) Thena = Txta.Valueb = Txtb.Valuec = Txtc.Value判斷三邊是否能組成三角形If (a + b c) And (a + c b) And (b + c a) Thenp = (a + b + c) / 2p = Sqr(p * (p - a) * (p - b) * (p - c)Dim a As Strings = Str(p)MsgBox 三角形的面積是 + s, vbInformation, 結(jié)果ElseMsgBox 三邊不能組成三角形, vbCritical, 錯誤End IfElseMsgBox 請輸入三邊值, vbInformation, 信息End IfEnd Sub新建窗體設(shè)置三個文本框名稱分別為txta txtb txtc設(shè)置命令按鈕“計(jì)算”名稱為cmdcalculate屬性設(shè)置為事件過程輸入以下代碼4. 編寫產(chǎn)生1,100之間隨機(jī)整數(shù)的函數(shù),調(diào)用該函數(shù)求50個1,100之間的隨機(jī)整數(shù)。編寫一個簡單的計(jì)算器程序,輸入兩個數(shù),并由用戶選擇加、減、乘、除運(yùn)輸。先創(chuàng)建窗體,再在VBA編輯器中輸入窗體的事件代碼。Sub test3()Dim i as integerDim b as integer輸出三十個1100之間的數(shù)For i =1to50B=funca() 調(diào)用函數(shù)Debug.print bNext iEnd subFuncation funca() as integerDim a as integer產(chǎn)生1100之間的隨機(jī)數(shù)A=int(rnd(1)*100)+1Funca=aEnd funcation5 編寫一個簡單的計(jì)算程序輸入兩個數(shù),并由用戶戶選擇加減乘除運(yùn)算Private sub cmd1 click()Labela.caption=”+”txtc.value=op(txta.value,txtb.value,”+”)End subPrivate sub cmd2 click()Labela.caption=”-”txtc.value=op(txta.value,txtb.value,”-”)End subPrivate sub cmd3 click()Labela.caption=”*”txtc.value=op(txta.value,txtb.value,”*”)End subPrivate sub cmd4 click()Labela.caption=”/”txtc.value=op(txta.value,txtb.value,”/”)End subFuncation op(a as single,b as single,d as string) as singleDim s as singleS=0If d =”+”thenS=a+bEnd ifIf d =”-”thenS=a-bEnd ifIf d =”*”thenS=a*bEnd ifIf d =”/”thenS=a/bEnd ifOp=sEnd functionPrivate sub cmdclear click()Txta.value=”Txtb.value=”
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 工業(yè)自動化系統(tǒng)設(shè)計(jì)優(yōu)化研究
- 華為應(yīng)用限制管理辦法
- 協(xié)會業(yè)余球員管理辦法
- 生產(chǎn)經(jīng)營單位安全主體責(zé)任規(guī)定
- 內(nèi)部職務(wù)異動管理辦法
- 微短劇原汁原味傳統(tǒng)文化策略探析
- 物業(yè)法律法規(guī)培訓(xùn)感悟
- 安全生產(chǎn)法律法規(guī)培訓(xùn)簡報(bào)
- 交通事故撞成植物人
- 安全生產(chǎn)經(jīng)理崗位職責(zé)
- 模型優(yōu)化與參數(shù)敏感性分析-全面剖析
- 精神科護(hù)理安全警示教育
- 人力核心指標(biāo) 行業(yè)報(bào)告系列 2025年Q1精細(xì)化工行業(yè)薪酬報(bào)告
- 2025年中央一號文件參考試題庫100題(含答案)
- 基于深度學(xué)習(xí)的動態(tài)差分隱私保護(hù)算法
- 水上鉆探施工方案
- 2025年度校園營養(yǎng)餐配送合作協(xié)議合同范本3篇
- 2025年上半年甘肅慶陽市寧縣人民政府辦公室直屬事業(yè)單位選調(diào)2人易考易錯模擬試題(共500題)試卷后附參考答案
- 高原施工醫(yī)療衛(wèi)生防疫措施
- 中建涂料外墻保溫施工方案
- 礦山資源鉆探施工協(xié)議
評論
0/150
提交評論