函数与过程（相关vb.net教程)
结构化程序设计四种结构：顺序结构、选择结构、
循环结构、模块结构（自定义函数、过程）
第一至三节：自定义函数与自定义过程。
函数与过程怎么定义的？
怎么调用（即应用所定义的解决问题）？
作用：结构化程序中的模块设计，减少程序的冗余度，增加程序的可读性。
同时，也它也提供了编写代码的又一位置。
定义位置：可以放在窗体类中，与事件过程平行；也可以放在单独的模块中（项目—添加模块—模块，此时的函数与过程前需用public说明）。
定义形式：
函数：
Public/private function 函数名（参数表与类型）函数类型
如: private function max(x as integer,y as integer)as integer
过程：
Public/private sub 过程名（）
如：private sub pri()
调用形式：
函数的调用出现在表达式中，如：
Mm=max(a,b)，或s = sum(x, y)
过程的调用则以单独的句语，如：
Pri()  或 call prin()
窗体中定义的模块与在标准模块中定义的模块在使用上的
区别：
不同位置中定义的函数或过程，调用时应用范围也不同，
详见，SUM
应用实例，分别定义一个求最大数，最小数的函数，对任意
输入的三个数，求最大，最小值；并定义一个输出*号倒三
角形的过程。[实验报告16]
程序见，自定义函数、过程的应用_求最大最小值、输出三
角形，程序为：
Public Class Form1
Private Function min(ByVal x As Integer,
ByVal y As Integer) As Integer
        Dim mi As Integer
        mi = IIf(x > y, y, x)
        min = mi
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a, b, c, ma, mi As Integer
        a = Val(InputBox("输入数:", "输入", 1))
        b = Val(InputBox("输入数:", "输入", 1))
        c = Val(InputBox("输入数:", "输入", 1))
        ma = max(max(a, b), c)
        mi = min(min(a, b), c)
        System.Console.WriteLine("三个数为:" & a & " " & b & " " & c)
        System.Console.WriteLine("max=" & ma)
        System.Console.WriteLine("min=" & mi)
    End Sub
    Private Sub prin()
        Dim i, j As Integer
        For i = 1 To 4
            For j = 9 - 2 * i To 1 Step -1
                System.Console.Write("*")
            Next
            Console.WriteLine()
            Console.Write(Space(i))
        Next
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Call prin()
        prin()
    End Sub
End Class
Module Module1
    Public Function max(ByVal x As Integer, ByVal y As Integer) As Integer
        Dim ma As Integer
        ma = IIf(x > y, x, y)
        max = ma
    End Function
End Module