Програмка - VB

Формулировка задачи:

Помогите решить программу. Создайте массив, содержащий 15 целых чисел. Отдельно первых 5 элементов массива, вторых 5 элементов и последних 5 элементов отсортируйте по убыванию. Определите и выведите на экран сумму каждой пятёрки отсортированного таким образом массива

Решение задачи: «Програмка»

textual
                            Листинг программы 
                        

                            Sub Task()
Dim iArr(1 To 15) As Integer, i As Integer, j As Integer, bSorted As Boolean
Dim iTmp As Integer, iSum As Integer, sStr As String, sStr1 As String
For i = 1 To 15
    iArr(i) = Int(Rnd * 10)
    sStr = sStr & iArr(i) & ", "
Next
For j = 1 To 11 Step 5
    Do While Not bSorted
        bSorted = True
        For i = j To j + 3
            If iArr(i + 1) > iArr(i) Then
                bSorted = False
                iTmp = iArr(i)
                iArr(i) = iArr(i + 1)
                iArr(i + 1) = iTmp
            End If
        Next
    Loop
    bSorted = False
    For i = j To j + 4
        iSum = iSum + iArr(i)
    Next
    sStr1 = sStr1 & String(17, " ") & iSum
    iSum = 0
Next
sStr = sStr & vbNewLine
For i = 1 To 15
    sStr = sStr & iArr(i) & ", "
Next
MsgBox sStr & vbNewLine & sStr1
End Sub
                        