c47

Как определить совершенное число на Visual Basic или QBasic (мой адрес: c47@list.ru)

Amber707

На VB.
на форме надо создать Text1 - поле, куда вводится число.
и кнопку Command1. Когда нажимаем эту кнопку, то появляется окно сообщения, в котором написано - совершенное число или нет.

Совершенное число - это число, равное сумме своих делителей.
например 6=1+2+3, 28=1+2+4+7+14 поэтому 6 и 14 совершенные числа
----------------------------------------------------------------------------------------------------------------
Option Explicit
Dim A, i, Sum As Integer 'А число, которое надо определить - оно совершенное или нет
Dim d() As Integer ' делители числа А
Dim otvet As String 'текст ответа, который сообщает - совершенное или нет число А

Private Sub Command1_Click()

Sum = 0
A = Text1.Text
ReDim d(A / 2)

For i = 1 To A / 2
If A Mod i = 0 Then
d(i) = i
Else
d(i) = 0
End If
Sum = Sum + d(i)
Next i

If Sum = A Then
otvet = "совершенное число"
Else
otvet = "несовершенное число"
End If
MsgBox otvet

End Sub