access实验报告册

2. VBA代码的编写与应用 创建标准模块

创建子过程mj（），其功能为输入圆的半径、计算圆的面积 操作步骤如下： （1）进入VBE （2）输入程序代码 Sub mj() Dim as single Dim as single Const Pi As Single= R=InputBox S=PI*r^2

“半径为”；r；“圆的面积为”；s End sub （3）运行保存

创建s顺序结构程序和InputBox和MsgBox函数的使用 输入你的名字，用MsgBox函数输出欢迎信息 操作步骤如下： （1）进入VBE （2）输入程序代码 Sub hello()

Dim strinput As string

Strinput=inputBox(“请输入你的名字：”) Msgbox(“欢迎你”&strinput) Endsub'

（3）在代码编辑窗口选择过程hello运行子过程 （4）运行测试成功输出欢迎信息

Select case多分支结构的应用

设计一个窗体，实现输入一个百分制成绩，输出该成绩对应的等级功能 操作步骤如下：

（1）进入VBE （2）输入程序代码 Sub grade() Dim cj as integer

Cj=inputBox(“请输入成绩：”) Select case cj Case 90 to 100 Masbox(“优秀”) …… Case 60 to 69

Masbox(“及格”) Case else

Masbox（“不及格”） End select End sub （3）运行测试

For next循环结构的使用 Do loop循环结构的使用 循环结束标志的使用 子过程的调用 函数过程调用

在vba中访问access数据库中的数据