实验四 函数

实验四函数、过程

一. 实验目的

1. 掌握函数、过程的定义方法

2. 理解和掌握常用的内部函数、方法的功能和使用

3. 掌握函数、过程、方法的调用

4. 掌握递归的概念和使用方法

5. 熟悉程序设计中的常用算法

二. 实验内容

1. 常用的内部函数

2. 过程的定义

3. 过程、方法的调用

4. Print等方法的使用

三. 实验要求及过程

1. 本实验重点练习在程序设计中使用函数、过程，对程序界面进

行美化设计。

2. 例：

设计步骤：

⑴设计窗体及设置控件属性（实验中进行）：

⑵程序代码如下：

Private Sub Form_Click()

Dim sZhs As Single, n, m

n = InputBox("请输入n", "计算组合数（输入窗口1)")

m = InputBox("请输入m", "计算组合数（输入窗口2)")

sZhs = fact(n) / fact(m) / fact(n - m)

Print

Print Tab(2); "从"; n; "个不同的元素中取出"; m; "个元素的组合数为"; sZhs

End Sub

Public Static Function fact(n)

Dim f, i

f = 1

For i = 2 To n

f = f * i

Next i

fact = f

End Function

3. 计算N！

设计步骤：

⑴设计窗体及设置控件属性（实验中进行）：

⑵程序代码如下：

Option Explicit

Sub fact(n, f)

Dim i As Integer

f = 1

For i = 2 To n

f = f * i

Next i

End Sub

Private Sub Form_Click()

Dim mstr As String, n As Integer, f As Double, comb As Double mstr = "计算N!"

n = InputBox("请输入N", mstr)

fact n, f

comb = f

Print n; "!="; comb

End Sub

4. 练习：实验教材P73（示例一）、P73（示例二）、P77（示例五）、

P79（练习5）

5. 写好实验报告。