请选择 进入手机版 | 继续访问电脑版
设为首页收藏本站

就爱编程论坛

 找回密码
 注册

人人连接登陆

无需注册,直接登录

用新浪微博连接

一步搞定

QQ登录

只需一步,快速开始

查看: 845|回复: 0

vb中关键字optional和ismissing函数的意义及用法 [复制链接]

Rank: 9Rank: 9Rank: 9

  • TA的每日心情

    2017-2-21 09:45:45
  • 签到天数: 381 天

    [LV.9]以坛为家II

    论坛先锋 学习至圣 荣誉成员 论坛元老 活跃之星 终极领袖

    发表于 2012-10-23 22:33:04 |显示全部楼层
    [Optional] [ByVal | ByRef] [ParamArray] varname[( )] [As type] [= defaultvalue]

    部分 描述
    Optional 可选的。表示参数不是必需的。如果使用了该选项,则 arglist 中的后续参数都必须是可选的,而且必须都使用 Optional 关键字声明。如果使用了 ParamArray,则任何参数都不能使用 Optional 声明。

    返回 Boolean 值,指出一个可选的 Variant 参数是否已经传递给过程。

    语法

    IsMissing(argname)

    必要的 argname 参数包含一个可选的 Variant 过程参数名。

    说明

    使用 IsMissing 函数来检测在调用一个程序时是否提供了可选 Variant 参数。如果对特定参数没有传递值过去,则 IsMissing 返回 True;否则返回 False。如果 IsMissing 对某个参数返回 True,则在其它代码中使用这个丢失的参数将产生一个用户自定义的错误。如果对 ParamArray 参数使用 IsMissing,则函数总是返回 False。为了检测空的 ParamArray,可试看一下数组的上界是否小于它的下界。

    注意 IsMissing 对简单数据类型(例如 Integer或Double)不起作用,因为与Variants不同,它们没有“丢失”标志位的前提。正由于此,对于可选参数类型,可以指定缺省值。如果调用过程时,参数被忽略,则该参数将具有该缺省值,如下列示例中所示:

    Sub MySub(Optional MyVar As String = "specialvalue ")
    If MyVar = "specialvalue " Then
    ' MyVar 被忽略。
    Else
    ...
    End Sub

    在许多情况下,如果用户从函数调用中忽略,则可以通过使缺省值等于希望 MyVar 所包含的值来完全忽略 If MyVar 测试。这将使您的代码更简洁有效。
    ================
    Optional用来说明参数是可选的,IsMissing判断该参数是否传递了。见下例:
    Dim ReturnValue
    ' 下列语句调用用户自定义函数。
    ReturnValue = ReturnTwice() ' 返回 Null。
    ReturnValue = ReturnTwice(2) ' 返回 4。

    ' 函数过程定义。
    Function ReturnTwice(Optional A)
    If IsMissing(A) Then
    ' 如果参数丢失,则返回 Null。
    ReturnTwice = Null
    Else
    ' 如果参数出现,则返回两倍的值。
    ReturnTwice = A * 2
    End If
    End Funciton
    [img=http://mail.qq.com/cgi-bin/qm_share?t=qm_mailme&email=fRUcHhYWGAQ9GxIFEBwUEVMeEhA]http://rescdn.qqmail.com/zh_CN/htmledition/images/function/qm_open/ico_mailme_02.png[/img]

    使用道具 举报

    您需要登录后才可以回帖 登录 | 注册 人人连接登陆

    晴云孤魂's Blog|就爱编程搜帖|手机版|Archiver|就爱编程论坛     

    GMT+8, 2017-5-29 04:27 , Processed in 0.089072 second(s), 24 queries .

    Powered by Discuz! X2

    © 2001-2011 Comsenz Inc.

    回顶部