[已解决]Function可以返回2个或多个值么？

八月的梦游者

QUOTE:

以下是引用爱疯在2010-3-9 20:12:00的发言：

谢谢八月院长、飞版！

学习了！

平时，用惯sub了，所以看到function，不自己就迟钝些了。这样总结对么？

在外，必须全副武装（带参），如 ReDim arr(b(5))；

在内，摘盔卸甲也可（不带参），如 b = x + 1。也可带参，如 b(x) = x + 1。

PS：加粗部分，没把握 [em04]

这个要看怎么理解function。自定义函数可以返回一个数值，也可以返回一个数组。

像这样只定义一个function函数而不指定返回类型的话，根据自定义函数代码来确定返回类型，可以是一个Variant类型的值，也可以是一个Variant类型的数组。

Function b(x)
End Function

在外部调用自定义函数b时，需要确定返回的值是什么。

ReDim arr(b)的错误之处是没有给自定义函数传递值，如果你定义为x为Optional参数的话，也可以直接使用arr(b)

Sub a()
    Dim arr
    ReDim arr(b)
    Stop
   
End Sub

Function b(Optional x = 0)
    b = x + 1
End Function

在内部的话，也不可以使用b(x) = x + 1。

爱疯

谢谢八月院长！

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

看了帮助后，还是不明白，请问Function b(Optional x = 0)是什么意思啊？

Sub a()
    Dim arr

    Call b(5)
    ReDim arr(b(5))
    Stop
    
End Sub

Function b(x)
    b(x) = x + 1
End Function

这样，就变得无意义了。但语法上，不算不可以吧[em04]

八月的梦游者

Function b(Optional x = 0)表示参数x是可选的。你可以用

y=b(5)来调用

也可以使用

y=b

直接来调用。使用y=b来调用时省略了参数x，这样在自定义函数中x设置为默认值为0（你也可以改成optional x=5）。

关于

Sub a()
    Dim arr

    Call b(5)
    ReDim arr(b(5))
    Stop
    
End Sub

Function b(x)
    b(x) = x + 1
End Function

语法上是没有错。只是Call b(5)不起任何作用，因为你没有将这个自定义函数赋值给任何一个变量。

爱疯

谢谢八月院长！

学习了

[em27]

lpsh1985

[em04][em04][em04]

半夜偷偷回来学习

爱疯

QUOTE:

以下是引用lpsh1985在2010-3-9 22:52:00的发言：

[em04][em04][em04]

半夜偷偷回来学习

每天偷偷回，才是真的男人

[em03]

liuxingyi88

没懂

hnnyfcykl

学习

liyh67

跟着学习一下

xdwy81129

路过学习下难难的问题。