内容发布更新时间 : 2024/6/26 9:58:39星期一 下面是文章的全部内容请认真阅读。

实 验 报 告 四

课 程 VB程序设计 专业班级 姓 名 学 号 实验日期 实验项目 VB过程与函数设计(6学时) 成 绩 实验目的

（1）掌握Function过程和Sub过程的定义与调用 （2）理解参数按址传递和按值传递的本质 （3）理解变量和过程的作用域

（4）能熟练运用Function过程和Sub过程解决实际问题、简化程序

实验内容

【实验1】编写Sub子程序实现计算n！。程序界面如下图所示。（5分）

掌握Sub过程的定义及使用

实验结果：

【实验1 代码】

Dim n As Integer, s As Long Private Sub Command1_Click() n = Val(Text1.Text) Call f(s, n) Text2.Text = s End Sub

Sub f(m As Long, n As Integer) Dim i As Integer

1

m = 1 For i = 2 To n m = m * i Next i End Sub

Private Sub Command3_Click() End End Sub

【实验1 典型结果】

【实验2】编写Function函数过程实现计算n！。程序界面如下图所示。（5分）

掌握Function过程的定义及使用

实验结果：

【实验2 代码】

2

Dim n As Integer, s As Long Private Sub Command1_Click() n = Val(Text1.Text) s = f(n) Text2.Text = s End Sub

Function f(n As Integer) Dim i As Integer m = 1 For i = 2 To n m = m * i Next i f = m End Function

Private Sub Command2_Click() End End Sub

【实验2 典型结果】

3