access數(shù)據(jù)庫上機實驗指導書第十章VBA實驗報告.doc

計算機程序設(shè)計（ACCESS）實驗 實驗報告 2013 年 6 月 5 日實驗題目VBA程序設(shè)計基礎(chǔ)選課課號學 院會計學院班 級姓 名學 號理論課教師上機指導教師實驗?zāi)康募耙螅?. 熟悉VBA編輯器的使用。2. 掌握VBA的基本語法規(guī)則、各種運算量的表示及使用。3. 掌握VBA程序的3種流程控制結(jié)構(gòu)：順序結(jié)構(gòu)、選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)。4. 熟悉過程和模塊的概念及創(chuàng)建和使用方法。掌握為窗體、報表和控件編寫VBA事件過程代碼的方法。實驗的詳細操作步驟及程序代碼：1. 啟動VBA編輯器，打開數(shù)據(jù)庫，在Access2003 中創(chuàng)建空白數(shù)據(jù)庫，命名為“test.mdb”。單擊數(shù)據(jù)庫窗口中的“模塊”對象，在單擊工具欄中的“新建”按鈕，打開VBA窗口。2. 輸出2,100之間的素數(shù)，1插入-模塊 2在標準模塊中定義全局變量，定義一個boolean數(shù)組，用它來儲存2200之間每個數(shù)字是否為素數(shù)。Dim a(2to100)as boolean3定義一個子過程，實現(xiàn)素數(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判斷是否為素數(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單擊“運行”按鈕。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è)置命令按鈕“計算”名稱為cmdcalculate屬性設(shè)置為事件過程輸入以下代碼4. 編寫產(chǎn)生1,100之間隨機整數(shù)的函數(shù)，調(diào)用該函數(shù)求50個1,100之間的隨機整數(shù)。編寫一個簡單的計算器程序，輸入兩個數(shù)，并由用戶選擇加、減、乘、除運輸。先創(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之間的隨機數(shù)A=int(rnd(1)*100)+1Funca=aEnd funcation5 編寫一個簡單的計算程序輸入兩個數(shù)，并由用戶戶選擇加減乘除運算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=”