原创 vb最最初始阶段

下面这个实现在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