VB过程

     下面是VB的过程总结

这是一个使用Sub过程求阶乘的例子

Private Sub Command1_Click()
    Dim i%, total!
    Call Fact(5, total)
    Text1 = "5!=" & total
   
End Sub

Private Sub Command2_Click()
    Dim i%, total!
    Call Fact(8, total)
    Text1 = "8!=" & total
   
   
End Sub
Private Sub Fact(n As Integer, total As Single)
    Dim i%
    total = 1
    For i = 1 To n
        total = total * i
    Next
End Sub

 

 

 

这是一个按值传递的例子

Sub test(ByVal m As Integer)
m = m + 5

End Sub
Private Sub Command1_Click()
    Dim x As Integer
    x = 6
    Print "调用Sub过程前 x="; x
    Call test(x)
    Print "调用Sub过程后 x="; x
   
End Sub

下面是一个按地址传递的例子

Sub test(ByRef m As Integer)
m = m + 5

End Sub
Private Sub Command1_Click()
    Dim x As Integer
    x = 6
    Print "调用Sub过程前x="; x
    Call test(x)
    Print "调用Sub过程后x="; x
   
End Sub