下面这个实现在Picture1上画一条线段，红色线段
Picture1.Line (0, 100)-(200, 100), RGB(255, 0, 0)
下面为自定义功能函数
Private Function X_2(a As Integer) As Integer
X_2= a * a
End Function
这样在外部就可以调用了,竟然没有类似于c的返回语句，奇怪
下面这个是解释
Function（函数）过程的定义
Function过程的定义格式：
[Public|Private|Friend|Static]Function 过程名[(参数列表)][As数据类型]
[程序段]
[过程名=表达式]
[Exit Function]
[程序段]
[过程名=表达式]
End Function
说明：
1）Function过程以Function开头，End Function 结束，之间是描述过程操作的语句块，即“过程体”或“函数体”。格式中的“过程名”、“参数列表”、Public、Private、Friend、Static、Exit Function的含义与Sub过程相同。“As数据类型”是由Function过程
返回的值的数据类型，如省略，则为Variant。
如：已知直角三角形两直角边的值，计算斜边，可定义一个Function函数。
Function hypotenuse(A as integer,B as integer) as string
hypotenuse="sqr"(A^2+B^2)
End function
再例如：
Function BinarySearch(Lower,Upper As Integer) As Boolean
……
If Lower = Upper Then
BinarySearch = True
Exit Function
Else
BinarySearch = False '过程名=表达式
End If
……
End Function
点击此处查看原文 >>
系统分类:
软件开发 | 用户分类:
无分类
| 来源:
无分类