主题：[求助]自定义函数

自定义函数代码：

Dim a As Integer=Args(0)

Dim b() As Integer

Dim an As Integer

If a>0 And cint(a)=cdbl(a) Then

    For  i As Integer=2 To math.ceiling(math.sqrt(a))

        If a Mod i=0 Then

            b(an)=i

            b(an+1)=a\i

            an=an+2

            output.show(b(an) &"," & b(an+1) & vbcrlf )

        End If

    Next

Else

    MessageBox.show("求解的数必须是正整数!")

End If