江西财经大学数据库应用实验七 程序设计实验一.docxVIP

实验七程序设计实验一学号姓名同组人实验项目程序设计实验一实验地点指导教师实验日期及节次一、实验要求1. 实验目的VBA模块中增加过程的方法；基于过程的程序编辑与运行；顺序结构程序编写与调试；分支结构程序编写与调试。2. 实验准备(1)登陆ftp网站（4/）；(2)用户名：1200600018work；密码：computer；(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)题。第3题提示：程序终止用exit sub 键盘输入一个整数n，输出对应的中文星期几，用函数weekdayname(n+1)二、实验过程请将第二部分实验步骤中的每一步，使用截图方式记录其过程。1.Inputbox函数例：华氏温度到摄氏温度转换程序，已知摄氏温度c，将其转化为华氏温度f，转换公式为：f=c*9/5+32。程序及运行结果如下图所示。现将两个变量f和c定义为双精度型数据，再根据摄氏温度转化为华氏温度的公式建立f与c的关系。然后输出f和c。2.取整函数Int(x)例：给定一个两位整数，交换个位数和十位数的位置，显示处理后的数字。程序及运行结果如下图所示。现将四个变量定义为整型数