Afutseng's Blog

質因式分解 - 使用遞迴
Private Sub Command1_Click()
   N = Val(InputBox("N="))
   Print N; "=";
   Call PrimeAnalyse(N, 2, "")
End Sub

Public Sub PrimeAnalyse(ByVal N&, ByVal i&, ByVal ans$)
   If N > 1 Then
      If N Mod i = 0 Then
         Call PrimeAnalyse(N / i, i, ans & "*" & i)
      Else
         Call PrimeAnalyse(N, i + 1, ans)
      End If
   Else
      Print Mid(ans, 2)
      Exit Sub
   End If
End Sub

題目來源：http://tw.knowledge.yahoo.com/question/question?qid=1106111910228