tkgg6034

我写了一个排序的函数，并在标准模块里定义成public
但是在过程调用时，提示byref参数错误
函数的原形是：
Public Sub danxu(text As String, szxu() As fs, n As Integer)
Dim g As Integer
Dim i As Integer
g = gesuo(text)
ReDim szxu(g) As fs
For i = n To g - 2
ReDim Preserve szxu(i) As fs
szxu(i) = szxu(i + 1)
Next i
ReDim Preserve szxu(UBound(sz) - 1) As fs
End Sub
过程的原形是：
call danxu(text1.text,sz(),m)
请班主说明一下，道底哪错了
应该怎么办啊

Nothing

call danxu(text1.text,sz(),m)
这句有问题
必需定义sz和值，即必需这样
Dim sz() As fs
Dim m As Integer
才能使用
call danxu(text1.text,sz(),m)

Breanna6998

oh, ah, WHAT?