vb求所给正整数的所有质因子并将所有质因子输出
答案:1 悬赏:50 手机版
解决时间 2021-01-08 06:46
- 提问者网友:孤凫
- 2021-01-07 11:37
vb求所给正整数的所有质因子并将所有质因子输出
最佳答案
- 五星知识达人网友:西风乍起
- 2021-01-07 11:57
Private Sub Command1_Click()
n = CLng(Text1.Text)
i = 2
s = n & "的质因子有:"
While i * i <= n
k = 0
If n Mod i = 0 Then s = s & i: k = 1
While n Mod i = 0
n = n i
Wend
If k = 1 And n > 1 Then s = s & ", "
i = i + 1
Wend
If n > 1 Then s = s & n
MsgBox s
End Sub
n = CLng(Text1.Text)
i = 2
s = n & "的质因子有:"
While i * i <= n
k = 0
If n Mod i = 0 Then s = s & i: k = 1
While n Mod i = 0
n = n i
Wend
If k = 1 And n > 1 Then s = s & ", "
i = i + 1
Wend
If n > 1 Then s = s & n
MsgBox s
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯