VB语程序设计2012(总结).pptVIP

三、调用Function过程 语法： Function 函数名（[参数列表]） 或 Call 函数名（[参数列表]） 或 函数名（[参数列表]） 说明：无参数时，（）不能省略 调用方法同系统内部函数 例：用辗转相除法求最大公约数 Public Function Divisor(ByVal x As Integer, ByVal y As Integer) 计算x，y的最大公约数 Dim r As Integer r = x Mod y Do While r 0 x = y y = r r = x Mod y Loop Divisor = y End Function Private Sub Form_Click() Dim a, b, c As Integer a = InputBox(please input a) b = InputBox(please input b) c = Divisor(a, b) MsgBox Str$(a) + 与 + Str$(b) + 的最大公约数为： + Str$(c) End Sub 4.3 参数的传递 一、形参与实参 1.形参：被调用过程中的参数 2.实参：主调过程中的参数 3.形参