4、/*一个数如果恰好等于它的因子之和,这个数就称为“完数”.例如6=1+2+3.编程 找出1000以内的所
题目
4、/*一个数如果恰好等于它的因子之和,这个数就称为“完数”.例如6=1+2+3.编程 找出1000以内的所
答案
Dim i As Integer,j As Integer,num(100) As Integer,num1(30)
Private Sub Form_Load()
Dim k As Integer,p As Integer,p2 As Integer,p3 As Integer,p4 As Integer,h As String
k = 0
p = 0
p2 = 0
p3 = 0
p4 = 0
For i = 1 To 1000
For j = 1 To i - 1
If i Mod j = 0 Then
num(k) = j
k = k + 1
num(k) = i j
k = k + 1
End If
Next j
For j = 0 To k - 1
If num(j) i Then
For p2 = 1 To j - 1
If num(j) = num(p2) Then
p3 = 1
End If
Next p2
If p3 = 0 Then
p = num(j) + p
num1(p4) = num(j)
p4 = p4 + 1
End If
p3 = 0
End If
Next j
If p = i Then
Text1.Text = Text1.Text & ";" & i & "的因子是"
For k = 0 To p4 - 1
Text1.Text = Text1.Text & num1(k) & ","
Next k
End If
p = 0
k = 0
p4 = 0
Next i
End Sub
这段代码可以查出1000以内的完数,并显示出其因子,如果不要显示其因子的话可以简单很多
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
- 令我心存感激的人作文500字
- 银河系中的某双星由质量不等的星体S1和S2构成,两星在相互之间的万有引力作用下绕二者连线上某一定点C做匀速圆周运动.由天文观察测到其运动的周期为T,S1到C点的距离为r1,S1和S2之间的
- .At the b_____of the new term, I make a good plan for my English learning.
- 求不定积分:∫ln (x^2 + x + 10)dx
- 若集合M={θ|sinθ≥1/2,0≤θ≤π},N={θ|cosθ≤1/2,0≤θ≤π},求M∩N.
- 已知函数fx=X的平方减去X减去6,在区间【2,6】上任取一个X0,求使fx《=6的概率
- What did you say just now?这句话对吗?
- 元每米和元每平方米之间怎么换算
- 用简洁的语言概括早字的来历,并说说你从中明白了什么道理
- 已知向量a(-1,3),向量b=(2,-1),(k倍的向量a+向量b)垂直(向量a-2向量b),求实数k的值
热门考点