namedajipai
2016-11-29 16:28
采纳率: 90.6%
浏览 1.0k
已采纳

vb自定义函数的方式是不是可以代替循环直接给数组的一个范围赋值？

vb自定义函数的方式是不是可以代替循环直接给数组的一个范围赋值？函数代替循环的做法是什么？怎么使用函数代替循环给范围赋值？

  • 点赞
  • 写回答
  • 关注问题
  • 收藏
  • 邀请回答

2条回答 默认 最新

  • shen_wei 2016-11-30 04:18
    已采纳

    对于数组赋值，你可以在定义时直接赋值，一种就是使用时赋值。。

    点赞 评论
  • Tiger_Zhao 2016-12-01 09:04

    代码

        Option Explicit

    Sub Main()
        Dim b()         As Long
        Dim i           As Long

        b = NewLongArray(3, 6, 9)
        For i = 0 To UBound(b)
            Debug.Print b(i)
        Next
    End Sub

    Function NewLongArray(ParamArray args()) As Long()
        Dim a()         As Long
        Dim i           As Long

        ReDim a(UBound(args))
        For i = 0 To UBound(args)
            a(i) = args(i)
        Next

        NewLongArray = a
    End Function

    输出

        3 
    6 
    9
    点赞 评论

报告相同问题？

提交

相关推荐 更多相似问题