发新话题
打印

函数调用的问题

函数调用的问题

我写了一个排序的函数,并在标准模块里定义成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)
请班主说明一下,道底哪错了
应该怎么办啊

TOP

发新话题