VB实验四实验报告2018.pdf

《VB实验四实验报告2018.pdf》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、实验报告四课程VB程序设计实验项目VB过程与函数设计(6学时)成绩专业班级石油工程2017姓名万佳宁学号201731011301实验日期6.6实验目的（1）掌握Function过程和Sub过程的定义与调用（2）理解参数按址传递和按值传递的本质（3）理解变量和过程的作用域（4）能熟练运用Function过程和Sub过程解决实际问题、简化程序实验内容【实验1】编写Function函数程序实现计算n！。程序界面如下图所示。（5分）掌握函数过程的定义及使用实验结果：【实验1代码】PrivateSubCommand1_Click()n=Val(Text1.Text)Text2.Text=ji

2、echeng(n)EndSubPrivateFunctionjiecheng(a)t=1Fori=1Toat=t*iNexti....jiecheng=tEndFunctionPrivateSubCommand2_Click()EndEndSub【实验1典型结果】【实验2】编写Sub子函数过程实现计算n！。程序界面同上题。（5分）掌握Sub子过程的定义及使用实验结果：【实验2代码】PrivateSubCommand1_Click()n=Val(Text1.Text)Calljiecheng(n,t)Text2.Text=tEndSub....Subjiecheng(a,t)t=1F

3、orj=1Toat=t*jNextjEndSubPrivateSubCommand2_Click()EndEndSub【实验2典型结果】【实验3】编写计算n!的函数过程，调用该过程，计算1!+2!+3!+⋯⋯+10!之和（5分）掌握使用Function过程简化多重循环的方法，即把具有单一功能的内循环放到函数内部函数的作用是简化程序，不要把双重循环都放到函数内，无法达到简化程序的目的实验结果：....【实验3代码】PrivateSubForm_Click()n=Val(InputBox(1))Forj=1Tonb=b+jiecheng(j)NextjPrintbEndSubFunct

4、ionjiecheng(a)t=1Fori=1Toat=t*iNextijiecheng=tEndFunction【实验3典型结果】【实验4】编写计算n!的子过程，调用该过程，计算1!+2!+3!+⋯⋯+10!之和（5分）....掌握使用Sub过程简化多重循环的方法，即把具有单一功能的内循环放到函数内部函数的作用是简化程序，不要把双重循环都放到函数内，无法达到简化程序的目的实验结果：【实验4代码】PrivateSubForm_Click()n=Val(InputBox(1))Fori=1TonCalljiecheng(i,b)c=c+bNextiPrintcEndSubSubjie

5、cheng(a,b)t=1Forj=1Toat=t*jNextjb=tEndSub【实验4典型结果】....nx【实验5】编写计算x/n!的函数过程，调用该过程，计算e的近似值（10分）x23ne=1+x/1!+x/2!+x/3!+⋯⋯+x/n!要求：1）x的值用InputBox函数输入n2）要求精度：x/n!<0.000001掌握使用函数过程简化多重循环的方法实验结果：【实验5代码】Functionjiecheng(a)t=1....Fori=1Toat=t*iNextijiecheng=tEndFunctionPrivateSubCommand1_Click()DimbAsLo

6、ngx=Val(Text1.Text)d=1Doi=i+1b=jiecheng(i)c=x^id=d+c/bLoopUntilc/b<0.000001PrintdEndSub【实验5典型结果】....【实验6】编写程序输出200~300之间的素数。（10分）要求：1）利用函数过程编写判断一个数是否是素数的程序，如果是素数则返回1，否则返回02）将素数输出到列表框掌握使用函数过程简化多重循环的方法实验结果：【实验6代码】PrivateSubCommand1_Click()Forj=200To300Ifsushu(j)=1ThenList1.AddItemjNextj....EndSu

7、bFunctionsushu(n)Fori=2Ton-1IfnModi=0ThenExitForNextiIfi>n-1Thenflag=1Elseflag=0EndIfsushu=flagEndFunction【实验6典型结果】【实验7】编写程序验证100以内数的哥德巴赫猜想（任意一个大于6的偶数可以表示成两个素数之和），要求素数判断用函数过程实现。（10分）....掌握使用函数过程简化多重循环的方法实验结果：【实验7代码】PrivateSubCommand1_Cl