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

《 计算机程序设计（ACCESS）实验 》实验报告 2013 年 6 月 5 日

实验题目 选课课号 学 院 姓 名 理论课教师 实验目的及要求： 1.熟悉VBA编辑器的使用。 2.掌握VBA的基本语法规则、各种运算量的表示及使用。 3.掌握VBA程序的3种流程控制结构：顺序结构、选择结构和循环结构。 4.熟悉过程和模块的概念及创建和使用方法。 掌握为窗体、报表和控件编写VBA事件过程代码的方法。 VBA程序设计基础 会计学院 班 级 学 号 上机指导教师 实验的详细操作步骤及程序代码： 1.启动VBA编辑器，打开数据库，在Access2003 中创建空白数据库，命名为“test.mdb”。单击数据库窗口中的“模块”对象，在单击工具栏中的“新建”按钮，打开VBA窗口。 2.输出[2,100]之间的素数，1插入-----模块 2在标准模块中定义全局变量，定义一个boolean数组，用它来储存2~200之间每个数字是否为素数。 Dim a(2to100)as boolean3定义一个子过程，实现素数的查找与输出， Dim a(2 To 100) As Boolean Sub test2() Dim n As Integer, m As Integer '初始化数组为true For n = 2 To 100 a(n) = True Next n '判断是否为素数 For n = 2 To 100 For m = 2 To n - 1 If n Mod m = 0 Then a(n) = False Next m If a(n) Then Debug.Print n Next n End 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)) Then a = Txta.Value b = Txtb.Value c = Txtc.Value '判断三边是否能组成三角形 If (a + b > c) And (a + c > b) And (b + c > a) Then p = (a + b + c) / 2 p = Sqr(p * (p - a) * (p - b) * (p - c)) Dim a As String s = Str(p) MsgBox \三角形的面积是\结果\Else MsgBox \三边不能组成三角形\错误\End If Else MsgBox \请输入三边值\信息\End If End Sub 新建窗体设置三个文本框名称分别为txta txtb txtc 设置命令按钮“计算”名称为cmdcalculate属性设置为事件过程 输入以下代码 4.编写产生[1,100]之间随机整数的函数，调用该函数求50个[1,100]之间的随机整数。 编写一个简单的计算器程序，输入两个数，并由用户选择加、减、乘、除运输。先创建窗体，再在VBA编辑器中输入窗体的事件代码。 Sub test3() Dim i as integer Dim b as integer ‘输出三十个1~100之间的数 For i =1to50 B=funca() ‘调用函数 Debug.print b Next i End sub Funcation funca() as integer Dim a as integer’产生1~100之间的随机数 A=int(rnd(1)*100)+1 Funca=a End funcation 5 编写一个简单的计算程序输入两个数，并由用户户选择加减乘除运算 Private sub cmd1 click() Labela.caption=”+” txtc.value=op(txta.value,txtb.value,”+”) End sub Private sub cmd2 click() Labela.caption=”-” txtc.value=op(txta.value,txtb.value,”-”) End sub Private sub cmd3 click() Labela.caption=”*” txtc.value=op(txta.value,txtb.value,”*”) End sub Private sub cmd4 click() Labela.caption=”/” txtc.value=op(txta.value,txtb.value,”/”) End sub Funcation op(a as single,b as single,d as string) as single Dim s as single S=0 If d =”+”then S=a+b End if If d =”-”then S=a-b End if If d =”*”then S=a*b End if If d =”/”then S=a/b End if Op=s End function Private sub cmdclear click() Txta.value=”””” Txtb.value=”””” Txtc.value=”””” labeal.caption=” ” End sub Private sub cmdexit click Docmd.close End sub 运行窗体二，输入数据进行测试 实验中发现的问题及解决方法： 教师评语 成 绩

本文来源：https://www.bwwdw.com/article/9lxg.html