发新话题
打印

函数调用的问题

函数调用的问题

我写了一个排序的函数,并在标准模块里定义成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

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

TOP

Confusion

oh, ah, WHAT?
[url=http://uk-online-casinos.pkak.com]trusted casinos[/url] [url=http://bonus-online-gambling-top.b8w.net]gambling bonuses[/url]

TOP

发新话题