城关小学四年级成绩单:急!!!用VB代码求1000以内的完数--期末考试题啊!
来源:百度文库 编辑:神马品牌网 时间:2024/05/14 07:17:18
'一个按钮里调用的过程
Private Sub Command1_Click()
OutputWanNumber 1000
End Sub
'求完数的过程
Sub OutputWanNumber(ByVal UpperBound As Integer)
Dim i As Integer
Dim j As Integer
Dim s As Integer
For i = 1 To UpperBound
s = 0
For j = 1 To i \ 2
If i Mod j = 0 Then s = s + j
Next j
If s = i Then Print i & "是完数"
Next i
End Sub