vb求质因子100
答案:1 悬赏:0
解决时间 2021-01-15 18:50
- 提问者网友：戎马万世
- 2021-01-15 01:29
vb求质因子100
最佳答案
- 二级知识专家网友：荒野風
- 2021-01-15 02:36
vb求质因子
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
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
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息！
大家都在看
推荐信息