VB实验四实验报告 - 2016(DOC)

实验报告四

课程 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

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 代码】

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 典型结果】

VB实验四 实验报告 - 2016(DOC)