В заданном одномерном массиве целого типа найти и напечатать совершенные числа, или сообщить, что таких нет.

[SkyGir]

В заданном одномерном массиве целого типа найти и напечатать совершенные числа, или сообщить, что таких нет. Использовать процедуру нахождения совершенного числа.
Доброе утро. Пожалуйста, подскажите, чего не так:

Option Explicit
Option Base 1
Sub Mass()
    Dim M() As Integer, n As Integer, i As Integer, j As Integer, s1 As String, s2 As String, sum As Long
    n = InputBox("Введите количество элементов массива", "Определение размера массива", 10)
    ReDim M(n) As Integer
    Randomize
    s1 = "Массив:" & vbCrLf
    For i = 1 To n
        M(i) = Int(28 * Rnd + 6)
        s1 = s1 & M(i) & "  "
    Next i
        If SovChicslo(M(i)) Then s2 = s2 & M(i) & "  "
   
    MsgBox (s1 & vbCrLf & IIf(s2 = "", "Простых чисел нет", "Простые числа:" & vbCrLf & s2))
End Sub
 
Function SovChicslo(ByVal a As Integer) As Boolean
    Dim i  As Integer
   For i = 1 To n
        sum = 0
        For j = 1 To M(i) \ 2
            If M(i) Mod j = 0 Then sum = sum + j
        Next j
    
    Next i

    SovChicslo = True
End Function

[Serge_Bliznykov]

Сообщение от SkyGir

чего не так:

Вы в функции SovChicslo сумму sum для чего считали? просто так?

Сообщение от SkyGir

SovChicslo = True

SovChicslo = (sum=a)

или

if(sum=a) Then
   SovChicslo = True
else
   SovChicslo = False
end if

[Cuprum5]

Сообщение от SkyGir

If SovChicslo(M(i)) Then s2 = s2 & M(i) & "  "

- выход i за границы массива. i = 11 в этом месте при 10 местах в массиве.
А что за алгоритм нахождения совершенного числа - все числа-то не надо перебирать, а то бред какой-то получается.

Option Explicit
Option Base 1
Sub Mass()
    Dim M() As Integer, n As Integer, i As Integer, j As Integer, s1 As String, s2 As String, sum As Long
        
    n = InputBox("Ââåäèòå êîëè÷åñòâî ýëåìåíòîâ ìàññèâà", "Îïðåäåëåíèå ðàçìåðà ìàññèâà", 10)
    ReDim M(n) As Integer
    Randomize
    s1 = "Ìàññèâ:" & vbCrLf
    
    For i = 1 To n
        M(i) = Int(28 * Rnd + 6)
        s1 = s1 & M(i) & "  "
        sum = 0
        
        For j = 1 To M(i) \ 2
        
            If M(i) Mod j = 0 Then
                sum = sum + j
            End If
        Next j
        
        If sum = M(i) Then
            s2 = s2 & M(i) & "  "
        End If
    Next i
           
    MsgBox (s1 & vbCrLf & IIf(s2 = "", "Ñîâåðøåííûõ ÷èñåë íåò", "Ñîâåðøåííûå ÷èñëà:" & vbCrLf & s2))
End Sub

Ну надписи теже, в общем.

[Serge_Bliznykov]

Сообщение от Cuprum5

А что за алгоритм нахождения совершенного числа - все числа-то не надо перебирать, а то бред какой-то получается.

ой. точно. даже не обратил внимания на то, что в функции полный раздрай!

Function SovChicslo(ByVal a As Integer) As Boolean
    Dim j  As Integer, sum As Integer
       sum = 0
        For j = 1 To int(a / 2)
            If a Mod j = 0 Then sum = sum + j
        Next j
    if sum=a Then
        SovChicslo = True
    else
        SovChicslo = False
    end if
End Function

    s1 = "Массив:" & vbCrLf
    For i = 1 To n
        M(i) = Int(28 * Rnd + 6)
        s1 = s1 & M(i) & "  "
    Next i
    s2 = ""
    For i = 1 To n
        If SovChicslo(M(i)) Then s2 = s2 & M(i) & "  "
    Next i

Сообщение от SkyGir

MsgBox (s1 & vbCrLf & IIf(s2 = "", "Простых чисел нет", "Простые числа:" & vbCrLf & s2))

замените на совершенные

[SkyGir]

Спасибо всем за ответы

[SkyGir]

Option Explicit
Option Base 1
Sub Mass()
    Dim M() As Integer, n As Integer, i As Integer, j As Integer, s1 As String, s2 As String, sum As Long
    n = Val(InputBox("Введите количество элементов массива", "Определение размера массива", 20))
    ReDim M(n) As Integer
    Randomize
    s1 = "Массив:" & vbCrLf
    For i = 1 To n
        M(i) = Int(28 * Rnd + 6)
        s1 = s1 & M(i) & "  "
        If SovChicslo(M(i)) Then s2 = s2 & M(i) & "  "
    Next i
    MsgBox(s1 & vbCrLf & IIf(s2 = "", "Совершенных чисел нет", "Совершенные числа:" & vbCrLf & s2))
End Sub

Function SovChicslo(ByVal a As Integer) As Boolean
    Dim i As Integer, sum As Integer
    For i = 1 To a \ 2
        If a Mod i = 0 Then sum = sum + i
    Next i
    SovChicslo = sum = a

[Serge_Bliznykov]

Сообщение от SkyGir

Dim i As Integer, sum As Integer
    For i = 1 To a \ 2

   Dim i As Integer, sum As Integer
   sum = 0
    For i = 1 To a \ 2