access數(shù)據(jù)庫(kù)上機(jī)實(shí)驗(yàn)指導(dǎo)書第十章VBA實(shí)驗(yàn)報(bào)告.doc

計(jì)算機(jī)程序設(shè)計(jì)（ACCESS）實(shí)驗(yàn) 實(shí)驗(yàn)報(bào)告 2013 年 6 月 5 日實(shí)驗(yàn)題目VBA程序設(shè)計(jì)基礎(chǔ)選課課號(hào)學(xué) 院會(huì)計(jì)學(xué)院班 級(jí)姓 名學(xué) 號(hào)理論課教師上機(jī)指導(dǎo)教師實(shí)驗(yàn)?zāi)康募耙螅?. 熟悉VBA編輯器的使用。2. 掌握VBA的基本語(yǔ)法規(guī)則、各種運(yùn)算量的表示及使用。3. 掌握VBA程序的3種流程控制結(jié)構(gòu)：順序結(jié)構(gòu)、選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)。4. 熟悉過(guò)程和模塊的概念及創(chuàng)建和使用方法。掌握為窗體、報(bào)表和控件編寫VBA事件過(guò)程代碼的方法。實(shí)驗(yàn)的詳細(xì)操作步驟及程序代碼：1. 啟動(dòng)VBA編輯器，打開數(shù)據(jù)庫(kù)，在Access2003 中創(chuàng)建空白數(shù)據(jù)庫(kù)，命名為“test.mdb”。單擊數(shù)據(jù)庫(kù)窗口中的“模塊”對(duì)象，在單擊工具欄中的“新建”按鈕，打開VBA窗口。2. 輸出2,100之間的素?cái)?shù)，1插入-模塊 2在標(biāo)準(zhǔn)模塊中定義全局變量，定義一個(gè)boolean數(shù)組，用它來(lái)儲(chǔ)存2200之間每個(gè)數(shù)字是否為素?cái)?shù)。Dim a(2to100)as boolean3定義一個(gè)子過(guò)程，實(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. 求任意三角形的面積。新建一個(gè)窗體，要求有3個(gè)文本框控件和1個(gè)命令控件。在文本框中輸入三角形邊長(zhǎng)，單擊命令按鈕后，通過(guò)消息提示框顯示三角形面積。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, 錯(cuò)誤End IfElseMsgBox 請(qǐng)輸入三邊值, vbInformation, 信息End IfEnd Sub新建窗體設(shè)置三個(gè)文本框名稱分別為txta txtb txtc設(shè)置命令按鈕“計(jì)算”名稱為cmdcalculate屬性設(shè)置為事件過(guò)程輸入以下代碼4. 編寫產(chǎn)生1,100之間隨機(jī)整數(shù)的函數(shù)，調(diào)用該函數(shù)求50個(gè)1,100之間的隨機(jī)整數(shù)。編寫一個(gè)簡(jiǎn)單的計(jì)算器程序，輸入兩個(gè)數(shù)，并由用戶選擇加、減、乘、除運(yùn)輸。先創(chuàng)建窗體，再在VBA編輯器中輸入窗體的事件代碼。Sub test3()Dim i as integerDim b as integer輸出三十個(gè)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 編寫一個(gè)簡(jiǎn)單的計(jì)算程序輸入兩個(gè)數(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=”