第一问答网»论坛 › 中问网 › 问答 › vb中分解质因数，且要用 fun()的函数过程，下面的程序 ...

vb中分解质因数，且要用 fun()的函数过程，下面的程序不知道错在哪，主要是function里面的，请高手帮忙

11 |

1 | 2012-1-7 23:56:39 | 显示全部楼层 |阅读模式

给你修改成下面的程序：Private Sub Form_load() Command1.Caption = "分解质因数"End SubPublic Function fun(ByVal n As Integer) As String
Dim j, i As Integer
Dim p As String
p = "1"
j = n
For i = 2 To n
Do While ((j Mod i) = 0)
p = p & "x" & Str(i)
j = j / i
Loop
Ne...

使用道具举报