VB实验四 实验报告 - 2018.docVIP

PAGE 1 实 验 报 告 四 课 程 VB程序设计 实验项目 VB过程与函数设计(6学时) 成 绩 专业班级 石油工程2017 姓 名 万佳宁 学 号 201731011301 实验日期 6.6 实验目的 （1）掌握Function过程和Sub过程的定义与调用 （2）理解参数按址传递和按值传递的本质 （3）理解变量和过程的作用域 （4）能熟练运用Function过程和Sub过程解决实际问题、简化程序 实验内容 【实验1】编写Function函数程序实现计算n！。程序界面如下图所示。（5分） 掌握函数过程的定义及使用 实验结果： 【实验1 代码】 Private Sub Command1_Click() n = Val(Text1.Text) Text2.Text = jiecheng(n) End Sub Private Function jiecheng(a) t = 1 For i = 1 To a t = t * i Next i jiecheng = t End Function Private Sub Command2_Click() End End Sub 【实验1 典型结果】 【实验2】编写Sub子函数过程实现计算n！。程序界面同上题。（5分） 掌握Sub子过程的定义及使用 实验结果： 【实验2 代码】 Private Sub Command1_Click() n = Val(Text1.Text) Call jiecheng(n, t) Text2.Text = t End Sub Sub jiecheng(a, t) t = 1 For j = 1 To a t = t * j Next j End Sub Private Sub Command2_Click() End End Sub 【实验2 典型结果】 【实验3】编写计算 n! 的函数过程，调用该过程，计算1!+2!+3!+……+10!之和（5分） 掌握使用Function过程简化多重循环的方法，即把具有单一功能的内循环放到函数内部 函数的作用是简化程序，不要把双重循环都放到函数内，无法达到简化程序的目的 实验结果： 【实验3 代码】 Private Sub Form_Click() n = Val(InputBox(1)) For j = 1 To n b = b + jiecheng(j) Next j Print b End Sub Function jiecheng(a) t = 1 For i = 1 To a t = t * i Next i jiecheng = t End Function 【实验3 典型结果】 【实验4】编写计算 n! 的子过程，调用该过程，计算1!+2!+3!+……+10!之和（5分） 掌握使用Sub过程简化多重循环的方法，即把具有单一功能的内循环放到函数内部 函数的作用是简化程序，不要把双重循环都放到函数内，无法达到简化程序的目的 实验结果： 【实验4 代码】 Private Sub Form_Click() n = Val(InputBox(1)) For i = 1 To n Call jiecheng(i, b) c = c + b Next i Print c End Sub Sub jiecheng(a, b) t = 1 For j = 1 To a t = t * j Next j b = t End Sub 【实验4 典型结果】 【实验5】编写计算 xn/n! 的函数过程，调用该过程，计算ex的近似值（10分） ex=1+x/1! +x2/2!+x3/3!+ ……+xn/n! 要求：1）x的值用InputBox函数输入 2）要求精度：xn/n!0.000001 掌握使用函数过程简化多重循环的方法 实验结果： 【实验5 代码】 Function jiecheng(a) t = 1 For i = 1 To a t = t * i Next i jiecheng = t End Function Private Sub Command1_Click() Dim b As Long x = Val(Text1.Text) d = 1 Do i = i + 1 b = jiecheng(i) c = x ^ i d = d + c / b Loop Until c / b 0.000001 Print d End Sub 【实验5 典型结果】 【实验6】编写程序输出200~300之间的素数。（10分） 要求：1）利用函数过程编写判断一个数是否是素数的程序，如果是素数则返回