不只一处错误吧。说实在的,代码简直莫名其妙。
不知道你这段代码要干什么。adress,就没这个函数或方法。
Sub test()
fenshu = Array("90", "100", "110", "120", "130", "140")
k = adress(1, fenshu) '错误在这里
End Sub
Function adress(id As Integer, ParamArray fenshu())
fneshu = Null
End Function
看着这个函数很奇怪,肯定出错啊
adress 应该是 Address 吧?