下面是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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。