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

《 计算机程序设计（ACCESS）实验 》实验报告 2013 年 6 月 5 日 实验题目VBA程序设计基础选课课号学 院会计学院班 级姓 名学 号理论课教师上机指导教师实验目的及要求： 熟悉VBA编辑器的使用。 掌握VBA的基本语法规则、各种运算量的表示及使用。 掌握VBA程序的3种流程控制结构：顺序结构、选择结构和循环结构。 熟悉过程和模块的概念及创建和使用方法。 掌握为窗体、报表和控件编写VBA事件过程代码的方法。实验的详细操作步骤及程序代码： 启动VBA编辑器，打开数据库，在Access2003 中创建空白数据库，命名为“test.mdb”。单击数据库窗口中的“模块”对象，在单击工具栏中的“新建”按钮，打开VBA窗口。 输出[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个文本框控件和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 三角形的面积是 + s, vbInformation, 结果 Else MsgBox 三边不能组成三角形, vbCritical, 错误 End If Else MsgBox 请输入三边值, vbInformation, 信息 End If End Sub 新建窗体设置三个文本框名称分别为txta txtb txtc 设置命令按钮“计算”名称为cmdcalculate属性设置为事件过程 输入以下代码 编写产生[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