原创力文档- 1、本文档共6页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
实验报告-Fuction过程程序设计
西 南 石 油 大 学 实 验 报 告
课 程 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)
文档评论（0）