access实验报告册

金陵科技学院实验报告

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

创建子过程mj（），其功能为输入圆的半径、计算圆的面积 操作步骤如下： （1）进入VBE （2）输入程序代码 Sub mj() Dim as single Dim as single

Const Pi As Single=3.1415926 R=InputBox S=PI*r^2

Debug.print“半径为”；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数据库中的数据

金陵科技学院实验报告