VB求完全数个数，求修改 Private Sub Command1_Click() Dim s, i, j, n As Integer n = 1 s = 0 For i = 2
PrivateSubCommand1_Click()Dims,i,j,nAsIntegern=1s=0Fori=2To1000Forj=1Toi-1IfiModj=0Th...
Private Sub Command1_Click()
Dim s, i, j, n As Integer
n = 1
s = 0
For i = 2 To 1000
For j = 1 To i - 1
If i Mod j = 0 Then s = s + j
Next j
If i = s Then n = n + 1
Next i
Print n
End Sub 展开
Dim s, i, j, n As Integer
n = 1
s = 0
For i = 2 To 1000
For j = 1 To i - 1
If i Mod j = 0 Then s = s + j
Next j
If i = s Then n = n + 1
Next i
Print n
End Sub 展开
1个回答
展开全部
Private Sub Command1_Click()
Dim s As Integer, i As Integer, j As Integer, n As Integer
n = 1
For i = 2 To 1000
s = 0
For j = 1 To i \ 2
If i Mod j = 0 Then s = s + j
Next j
If i = s Then n = n + 1
Next i
Print n
End Sub
Dim s As Integer, i As Integer, j As Integer, n As Integer
n = 1
For i = 2 To 1000
s = 0
For j = 1 To i \ 2
If i Mod j = 0 Then s = s + j
Next j
If i = s Then n = n + 1
Next i
Print n
End Sub
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
