中科新闻网浪琴男士手表的价格:VB的一个流程题
来源：百度文库 编辑：中科新闻网 时间：2024/05/07 22:31:10
1.如果一个数的因子之和等于这个数本身，就叫这样的数为完全数。如28因子为1 2 5 7 和14 其和为1+2+4+7+14＝28 因此28是一个完全数。用VB 中的If For Do 等函数编写一个程序 找出1000以内的完全数 打印在窗口
2.利用随即函数产生25个51～106 包括51和106 范围内的数 显示他们的最大直 最小值和平均值
希望能把代码写得明了些 最好经过自己验证为正确的 谢谢大家
2.利用随即函数产生25个51～106 包括51和106 范围内的数 显示他们的最大直 最小值和平均值
希望能把代码写得明了些 最好经过自己验证为正确的 谢谢大家
1。的解决
for i=5 to 1000
k=1
for j=2 to i-1
if i mod j=0 then
k=k+j
end if
next
if k=i then print i
next
第一个
Text1.Text = ""
Dim a, b, c, d As Integer
For a = 1 To 1000
d = 0
b = 1
Do Until b = a
c = a Mod b
If c = 0 Then
d = d + b
End If
b = b + 1
Loop
If d = a Then
Text1.Text = Text1.Text & ";" & a
End If
Next a
第二个没有什么兴趣