51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1902|回复: 3
打印 上一主题 下一主题

[求助] 如何用类实现可选参数

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2009-6-13 11:22:18 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
下面的代码是我理解的类
Class FF
dim  jynumber
dim  lvnumber
Dim gwbs
Private Sub Class_Initialize() '申明的时候赋初始值
jynumber=1
lvnumber=1
gwbs=1
end sub
Function dg(dgnumber,Optional gwbs as Integer=1)'这里还是不能使用可选参数的申明
   jynumber=jynumber+dgnumber*gwbs
   If jynumber>10 Then
           lvnumber=lvnumber+1
   End If
End Function

Public   Property   Let  lv(newID) 'lv属性的赋值
      lvnumber   =  lvnumber+ newID
End   Property
Public   Property   Get   lv() 'lv属性的取值
      lv   =   lvnumber
End   Property
End Class
'使用上面的类FF
Set ss=new FF
call ss.dg(9)
print ss.lv
print ss.jy


[ 本帖最后由 onlonely 于 2009-6-13 11:31 编辑 ]
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

  • TA的每日心情
    难过
    2015-9-21 13:50
  • 签到天数: 4 天

    连续签到: 1 天

    [LV.2]测试排长

    2#
    发表于 2009-6-14 20:35:02 | 只看该作者
    原创...支持原创
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    3#
    发表于 2009-6-15 10:29:29 | 只看该作者

    VBS不支持可选参数,即Optional 关键字

    如果你一定要用,看看这两个:
    分别是利用传入array和dictionary的方式实现
    http://www.4guysfromrolla.com/webtech/071801-1.shtml
    http://www.softwareinquisition.c ... guments-in-vbscript
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    4#
     楼主| 发表于 2009-6-15 21:25:22 | 只看该作者

    回复 3# 的帖子

    看来我还是放弃使用可选参数好了.
    没有一个方法比较完美.
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-11 18:51 , Processed in 0.071372 second(s), 27 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表