函数过程-visual basic的教程
一、函数过程：引例已知多边形的各条边的长度，要计算多边形的面积。计算多边形面积，可将多边形分解成若干个三角形。计算三角形面积的公式如下：定义函数过程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() ……输入若干个三角形边长S1=area(a,b,c) S2=area(c,d,e) S3=area(e,f,g) Print S1+S2+S3 End Sub计算三个三角形的面积，使用的公式相同，不同的仅仅是边长，因此首先定义一个求三角形面积的函数过程，然后像调用标准函数一样多次调用它。 x y z
文件大小：2.37MB
评论区