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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!