要求：通过InputBox输入一个正整数，在立即窗口输出该正整数的质因数列，如
输入：90要求：通过InputBox输入一个正整数，在立即窗口输出该正整数的质因数列，如
输入：90
输出：2*3*3*5
要求：通过InputBox输入一个正整数，在立即窗口输出该正整数的质因数列，如 输入：90
答案:2 悬赏:30
解决时间 2021-03-13 05:03
- 提问者网友：醉人眸
- 2021-03-12 05:25
最佳答案
- 二级知识专家网友：樣嘚尐年
- 2021-03-12 06:50
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
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
全部回答
- 1楼网友：劳资的心禁止访问
- 2021-03-12 08:01
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
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯