[求助]自定义函数 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]自定义函数

共有4583人关注过本帖树形打印复制链接主题：[求助]自定义函数

loongtai

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：574 积分：4332 威望：0 精华：0 注册：2013/7/26 10:24:00

[求助]自定义函数 发帖心情

Post By：2013/8/24 14:52:00 [只看该作者]

我做了一个小的自定义函数：“求约数”，可在命令窗口中来试用时却出现错误。

此主题相关图片如下：截图01.png

自定义函数代码：

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

Else

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

End If

[此贴子已经被作者于2013-8-24 14:58:44编辑过]

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/8/24 14:57:00 [只看该作者]

其实除了抓图，还应该直接贴出这个函数的代码，否则别人要帮你，还得给你敲这一段代码，而且敲得也不一定正确。

要不你用下面的方法，看看哪一行代码出错：

http://www.foxtable.com/help/topics/1485.htm

然后分析原因。

[此贴子已经被作者于2013-8-24 14:56:46编辑过]

lsy

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2013/8/24 15:47:00 [只看该作者]

Dim a As Integer = 136161 'Args(0)
Dim b(99999) As Integer
Dim an As Integer = 0
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
            Output.Show(b(an) & "," & b(an + 1))
        End If
    Next
Else
    MessageBox.Show("求解的数必须是正整数!")
End If

[此贴子已经被作者于2013-8-24 15:52:56编辑过]

下一主题 >> << 上一主题

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