过程与函数设计

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

1、西南石油大学实验报告课程VB程序设计实验项目过程与函数设计指导教师专业班级工程管理3班学号姓名实验日期成绩实验目的：(1)掌握Function过程的定义及凋用(2)掌握Sub过程的定义和调用(3)掌掘过程调用之间参数传送的方法(4)学握变S的作用域实验内容：【实验4-1】编写计算n!的Function过程，调用该过程，汁算的近似位。(如阁4-1所示)cx1+x/1!+x2/2!+x3/3!+...+xn/n!要求：1)x的值用InputBox函数输入2)要求精度：xn/n!<0.000001(1)程序代码Functionmijishu(xAsInteger)AsDoubl

2、et=1e=1n=0Don=n+1t=t*x/nc=c+tLoopWhilet>0.000001mijishu=eEndFunctionPrivateSubCommandl_Click()CisDimxAsIntegerx=Val(InputBox("输入x’’))Print"eAx的值约等于："Printmijishu(x)EndSub(2)运行结果窗体工程1输入X确取消【实验4-2】编写一Function函数过程，用于判断-个数据是否为素数，若是，返回1，否则返回0。单击窗体中命令按钮，调用该过程，找出200〜600范围闪所有素数，并将所冇素数添加在列表框中。(如图4

3、-2所示)(1)程序代码Functionisprime(nAsInteger)AsIntegerFori=2Ton-1IfnModi=0ThenExitForNextiIfi>n-1Thenisprime=1Elseisprime=0EndIfEndFunctionPrivateSubCommand1_Click()DimiAsIntegerFori=200To600Ifisprime(i)=1ThenListl.AddltemiNextiEndSub(2)运行结果窗体【实验4-3】编写程序，利川随机函数生成一个6行6列的整型矩阵(数据在100〜900范围内)，找出某个指

4、定行内最人元素所在的列号。(如图4-3所示)要求：求指定行内最人元素所在的列号用Function过程实现。输出矩阵所科数据，然f用InputBox函数输入行号，调用Function过程后输出该行敁大元素的列号。提示：将存放矩阵数据的数组和输入的行号作为Function过程参数，返冋最大数所在的列号。(1)程序代码OptionBase1Functionjuzheng(a()AsLong,hangAsLong)AsLongMax=a(hang，1)k=1Forj=2To6Ifa(hang,j)>MaxThenMax=a(hang,j)EndIfNextjjuzheng=kEn

5、dFunctionPrivateSubForm_Click()CisDima(6,6)AsLong,nAsLongFori=1To6Forj=1To6a(i,j)=Int(Rnd*800)+100NextjNextiFori=1To6Forj=1To6Printa(i,j);NextjPrintNextin=Val(InputBox(""))Print••第"&n;"行最大元素所在列号为:juzheng(a()，n)EndSub(2)运行结果窗体工程1确定取池656884295527185640112560180182327136336405340883421322228

6、2304284306703606062485661644668249ikFor量1第1行最大元索所在列号为:8997398586172663096【实验4-4】编写一Sub过程，求斐波那契(Fibonacci)数列的前n项数据。单击命令按钮输入n位，调用该过程，在窗体屮输出，每行输出5个数裾。(Fibonacci数列第一项是1，第二项是1,以后各项都是前两项的和，即数列值为：1、1、2、3、5、8、13……)。(如图4-4所示)提示：川数组作为过程参数(1)程序代码OptionBase1Functionfibo(a()AsLong)AsLongn=UBound(a)m=L

7、en(Str(a(n)))+10b=1Fori=1TonPrintTab(b*m-m);a(i);b=b+1IfiMod5=0ThenPrintb=1EndIfNextiEndFunctionPrivateSubCommand1_Click()Cisn=Val(InputBox("诘输入Fibonacci数列的至少前三项"，"Fibonacci数列•’))RcDima(n)AsLonga(l)=l:a(2)=1Fori=3Tona(i)=a(i-I)+a(i-2)NextiPrintfibo(a())EndSub(2)运行结果