作者q123997788 (小小小强)
看板Visual_Basic
标题质因数判断与完全数
时间Sun Sep 30 11:43:28 2007
Private Sub Command1_Click()
a = Text1.Text
b = 0 '记录几个因数
List1.Clear '把列出来的数字清掉
For i = 1 To a
If a Mod i = 0 Then
List1.AddItem i
b = b + 1
Text2.Text = b
End If
Next i
End Sub
接下来该怎麽写出里面因数的质数出来呢?
完全数是什麽?该怎麽写?
请求各位大大解惑 谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.165.137.130