如何实现既要能用数组作参数，又要能用若干个数字作参数

陈?

Private Sub Form_Load()
Dim N()
ReDim N(1 To 2)
N(1) = 1
N(2) = 2
MsgBox a(n)
End Sub
Function a(ParamArray ff())
For Each i In ff
a = a + i
Next i
End Function

这样不行

Private Sub Form_Load()
Dim N()
ReDim N(1 To 2)
N(1) = 1
N(2) = 2
MsgBox a(1,2)
End Sub
Function a(ParamArray ff())
For Each i In ff
a = a + i
Next i
End Function

这样可以

sandy_zc_1

？？？什么意思？？？
能说清楚点吗？

陈?

Function a(ParamArray ff())
For Each i In ff
a = a + i
Next i
End Function

这里的参数既可以是若干个数字,又可以是数组,如何实现

游戏之家

sandy_zc_1: Re:如何实现既要能用数组作参数，又要能用若干个数字作参数

？？？什么意思？？？
能说清楚点吗？

同一数组里处理多个不同的数据, 这个我早在打击者1940和DOS游戏里就用到了,
X(1)=1:Y(1)=1
X(2)=2:Y(2)=2
.....

不过三国里如果这样用程序反而长不好管理, 我觉得:
X(1)=1:X(2)=2  和 X1=1:X2=2 没有区别.

sandy_zc_1

陈?: Re:如何实现既要能用数组作参数，又要能用若干个数字作参数

Function a(ParamArray ff())
For Each i In ff
a = a + i
Next i
End Function

这里的参数既可以是...

不会，VB6中好像没有这个功能。

zlcnkkm

VB6:
function a(optional array() as integer, optional int_1 as integer, optional int_2 as integer, optional int_3 as integer, ....... , optional int_n as integer)

VB.NET:
两个字:重载

zlcnkkm

如果你一定要只有一个参数，用Function a(Array() as integer)，然后把若干个数字先放入数组，再传递到函数

Siner

游戏之家: Re: Re:如何实现既要能用数组作参数，又要能用若干个数字作参数




同一数组里处理多个不同的数据, 这个我早在打击者1940和DOS游戏里就用到了,
X(1)=1:Y(1)=1
X(2)=2:...

有意见喔。
我觉得用数组才更好管理
如果赋值呢？ 1000个变量你怎么用手来赋值？

for i = 1 to 1000
    a(i)=i
next i

a1=1:a2=2:a3=3....???

Siner

Option Explicit

Private Sub Form_Load()
    Dim N() As Integer
    Dim i As Integer
   
    '重定义数组下标
    ReDim N(1 To 2)
   
    For i = 1 To 2
        N(i) = i
    Next i
   
    MsgBox "结果：" & sum(1, 2, 3, 4)
    MsgBox "结果：" & sum(N)
End Sub

Function sum(a, ParamArray b())
    Dim item As Variant
    Dim tmpSum As Long
    If UBound(b) >= 0 Then
        tmpSum = tmpSum + a
        For Each item In b
            tmpSum = tmpSum + item
        Next
    Else
        For Each item In a
            tmpSum = tmpSum + item
        Next
    End If
    sum = tmpSum
End Function

游戏之家

Siner: Re: Re: Re:如何实现既要能用数组作参数，又要能用若干个数字作参数



有意见喔。
我觉得用数组才更好管理
如果赋值呢？ 1000个变量你怎么用手来赋值？

for i = 1 to 10...

for i = 1 to 1000
a(i)=i
next i
那请问I等于几?
是不是A(1),A(2),A(3)都一样, 就是每个城市的士兵开始都一样?
你还不是要分开写
A(1)=2000
A(2)=3000
根本没意义, 你这个用法只适合飞机子弹(弓箭), 不适合城市管理.
游戏里也不可能用到1000个变量, 该用数组的地方我都用了,
不想用数组的地方我就用独立变量.