实验程序设计实验.docVIP

实验八程序设计实验一 学号 0102925 姓名 刘鑫 同组人 实验项目 程序设计 实验地点 G403 实验仪器台号 指导教师 实验日期及节次 2011年11月3日，第3、4节 一、实验要求 1. 实验目的 VBA模块中增加过程的方法； 基于过程的程序编辑与运行； 顺序结构程序编写与调试； 分支结构程序编写与调试。 2. 实验准备 （1）登陆毕博教学网站（59/）；（2）选择“数据库应用”课程；（3）选择“按周编制的教学安排”后，再选择“第七周”；（4）下载“实验”和“数据库样例”。 3. 实验步骤 第一部分：概念理解 （1）打开第八章样例数据库（Ch8 结构化编程数据库.accdb）。 （2）进入VBE环境。 （3）在VBE的“工程资源管理器”（参见教科书P116图7-12），查看“模块”与“过程”。理解使用“Sub”定义“过程”的方法。 （4）理解“模块”包含“过程”。 （5）运行数据库中不同过程，在立即窗口查看运行结果。 第二部分：常用函数使用 （6）建立一个以“姓名+学号”的空白数据库。 （7）建立一个“我的程序”模块，编写不同过程完成下列程序（注程序使用不同过程）。 1.Iputbox函数 例：华氏温度到摄氏温度转换程序，已知摄氏温度c，将其转化为华氏温度f，转换公式为：f=c*9/5+32。 Public Sub 华氏温度到摄氏温度转换() Dim f, c As Double f = CDbl(InputBox(请输入华氏温度f, 输入提示)) c = 5 / 9 * (f - 32) Debug.Print 华氏温度f=, f Debug.Print 摄氏温度 c=, c End Sub 运行结果：华氏温度f=98 摄氏温度c=36.66667 2.取整函数Int(x) 例：给定一个两位整数，交换个位数和十位数的位置，显示处理后的数字。 Public Sub 数据交换() Dim Num_input, Num_10, Num_1, Num_output As Integer Num_input = CInt(InputBox(请输入两位正整数, 交换个位数和十位数的程序)) Num_10 = Int(Num_input / 10) Num_1 = Num_input Mod 10 Num_output = Num_1 * 10 + Num_10 Debug.Print 处理前的数：, Num_input Debug.Print 处理后的数：, Num_output End Sub 3.分支程序设计 例：从键盘输入的百分制学生成绩，判断该学生是否及格，并输出“Pass”或“Fault”。 解： Public Sub ifexam() Score = Val(InputBox(请输入学生成绩：)) If Score = 60 Then Debug.Print The score is pass. Else Debug.Print The score is fault. End If End Sub 4.多分支结构 例：键盘输入的学生成绩，输出优、良、中、及格和不及格等五段分类，并输出的结果。（使用If…Else If 结构） Public Sub multiifexam() score = Val(InputBox(请输入学生成绩：)) If score = 90 Then Debug.Print 优 ElseIf score = 80 Then Debug.Print 良 ElseIf score = 70 Then Debug.Print 中 ElseIf score = 60 Then Debug.Print 及格 Else Debug.Print 不及格 End If End Sub （8）完成教科书P170中“求程序运行结果题”第4题。 （9）完成教科书P172中“编程题”第（1）、（3）题。 二、实验过程 请将第二部分实验步骤中的每一步，使用截图方式记录其过程。 三、实验结论与分析讨论 理解程序语句执行的有序性，说明构成if语句中的条件表达式是什么。 输入不同数值，使用单步执行方式查看VBA语句执行顺序。理解VBA程序语言执行的有序性原理。 四、指导教师评语及成绩 成绩：指导教师签名：