PowerPoint 演示文稿

l6.1 函数过程的定义
•除了系统提供的内部函数过程和事件过程外，用户可自定义过程：
l 以Sub保留字开始的为子过程
l 以Function保留字开始的为函数过程
l1. 引例6.1
•已知多边形的各条边的长度，要计算多边形的面积。
•计算多边形面积，可将多边形分解成若干个三角形。
•计算三角形面积的公式如下：
x
y
z
定义函数过程area
Public Function area(x!, y!, z!) As Single
Dim c!
c = 1 / 2 * (x + y + z)
area = Sqr(c * (c - x) * (c - y) * (c - z))
End Function
调用函数过程:
Sub command1_click()
…… 输入若干个三角形边长
S=area(a,b,c)+area(c,d,e)
S=S+area(e,f,g)
Print S
End Sub