会python真的可以为所欲为0(回)
347天前
这里还有人吗1(回)
532天前这里还有人吗0(回)
532天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
757天前到处都是羊，不想上班0(回)
837天前
鸽子
0(回)
841天前Private Sub Command1_Click() |
'完数定义：一个数如果正好等于它的因子之和，这个数就称为完数。例如，6的因子为1、2、3，而6=1+2+3，因此6是"完数"。 |
OutputWanNumber 1000 |
End Sub |
Sub OutputWanNumber(ByVal n As Integer) |
Dim i As Integer |
Dim j As Integer |
Dim s As Integer |
|
For i = 1 To n |
s = 0 |
For j = 1 To i＼ 2 |
If i Mod j = 0 Then s = s + j |
Next j |
If s = i Then Print i & "是完数" |
Next i |
End Sub |
