实验报告-Function过程程序设计..docVIP

西 南 石 油 大 学 实 验 报 告 课 程 VB程序设计 实验项目 函数过程程序设计2 专业年级 指导教师 成 绩 姓 名 学 号 实验日期 2011-6-4 一、实验目的： （1）熟练掌握函数过程的定义 （2）熟练掌握函数过程的调用 （3）掌握过程的参数传递 （4）掌握常用算法 二、实验内容： 【实验】编写计算n！的函数过程，调用该过程，计算1！+2！+......+n!之和。  编写代码 Dim n Private Sub Command1_Click() n = Val(InputBox(请输入n)) Label1.Caption = 1!+2!+3!+......+ n ! For i = 1 To n Sum = Sum + f(i) Next i Label2.Caption = Sum End Sub Function f(n) m = 1 For i = 1 To n m = m * i Next i f = m End Function （3）运行效果  【实验】编写计算n！的函数过程，调用该过程，计算ex 的近似值。（1）设计界面 （2）编写代码 Function f(n) s = 1 For i = 1 To n s = s * i Next i f = s End Function Private Sub Form_Click() x = InputBox(输入 x 的值) Sum = 1: t = 1: m = 0 Do m = m + 1 t = x ^ m / f(m) Sum = Sum + t Loop Until t 0.000001 Print e^; x; =; Sum End Sub （3）运行效果  【实验】编写素数判断的函数过程，调用该过程输出200—300之间的素数。（1）设计界面 （2）编写代码 Private Function s(n) s = True For i = 2 To n - 1 If n Mod i = 0 Then s = False Exit For End If Next i End Function Private Sub Form_Click() For i = 200 To 300 If s(i) = True Then Print i Next i End Sub （3）运行效果 【实验】利用函数过程求分段函数的值（即多分支选择结构写在函数定义语句里面，主程序只用来接收x的值和输出y的值）。 （2）编写代码 Private Function f(x) Select Case x Case Is 1 f = x Case 1 To 10 f = 2 * x - 1 Case Is 10 f = 3 * x - 11 End Select End Function Private Sub Form_Click() x = Val(InputBox(请输入x的值)) Print f(x) End Sub （3）运行效果  【实验】编写程序，利用随机函数生成6行6列整型数组，找出某指定行内的最大元素Option Base 1 Dim a(6, 6) As Integer, n As Integer Private Sub Form_Click() n = Val(InputBox(指定的行数)) Randomize For i = 1 To 6 For j = 1 To 6 a(i, j) = Int(101 * Rnd) Next j Next i Print 随机函数为: For i = 1 To 6 For j = 1 To 6 Print Format(a(i, j), @@@@@); Next j Print Next i Print 第; n; 行最大元素所在列号为：; max(n) End Sub Private Function max(n) t = a(n, 1) max = 1 For j = 2 To 6 If t = a(n, j)