问一个call语句的调用数组的问题

[homebysea]

我遇到的问题类似下面的这个调用语句

Private Sub Cmd2_Click()
n = Val(txtN.Text)
Dim x(n) As Integer
For i = 1 To n
x(i) = i
Next i
Call sumarray (x() as Integer) ’这行有错，不知道怎么修改
End Sub

Sub sumarray(y() As Integer)
For i = 1 To n
Sum = Sum + y(i)
Next i
Txt.Text = Sum
End Sub

这个数组是动态的数组，在计算的时候，由用户输入其维数，请问怎么修改上面的语句啊。

[subzero]

Private Sub Cmd2_Click()
Dim n As Long
Dim x() As Integer
Dim i As Integer

n = Val(txtN.Text)
ReDim x(n)
For i = 0 To n - 1
x(i) = i
Next
Call sumarray(x())
End Sub

Sub sumarray(y() As Integer)
Dim i As Long
Dim sum As Long

For i = 1 To UBound(y)
sum = sum + y(i)
Next i
txtN.Text = sum
End Sub

改成这样

[reallyloveyou]

X(I)的那个FOR什么也没做。

[assa]

hehe 不好意思！：））

[rainstormmaster]

Call sumarray (x() as Integer)
这么写不行，不用再as Integer了
sumarray (x()) 即可

[homebysea]

谢谢subzero(赘姆烂壳)的解答，

TO：assa(许恺) and reallyloveyou(江小鱼)

不好意思，我的问题只是类似那样的语句而已，都是先赋值，然后调用而已。

[assa]

传一个数组是不可能的了。
要是单从上面的问题看
For i = 1 To n
x(i) = i
tem=tem+x(i)
Next i
不就可以了！