Private Sub Command1_Click()
n = Val(Text1.Text)
Do While i < n
For i = 2 To n - 1
If n Mod i = 0 Then
n = n \ i
s = s & i & "*"
Exit For
End If
Next i
Loop
Text2.Text = s & n
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024