Question

用VB做:将一个正整数分解质因数

将一个正整数分解质因数。例如：输入90,打印出90=2*3*3*5。

程序分析：对n进行分解质因数，应先找到一个最小的质数k，然后按下述步骤完成：
(1)如果这个质数恰等于n，则说明分解质因数的过程已经结束，打印出即可。
(2)如果n<>k，但n能被k整除，则应打印出k的值，并用n除以k的商,作为新的正整数你n,
　重复执行第一步。
(3)如果n不能被k整除，则用k+1作为k的值,重复执行第一步。

Answer 1

Sub Fj(M As Integer)
Dim I As Integer
Print M & "=";
Do While M <> 0
For I = 2 To M
If M Mod I = 0 Then
Print I;
M = M \ I
Exit For
End If
Next
If M = 1 Then Exit Do
Print "*";
Loop
End SubPrivate Sub Command1_Click()Dim M As IntegerM = Val(InputBox("输入一个整数:"))
Fj (M)
End Sub