vb中函数的调用与参数的传递

不念不忘少年蓝@ 2022-07-15 05:47 197阅读 0赞

[VB中的Type/With和For Each……Next][VB_Type_With_For_Each_Next]

[不同模块过程的调用、菜单的编辑][Link 1]

### vb中函数的调用与参数的传递   ###

2010-12-14 20:44:59|  分类： [ 技术应用][Link 2] |  标签：|举报 |字号大中小 订阅

![1071535622010111484230226_w_100_h_100_act_qbbkfxtj_20150420_05][]

用微信  “扫一扫”

将文章分享到朋友圈。

![1071535622010111484230226_w_100_h_100_act_qbbkfxtj_20150420_06][]

用易信  “扫一扫”

将文章分享到朋友圈。

[  下载LOFTER][LOFTER] [ 我的照片书  |][Link 3]

形参如果是数组必须加小括号

如：定义过程   sub em( pay() as Single)

调用过程     em(xu())

**按值传递（ByVal****）**：形参和实参占有不同的存储空间，调用过程改变了形参变量的值，实参的值不会受影响。调用结束后，实参还是调用之前的值，

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(ByVal m As Integer)

m = m + 5

End Sub

**按地址传递（ByRef****，默认的传递方式**）:调用过程，实参变量的地址传递给形参，使用相同的地址，因此使用相同的数据类型，只有实参是变量或数组时才能按地址传递，如果是常量，实际进行的是按值传递

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

数组做参数时是按地址传递参数的，不能使用关键字“ByVal”修饰形参

[VB_Type_With_For_Each_Next]: http://blog.163.com/xudepeng0813@126/blog/static/1071535622010111233038752/
[Link 1]: http://blog.163.com/xudepeng0813@126/blog/static/1071535622010111485131859/
[Link 2]: http://blog.163.com/xudepeng0813@126/blog/#m=0&t=1&c=fks_084066084094086064092083082095085086086066081085083069086
[1071535622010111484230226_w_100_h_100_act_qbbkfxtj_20150420_05]: /images/20220715/8d4320c516c047fc8cf67212f8da05cb.png
[1071535622010111484230226_w_100_h_100_act_qbbkfxtj_20150420_06]: /images/20220715/70aa49d990864b99a2f2b99537484dae.png
[LOFTER]: http://www.lofter.com/app?act=qbbkrzydb_20150408_01
[Link 3]: http://yxp.163.com/