VB几种函数参数传递方法_id_999

http://blog.sina.com.cn/u/1708460715

首页博文目录关于我

个人资料

微博

加好友发纸条

写留言加关注

博客等级：
博客积分：

博客访问：
关注人气：
获赠金笔：0支
赠出金笔：0支
荣誉徽章：

正文字体大小：大中小

VB几种函数参数传递方法

(2019-04-12 11:16:21)

标签：

vb

函数参数传递

分类：程序设计_VB

VB几种函数参数传递方法，Variant，数组，Optional，ParamArray

一) 过程的参数被缺省为具有 Variant 数据类型。

1）ByRef按地址传递参数在 VB 中是缺省的

按地址传递参数后，过程返回的也是地址，函数中改变了的变量值也将带回来。

2）ByVal 关键字指出参数是按值来传递的

按值传递参数时，传递的只是变量的副本。如果过程改变了这个值，则所作变动只影响副本而不会影响变量本身。

二）使用不定数量的参数 ParamArray

一般说来，过程调用中的参数个数应等于过程说明的参数个数。可用 ParamArray 关键字指明，过程将接受任意个数的参数。于是可以这样来编写计算总和的 Sum 函数：

Dim x As Integer，y As Integer，intSum As Integer

Sub Sum (ParamArray intNums ())

For Each x In intNums

y = y + x

Next x

intSum = y

End Sub

调用方法 Sum 1, 3, 5, 7, 8

三）Optional 关键字，使用可选的参数

Optional 关键字，就可以指定过程的参数为可选的。如果指定了可选参数，则参数表中此参数后面的其它参数也必是可选的，并且要用 Optional 关键字来声明。

Dim strName As String，varAddress As Variant

Sub ListText (x As String, Optional y As Variant)

List1.AddItem x

If Not IsMissing (y) Then

List1.AddItem y

End If

End Sub

调用1： Call ListText("yourname") '未提供第二个参数。

2: Call ListText("yourname",12345)

在未提供某个可选参数时，实际上将该参数作为具有 Empty 值的变体来赋值。

上例说明如何用 IsMissing 函数测试丢失的可选参数。

四）Optional 声明arr()数组与Variant 方法

通常用Optional arr() as TypeName 为非法

此时可声明函数变量为 Optional arr as Variant

调用时可使用Fun(arr())

此时函数中可用LBound(arr)的UBound(arr)确定数组边界

---------------------

作者：whchensir

来源：CSDN

原文：https://blog.csdn.net/whchensir/article/details/52050796

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report

前一篇：VB之set语句的用法

后一篇：VB数组作参数的注意点

新浪BLOG意见反馈留言板　欢迎批评指正