一个错误,改成这样就可以了。Private Sub Command1_Click()
Dim i!, a!, s!
For i = 2 To 1000 Step 1
s = 0
For a = 1 To i - 1
If i Mod a = 0 Then
s = s + a
End If
Next a
If s = i Then Print s;
Next i
End Sub
Dim i!, a!, s!
For i = 2 To 1000 Step 1
s = 0
For a = 1 To i - 1
If i Mod a = 0 Then
s = s + a
End If
Next a
If s = i Then Print s;
Next i
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货