要求：通过InputBox输入一个正整数，在立即窗口输出该正整数的质因数列，如 输入：90

Question

要求：通过InputBox输入一个正整数，在立即窗口输出该正整数的质因数列，如
输入：90要求：通过InputBox输入一个正整数，在立即窗口输出该正整数的质因数列，如
输入：90
输出：2*3*3*5

Answer 1

n = InputBox("输入一个正整数")
s = ""
For I = 2 To Sqr(n)
Do While n > 1 And n Mod I = 0
s = s & I & "*"
n = n / I
Loop
If n = 1 Then Exit For
Next
s = IIf(n = 1, Left(s, Len(s) - 1), s & n)
Debug.Print s

Answer 2

private sub form_click()
dim n as integer,i as integer,k as integer
n=int(val(inputbox(“一个正整数”,“输入”,90)))
i=2
k=1
do while n>1
if n mod i=0 then
if k>1 then debug.print “*”;
debug.print i;
n=n\i
else
i=i+1
end if
loop
end sub