数据库应用程序设计实验二.docxVIP

实验九 程序设计实验二学号0090541 姓名 薛文斌 同组人 实验项目程序设计实验二 实验地点 G402 实验仪器台号 20 指导教师 骆斯文 实验日期及节次2011 年 11 月 1 日，第4 节一、实验要求1. 实验目的单重循环程序的编写与调试；包括Do While…Loop语句、For…Next语句和While…Wend语句；重点是使用循环构造累加和累乘。2. 实验准备（1）登陆毕博教学网站（59/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=; sumEnd 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=; sumEnd 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=; sumEnd 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=; sumEnd Sub（5）阅读下列程序，列出变量x，y值变化过程，输出语句处变量x的值为多少？输入程序后再执行，验证变量x是否为预先设想值。Public Sub 验证程序执行过程() Dim x, y As Integer x = 1 y = 4 Do Until y 5Private Sub Command1_Click（）N=inputbox(“请输入一个正整数：”)K=int(sqr(n))I=2S=0While i=k And s=0 If n Mod i=0 Then S=1 Else i=i+1 End If Wend If s=0 Then Print n:”是素数”Else Print n:”不是素数”End IfEnd SubPublic Sub Command1_Click（）A=val(inputbox(“请输入第1数”))Max=aFor n=2 to 10 a=val(inputbox(“请输入第”n”个数：”)) if amax then max=anextprint maxend sub y = y + 1例10. 设一张足够大的厚度为0.5mm的纸，折多少次可以达到或超过珠穆郎玛峰的高度（8848.13m）Private Sub Command1_Click（） X=0.5 N=0 Do While x8848130 X=x*2 N=n+1Loop Print n,xEnd Sub x = x + yPrivate Sub Command1_Click（）For i=100 to 999 A=int(i/100)B=int((i-100*a)/10)C=I mod 10If i=a^3+b^3+c^3 then print I;Next iPrintEnd sub Loop Debug.Print xEnd Sub（6）构造一个循环，用擂台法求从键盘输入10个数中最大数。二、实验过程请编程完成上述题目并验证程序结果，将结果所在数据库上传到毕博平台。 （1）建立一个“姓名+学号”空白数据库。（2）进入VBE。（3）建立一个“循环语句”模块。 （4）分别使用四种形式的循环语句，求自然数1到100之间的正整数之和。Do while—Loop结构 Do –loop while 结构Do—loop until 结构FOR-NEXT结构循环（5）阅读下列程序，列出变量x，y值变化过程，输出语句处