下面是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