找出一个正整数的所有质因子 用vb编 急需 谢谢

找出一个正整数的所有质因子。如36的质因子是2，3。

Private Sub Command1_Click()
n = CInt(InputBox("请输入n:"))
t = n
For i = 2 To n / 2
p = t
Do While t Mod i = 0
t = t \ i
Loop
If p <> t Then s = s & i & " "
Next i
MsgBox n & "的所有质因子是:" & s
End Sub

-------------------------------------------------------------

算法二:

Private Function sushu(a As Integer) As Boolean
For i = 2 To CInt(Sqr(a))
If a Mod i = 0 Then
sushu = False
Exit Function
End If
Next i
sushu = True
End Function

Private Sub Command1_Click()
Dim s As String, n As Integer, i As Integer
n = CInt(InputBox("请输入n:"))
s = ""
For i = 2 To CInt(Sqr(n))
If n Mod i = 0 And sushu(i) = True Then
s = s & i & " "
End If
Next i
MsgBox n & "的所有质因子是:" & s
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息