about function and sub

函数和过程的区别仅在于函数有返回值，而过程没有。

过程的定义：
Sub MySub()
......
end sub

函数定义：
Function MyFunction()as Object  'as子句标明了函数返回值的类型
......
end function

过程和函数可以带参数。
[example]
imports System
public Module MyModule
    Sub Main()
        AddOne(3)    '这里调用函数AddOne并传入一个参数3
        Console.ReadLine
    end sub
    
    public sub AddOne(Byval n as Integer)  '这里是函数AddOne的定义
        Console.WriteLine(n + 1)
    end sub
end module

函数是有返回值的。
[example]
imports System
public Module MyModule
    Sub Main()
        Console.WriteLine(AddTwo(3))   '这里使用函数AddTwo
        Console.ReadLine
    end sub
 
    public Function AddTwo()function AddTwo(Byval n as Integer) as Integer
        return n + 2  '用return!
    end function
end module

[example]
imports System
public Module MainModule
    public Sub Main()
        dim i, j as integer
        i = ReadNumber("第一个数：")
        j = ReadNumber("第二个数：")
        Console.WriteLine("{0}:{1}", "结果是", i + j)
        Console.Read
    end sub
 
    public Function ReadNumber()(Byval Message as String) as Integer
        Console.WriteLine(Message)
        return cint(Console.Readline)
    end function
end Module