求vb代码 “求1000以内的所有完数”输出格式为 完数=因子1+因子2+...

Private Sub Command1_Click()

Print "1000以内的所有完数为：";

Dim b As Double

Dim i As Double, j As Double, k As Double

For i = 2 To 10000

k = 0

For j = 2 To Sqr(i)

If i Mod j = 0 Then k = k + i / j + j

Next j

k = k + 1

If k = i Then

Print

Print CStr(i) & "=";

fenjie (i)

End If

DoEvents

Next i

End Sub

Function fenjie(n As Double)

Dim j As Double

For j = 1 To n \ 2

If n / j = n \ j Then

Print CStr(j) & IIf(j = n \ 2, "", "+");

End If

Next j

End Function

这次会议的议程是审议和通过《关于建国以来党的若干历史问题的决议》；改选和增选中央主要领导成员。全会之前召开了预备会议，对上述议题进行了充分的酝酿和认真的讨论。

这次全会是继十一届三中全会以后我党历史上又一次具有重大意义的会议，是总结经验、团结前进的会议。这次会议将以在党的指导思想上完成拨乱反正的历史任务而载入史册。

全会审议并一致通过的由邓小平主持起草的《关于建国以来党的若干历史问题的决议》，运用马克思主义的辩证唯物论和历史唯物论，对建国三十二年来党的重大历史事件特别是“文化大革命”作出了正确的总结，科学地分析了在这些事件中党的指导思想的正确和错误。

分析了产生错误的主观因素和社会原因，实事求是地评价了毛泽东同志在中国革命中的历史地位，充分论述了毛泽东思想作为我们党的指导思想的伟大意义。

《决议》肯定十一届三中全会以来逐步确立的适合中国国情的建设社会主义现代化强国的正确道路，进一步指明了中国社会主义事业和党的工作继续前进的方向。《决议》的通过和发表，对于统一全党、全军和全国各族人民的思想认识，同心同德地为实现新的历史任务而奋斗，必将产生伟大的深远的影响。

-中国***第十一届中央委员会第六次全体会议

厦门简而言之2个岛组成，一个厦门岛（也就是市区），一个鼓浪屿岛。

1鼓浪屿没有五星级酒店，你可以到鹭江道厦门岛入住“瑞颐酒店“，这家酒店是五星级，就和鼓浪屿一水之隔，坐车坐船都很方便。边上还有曼谷酒店四星级、鹭江宾馆三星级等，这些都是厦门比较大且公认不错的酒店，交通来说鹭江宾馆是最方便的但是楼层低可能会比较吵，但可以少走几步路，这3家其实都在一条线上，只是离码头具体远近罢了，3家距离相差不会超过500米且都是海景酒店。

2鼓浪屿岛上一般都是民宿或者比较有风格的旅社，适合小年亲和休闲度假去，如果纯属商务那还是到以上说的3家酒店入住为好。

3个人建议如果没特殊情况还是不要住鼓浪屿岛上，因为鼓浪屿晚上12点之后路上已经没有店面，行人稀少一片安静，虽然有船但是12点30之后就1个小时一班船，如果有夜生活或者喜欢去溜达买夜宵还是要住厦门岛上。本人在鼓浪屿上的高中的厦门人，望采纳，如有问题可追问