VB可变长参数示例：求和函数_nxhujiee

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

首页博文目录关于我

个人资料

微博

加好友发纸条

写留言加关注

博客等级：
博客积分：

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

正文字体大小：大中小

VB可变长参数示例：求和函数

(2022-04-07 10:37:26)

分类： VB

VB可变长参数示例：求和函数
━━━━━━━━━━━━━━━━━━━━━━━━━
Option Explicit

Private Function sum(ParamArray sn()) As Single 'ParamArray 定义的参数必须是变体型
    Dim i                               'for each i 中的变量 i 必须是变体型
    Dim x As Single
    For Each i In sn
        x = x + i
    Next
    sum = x
End Function

Private Sub sumb(ParamArray sn())       'ParamArray 定义的参数必须是变体型
    Dim i                               'for each i 中的变量 i 必须是变体型
    Dim x As Single
    For Each i In sn
        x = x + i
    Next
    MsgBox x
End Sub

Private Sub Command1_Click()
    Dim x As Single
    Cls
    x = sum(1, 2, 3, 4, 5.5)
    Print x
End Sub

Private Sub Command2_Click()
    Dim x As Single
    Cls
    sumb 1, 2, 3, 4, 5, 6.5
End Sub

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

前一篇：[转载]VB之Put和Get语句

后一篇：易语言可变参数示例－求和函数

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