过程与函数设计.docVIP

西南石油大学实验报告 课 程 VB程序设计 实验项目 过程与函数设计 指导教师 张翼凌 专业班级 学 号 姓 名 实验日期 成 绩 实验目的： 掌握Function过程的定义及调用 掌握Sub过程的定义和调用 掌握过程调用之间参数传送的方法 掌握变量的作用域 实验内容： 【实验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）程序代码 Public Function fact(n) As Single Dim i As Integer, t As Single t = 1 For i = 1 To n t = t * i Next i fact = t End Function Private Sub Command1_Click() Dim n As Integer x = InputBox(输入x:) Do t = chitty(x, n) Sum = sun + t n = n + 1 Loop While t 0.00001 Print e^x的值约等于： Sum End Sub Public Function chitty(x, n) As Variant chitty = x ^ n / fact(n) End Function Private Sub Command1_Click() Dim n As Integer x = Val(InputBox(输入x)) Do t = x ^ n / fact(n) s = s + t n = n + 1 Loop While t 0.000001 Print e^x的值约等于： Print s End Sub Function fact(n) As Long Dim i As Integer, f As Long f = 1 For i = 1 To n f = f * i Next i fact = f End Function （2）运行结果窗体 【实验4-2】编写一Function函数过程，用于判断一个数据是否为素数，若是，返回1，否则返回0。单击窗体中命令按钮，调用该过程，找出200~600范围内所有素数，并将所有素数添加在列表框中。(如图4-2所示） （1）程序代码 Private Sub Command1_Click() For i = 200 To 600 If fact(i) = 1 Then List1.AddItem i Next i End Sub Public Function fact(k) f = 0 For m = 2 To k - 1 If k Mod m = 0 Then f = 0 Exit For Else f = 1 End If Next m fact = f End Function （2）运行结果窗体 【实验4-3】编写程序，利用随机函数生成一个6 行6列的整型矩阵（数据在100~900范围内），找出某个指定行内最大元素所在的列号。（如图4-3所示） 要求：求指定行内最大元素所在的列号用Function过程实现。输出矩阵所有数据，然后用InputBox函数输入行号，调用Function过程后输出该行最大元素的列号。 提示：将存放矩阵数据的数组和输入的行号作为Function过程参数，返回最大数所在的列号。 （1）程序代码 Private Sub Command1_Click() Dim a(1 To 6, 1 To 6) As Integer For i = 1 To 6 For j = 1 To 6 a(i, j) = Int(800 * Rnd + 100) Print a(i, j); Next j Print Next i m = Val(InputBox(输入行号)) If m = 1 And m = 6 Then Print 第 m 行最大元素的列号为; findmax(a(), m) Else