08实验八 程设计实验一.docxVIP

实验八程序设计实验一学号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=, cEnd Sub运行结果：华氏温度f=98摄氏温度c=36.666672.取整函数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_outputEnd Sub3.分支程序设计例：从键盘输入的百分制学生成绩，判断该学生是否及格，并输出“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 IfEnd Sub4.多分支结构例：键盘输入的学生成绩，输出优、良、中、及格和不及格等五段分类，并输出的结果。（使用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 IfEnd Sub（8）完成教科书P170中“求程序运行结果题”第4题。（9）完成教科书P172中“编程题”第（1）、（3）题。二、实验过程请将第二部分实验步骤中的每一步，使用截图方式记录其过程。三、实验结论与分析讨论理解程序语句执行的有序性，说明构成if语句中的条件表达式是什么。输入不同数值，使用单步执行方式查看VBA语句执行顺序。理解VBA程序语言执行的有序性原理。四、指导教师评语及成绩成绩：指导教师签名：