access数据库上机实验指导书VBA实验报告

1、 计算机程序设计（ACCESS）实验 实验报告 2013 年 6 月 5 日实验题目VBA程序设计基础选课课号学 院会计学院班 级姓 名学 号理论课教师上机指导教师实验目的及要求：1. 熟悉VBA编辑器的使用。2. 掌握VBA的基本语法规则、各种运算量的表示及使用。3. 掌握VBA程序的3种流程控制结构：顺序结构、选择结构和循环结构。4. 熟悉过程和模块的概念及创建和使用方法。掌握为窗体、报表和控件编写VBA事件过程代码的方法。实验的详细操作步骤及程序代码：1. 启动VBA编辑器，打开数据库，在Access2003 中创建空白数据库，命名为“test.mdb”。单击数据库窗口中的“模块”对象，

2、在单击工具栏中的“新建”按钮，打开VBA窗口。2. 输出2,100之间的素数，1插入-模块 2在标准模块中定义全局变量，定义一个boolean数组，用它来储存2200之间每个数字是否为素数。Dim a(2to100)as boolean3定义一个子过程，实现素数的查找与输出，Dim a(2 To 100) As BooleanSub test2()Dim n As Integer, m As Integer初始化数组为trueFor n = 2 To 100a(n) = TrueNext n判断是否为素数For n = 2 To 100For m = 2 To n - 1If n Mod m

3、= 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判断文本框中是否输入数据If Not (IsNull(Txta) Or IsNull(Txtb) Or IsNull(Txtc)

4、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, 结果ElseMsgBox 三边不能组成三角形, vbCritical, 错误End IfElseMsgBox 请输入三边值, vbInformation, 信

5、息End IfEnd Sub新建窗体设置三个文本框名称分别为txta txtb txtc设置命令按钮“计算”名称为cmdcalculate属性设置为事件过程输入以下代码4. 编写产生1,100之间随机整数的函数，调用该函数求50个1,100之间的随机整数。编写一个简单的计算器程序，输入两个数，并由用户选择加、减、乘、除运输。先创建窗体，再在VBA编辑器中输入窗体的事件代码。Sub test3()Dim i as integerDim b as integer输出三十个1100之间的数For i =1to50B=funca() 调用函数Debug.print bNext iEnd subFunc

6、ation funca() as integerDim a as integer产生1100之间的随机数A=int(rnd(1)*100)+1Funca=aEnd funcation5 编写一个简单的计算程序输入两个数，并由用户户选择加减乘除运算Private sub cmd1 click()ption=”+”txtc.value=op(txta.value,txtb.value,”+”)End subPrivate sub cmd2 click()ption=”-”txtc.value=op(txta.value,txtb.value,”-”)End subPrivate sub cmd3

7、click()ption=”*”txtc.value=op(txta.value,txtb.value,”*”)End subPrivate sub cmd4 click()ption=”/”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=”Txtc.va