Определить, является ли введённое натуральное число совершенным - VB
Формулировка задачи:
Определить, является ли введённое натуральное число совершенным (совершенное число равно сумме своих младших делителей, например 6=1+2+3
Решение задачи: «Определить, является ли введённое натуральное число совершенным»
textual
Листинг программы
Private Sub Command1_Click()
Dim Num As Long
Dim PerfList(0 to 4) As long
for i%=0 to 4
PerfList(i%)=array(6,28,496,8128,33550336)(i%)
next i%
Num = Val(InputBox("Введите число", "", "496"))
For i% = 0 To 4
if Num=Perflist(i%) then
MsgBox "Число совершенно!"
Exit Sub
end if
Next
MsgBox "Число НЕ совершенно!"
End Sub