VB中的函数过程怎么调用？？

　　1、调用的函数名和定义的函数名不一样应改为一致。
　　2、这是个递归函数，词句在不断的调用后，最终会使b(除数)为0。这样系统就会报错，应该在Maxmod()中添加一句当b=1时，让其退出函数。
　　修改后的函数如下：
Private Function Maxmod(ByVal a As Long, ByVal b As Long) _
As Long
If b = 1 Then
Exit Function
End If
Dim p As Long
p = a Mod b
If p = b Then
Maxmod = b
Else
Maxmod = Maxmod(b, p)
End If
End Function

Private Sub Command1_Click()
Dim a As Long
Dim b As Long
Dim answer As Long
a = Val(Text1.Text)
b = Val(Text2.Text)
answer = Maxmod(a, b)
Print answer
End Sub

print Caesarjia(a,b) a,b是你要代入的2数组变量
可以调用~一样的