早教吧作业答案频道 -->数学-->
找出2~10000之内的所有完全数.所谓完全数,就是这个数的各因子之和恰好等于这个数本身,如6=1+2+3,28=1+Dima,b,cAsIntegerFora=2To10000c=0Forb=1Toa-1IfaModb=0Thenc=c+bEndIfNextIfa=cThenMsgBo
题目详情
找出2~10000之内的所有完全数.所谓完全数,就是这个数的各因子之和恰好等于这个数本身,如6=1+2+3,28=1+
Dim a,b,c As Integer
For a = 2 To 10000
c = 0
For b = 1 To a - 1
If a Mod b = 0 Then
c = c + b
End If
Next
If a = c Then
MsgBox(a)
End If
Next
End Sub 这样可以求出,但不能全部输出,点一次确定才输出一个,怎么改才能全部输出完全数
Dim a,b,c As Integer
For a = 2 To 10000
c = 0
For b = 1 To a - 1
If a Mod b = 0 Then
c = c + b
End If
Next
If a = c Then
MsgBox(a)
End If
Next
End Sub 这样可以求出,但不能全部输出,点一次确定才输出一个,怎么改才能全部输出完全数
▼优质解答
答案和解析
Sub calc_n()
Dim d() As Integer
Dim a, b, c As Integer
Dim str_msg As String
n = 0
str_msg = ""
For a = 2 To 10000
c = 0
For b = 1 To a - 1
If a Mod b = 0 Then
c = c + b
End If
Next
If a = c Then
ReDim Preserve d(n) As Integer
d(n) = c
str_msg = str_msg & CStr(d(n)) & Chr(13)
n = n + 1
End If
Next
MsgBox str_msg
End Sub
Dim d() As Integer
Dim a, b, c As Integer
Dim str_msg As String
n = 0
str_msg = ""
For a = 2 To 10000
c = 0
For b = 1 To a - 1
If a Mod b = 0 Then
c = c + b
End If
Next
If a = c Then
ReDim Preserve d(n) As Integer
d(n) = c
str_msg = str_msg & CStr(d(n)) & Chr(13)
n = n + 1
End If
Next
MsgBox str_msg
End Sub
看了 找出2~10000之内的所有...的网友还看了以下:
英语完成句子!1.那位老大娘很担心她的儿子,因为地震后他没有露面.Thatoldwomanhers 2020-05-14 …
男方B地中海贫血基因分型结果,基因突变,CD17位点突变基因杂合子.女方a-地中海贫血1基因缺失, 2020-05-17 …
有关基因的生物计算1.基因A,B,C分别控制酶1,酶2和酶3的合成,可将一原本无色的物质转变为黑色 2020-05-17 …
1有没有因子,还是1的因子是本身?/////至于0呢? 2020-06-19 …
针对下列有关遗传变异的说法,请做出判断()针对下列有关遗传变异的说法,请做出判断①基因型为Dd的豌 2020-07-05 …
5只猴子摘桃子...分桃子吃...5只猴子一起摘了1堆桃子,因为太累了,它们商量决定,先睡一会再分 2020-07-20 …
相交线与平行线用式子表示下列句子:(1)因为∠1和∠2相等,根据“内错角相等,两直线平行”,所以A 2020-08-01 …
胶体粒子为什么带电1.胶体粒子本身自身带电吗?2.胶体粒子因为吸附而带电,这句话对吗?3.胶体粒子为 2020-11-05 …
氢氧根离子的形成氢的外围有一个电子,需要同氧共用一对电子,才可达到稳定结构.而氧在和氢共用一对电子后 2020-11-16 …
照样子写句子因为一切生命都需要空气,所以它对我们来说是宝贵的.空气对我们来说是宝贵的,因为一切生命都 2020-12-15 …