无返回那就是一个子过程sub，而不是函数function了，比如交换两数Sub Swap(ByRef a, ByRef b) '交换两数 c = a a = b b = cEnd Sub用的时候Swap m,n
