09实验九程序设计实验二.docVIP

实验九 程序设计实验二 学号 0102960 姓名 牛卉 同组人 实验项目 程序设计 实验地点 G403 实验仪器台号 指导教师 实验日期及节次 2011 年11 月10 日，第3、4 节 一、实验要求 1. 实验目的 单重循环程序的编写与调试； 包括Do While…Loop语句、For…Next语句和While…Wend语句； 重点是使用循环构造累加和累乘。 2. 实验准备 （1）登陆毕博教学网站（59/）；（2）选择“数据库应用”课程；（3）选择“按周编制的教学安排”后，再选择“第一周”；（4）下载“实验”和“数据库样例”。 3. 实验步骤 （1）建立一个“姓名+学号”空白数据库。 （2）进入VBE。 （3）建立一个“循环语句”模块。 （4）分别使用四种形式的循环语句，求自然数1到100之间的正整数之和。 //*******1）Do while—Loop结构 Public Sub do1() Dim i, sum As Integer sum = 0 i = 1 Do While i = 100 sum = sum + i i = i + 1 Loop Debug.Print i=; i, sum=; sum End Sub //*******2）Do –loop while 结构 Public Sub do2() Dim i, sum As Integer sum = 0 i = 1 Do sum = sum + i i = i + 1 Loop While i = 100 Debug.Print i=; i, sum=; sum End Sub //*******3）Do—loop until 结构 Public Sub do3() Dim i, sum As Integer sum = 0 i = 1 Do sum = sum + i i = i + 1 Loop Until i 100 Debug.Print i=; i, sum=; sum End Sub //*******4）FOR-NEXT结构循环 Public Sub do4() Dim i, sum As Integer For i = 1 To 100 Step 1 sum = sum + i Next Debug.Print i=; i, sum=; sum End Sub （5）阅读下列程序，列出变量x，y值变化过程，输出语句处变量x的值为多少？输入程序后再执行，验证变量x是否为预先设想值。 Public Sub 验证程序执行过程() Dim x, y As Integer x = 1 y = 4 Do Until y 5 y = y + 1 x = x + y Loop Debug.Print x End Sub （6）构造一个循环，用擂台法求从键盘输入10个数中最大数。 二、实验过程 请编程完成上述题目并验证程序结果，将结果所在数据库上传到毕博平台。 三、实验结论与分析讨论 试述你是如何理解循环运行过程的有序性的，即不同循环语句进入循环的条件和退出循环的条件分别是什么。 四、指导教师评语及成绩 成绩： 指导教师签名：