过程与函数设计.doc

《过程与函数设计.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、西南石油大学实验报告课程VB程序设计实验项目过程与函数设计指导教师张翼凌专业班级学号姓名实验日期成绩实验目的：(1)掌握Function过程的定义及调用(2)掌握Sub过程的定义和调用(3)掌握过程调用之间参数传送的方法(4)掌握变量的作用域实验内容：【实验4-1】编写计算n!的Function过程，调用该过程，计算ex的近似值。(如图4-1所示）ex≈1+x/1!+x2/2!+x3/3!+…+xn/n!要求：1）x的值用InputBox函数输入2）要求精度：xn/n!<0.000001（1）程序代码PublicFunctionfact(n)AsSing

2、leDimiAsInteger,tAsSinglet=1Fori=1Tont=t*iNextifact=tEndFunctionPrivateSubCommand1_Click()DimnAsIntegerx=InputBox("输入x:")Dot=chitty(x,n)Sum=sun+tn=n+1LoopWhilet>0.00001Print"e^x的值约等于："&SumEndSubPublicFunctionchitty(x,n)AsVariantchitty=x^n/fact(n)EndFunctionPrivateSubCommand1_Clic

3、k()DimnAsIntegerx=Val(InputBox("输入x"))Dot=x^n/fact(n)s=s+tn=n+1LoopWhilet>0.000001Print"e^x的值约等于："PrintsEndSubFunctionfact(n)AsLongDimiAsInteger,fAsLongf=1Fori=1Tonf=f*iNextifact=fEndFunction（2）运行结果窗体【实验4-2】编写一Function函数过程，用于判断一个数据是否为素数，若是，返回1，否则返回0。单击窗体中命令按钮，调用该过程，找出200~600范围内所有

4、素数，并将所有素数添加在列表框中。(如图4-2所示）（1）程序代码PrivateSubCommand1_Click()Fori=200To600Iffact(i)=1ThenList1.AddItemiNextiEndSubPublicFunctionfact(k)f=0Form=2Tok-1IfkModm=0Thenf=0ExitForElsef=1EndIfNextmfact=fEndFunction（2）运行结果窗体【实验4-3】编写程序，利用随机函数生成一个6行6列的整型矩阵（数据在100~900范围内），找出某个指定行内最大元素所在的列号。（如

5、图4-3所示）要求：求指定行内最大元素所在的列号用Function过程实现。输出矩阵所有数据，然后用InputBox函数输入行号，调用Function过程后输出该行最大元素的列号。提示：将存放矩阵数据的数组和输入的行号作为Function过程参数，返回最大数所在的列号。（1）程序代码PrivateSubCommand1_Click()Dima(1To6,1To6)AsIntegerFori=1To6Forj=1To6a(i,j)=Int(800*Rnd+100)Printa(i,j);NextjPrintNextim=Val(InputBox("输入行号

6、"))Ifm>=1Andm<=6ThenPrint"第"&m&"行最大元素的列号为";findmax(a(),m)ElseMsgBox"输入的数字不在数组范围内,重新输入！"EndIfEndSubPublicFunctionfindmax(a()AsInteger,m)Max=a(m,1)line1=1Forj=2To6Ifa(m,j)>MaxThenMax=a(m,j)line1=jEndIfNextjfindmax=line1EndFunction（2）运行结果窗体【实验4-4】编写一Sub过程，求斐波那契（Fibonacci）数列的前n项数据。单击

7、命令按钮输入n值，调用该过程，在窗体中输出，每行输出5个数据。（Fibonacci数列第一项是1，第二项是1，以后各项都是前两项的和，即数列值为：1、1、2、3、5、8、13……）。（如图4-4所示）提示：用数组作为过程参数（1）程序代码PrivateSubfact(a()AsInteger,ByValnAsInteger)DimiAsIntegera(1)=1a(2)=1Fori=3Tona(i)=a(i-1)+a(i-2)NextiEndSubPrivateSubCommand1_Click()Dima()AsIntegerDimiAsInteger

8、,nAsIntegern=Val(InputBox("请输入Fibonacci数