Массив: Вычислить суммы элементов массива...

Dim Arr(7) As Integer
 
Private Sub Form_Load()
   
   Me.Hide
   
   'инициализация элементов массива
   Arr(0) = -1
   Arr(1) = -5
   Arr(2) = 6
   Arr(3) = 1
   Arr(4) = 9
   Arr(5) = -12
   Arr(6) = 4
   Arr(7) = 8
   
   
   'вывод результатов
   MsgBox "Сумма элементов массива: " & isSumma, vbOKOnly + vbInformation, "Результат"
   MsgBox "Сортировка в порядке возрастания:" & vbCrLf & vbCrLf & isSort, vbOKOnly + vbInformation, "Результат"
   
   Unload Me
End Sub
 
'функция суммирования элементов массива
Private Function isSumma() As String
   Dim i As Integer, Counter As Long
   
   'проходимся по массиву, суммируя элементы
   For i = LBound(Arr) To UBound(Arr)
      Counter = Counter + Arr(i)
   Next i
   
   'выводим результат. Отрицательные числа для удобства чтения помещаются в скобки функцией IIf()
   For i = LBound(Arr) To UBound(Arr)
      'после всех, кроме последнего элемента, приписываем знак "+"
      If i < UBound(Arr) Then
         isSumma = isSumma & IIf(Arr(i) < 0, "(" & CStr(Arr(i)) & ")", CStr(Arr(i))) & " + "
       'после последнего элемента пишем знак "="
       Else
         isSumma = isSumma & IIf(Arr(i) < 0, "(" & CStr(Arr(i)) & ")", CStr(Arr(i))) & " = " & CStr(Counter)
      End If
   Next i
      
End Function
 
Private Function isSort() As String
   Dim i As Integer, k As Integer
      
   'проходимся по массиву столько раз, сколько в нём элементов -1
   For k = LBound(Arr) To UBound(Arr) - 1
      'один проход по массиву для сдвига необходимых элементов
      For i = LBound(Arr) To UBound(Arr)
         'чтобы не было ошибки "Subscript out of range"
         If i <> UBound(Arr) Then
            'если значение элемента больше значения следующего элемента, то меняем их местами
            If Arr(i) > Arr(i + 1) Then
               Call Swap(i, i + 1)
            End If
         End If
      Next i
   Next k
   
   For i = LBound(Arr) To UBound(Arr)
      isSort = isSort & CStr(Arr(i)) & vbCrLf
   Next i
   
End Function
 
Private Sub Swap(i As Integer, j As Integer)
   Dim tmp As Integer
   
   tmp = Arr(i)
   Arr(i) = Arr(j)
   Arr(j) = tmp
End Sub

Function isSort(Arr() as integer) As String
   Dim i As Integer, k As Integer, c as integer, tmp as integer
   Do
       c=0
       For k = LBound(Arr) To UBound(Arr) - 1
            If Arr(i) > Arr(i + 1) Then
               tmp=Arr(i)
               Arr(i)=Arr(i+1)
               Arr(i+1)=tmp
               c=c+1
            End If
       Next k
       if c=0 then exit Do
   Loop
 
   For i = LBound(Arr) To UBound(Arr)
      isSort = isSort & CStr(Arr(i)) & vbCrLf
   Next i
End Function