Помогите обьяснить прогу

[VrotKompot]

Private Sub CommandButton1_Click()

Cells.Clear

Randomize

For i = 1 To 5

For j = 1 To 6

Cells(i, j) = Int(Rnd * 201 - 100)

Next j

Next i

Exit Sub

End Sub

Private Sub CommandButton2_Click()

Dim max As Integer

x1 = 0

For i = 1 To 5

x1 = x1 + Cells(i, 1)

Next i

Cells(7, 1) = x1

x2 = 0

For i = 1 To 5

x2 = x2 + Cells(i, 2)

Next i

Cells(7, 2) = x2

x3 = 0

For i = 1 To 5

x3 = x3 + Cells(i, 3)

Next i

Cells(7, 3) = x3

x4 = 0

For i = 1 To 5

x4 = x4 + Cells(i, 4)

Next i

Cells(7, 4) = x4

x5 = 0

For i = 1 To 5

x5 = x5 + Cells(i, 5)

Next i

Cells(7, 5) = x5

x6 = 0

For i = 1 To 5

x6 = x6 + Cells(i, 6)

Next i

Cells(7, 6) = x6

max = Cells(7, 1)

For n = 1 To 6

If Cells(7, n) > max Then

max = Cells(7, n)

maxn = n

End If

Next n

Cells(8, 1) = "Номер столбца с максимальной суммой элементов " & maxn

End Sub

Private Sub CommandButton3_Click()

x = 0

For i = 1 To 5

x = x + Cells(i, 1)

Next i

Cells(7, 1) = x

End Sub

просьба расписать что происходит в каждой строке

[VrotKompot]

Тоесть Желательно пошагово по стокам,не себе делаю

[martinges]

Private Sub CommandButton1_Click() //насяльника 1 кнопку нажал

Cells.Clear // насяльника сказал очистить все

Randomize // насяльника врубил шайтан случайную машинку

For i = 1 To 5 //насяльника сказал делать 5 раз

For j = 1 To 6 //насяльника сказал делать 6 раз

Cells(i, j) = Int(Rnd * 201 - 100) // сложить в ячейку целое число из случайного диапазона)

Next j // j немножко подросло

Next i // i немножко подросло

Exit Sub // на выход

End Sub // на выход я сказал

Private Sub CommandButton2_Click() // насяльника 2 кнопку нажал

Dim max As Integer // контейнер для МАКСИМУМа

x1 = 0 // на ноль помножу (с) из Советского фильма

For i = 1 To 5 // цикл с параметром

x1 = x1 + Cells(i, 1) // накапливаем сумму)

Next i // отправляем бегунок в путь дальше)

Cells(7, 1) = x1 // складываем в ячейку, то что было в x1

x2 = 0 // смотри предыдущий пункт

For i = 1 To 5 //смотри предыдущий пункт

x2 = x2 + Cells(i, 2) //смотри предыдущий пункт

Next i //смотри предыдущий пункт

Cells(7, 2) = x2 //смотри предыдущий пункт

x3 = 0 //смотри предыдущий пункт

For i = 1 To 5 //смотри предыдущий пункт

x3 = x3 + Cells(i, 3) //смотри предыдущий пункт

Next i //смотри предыдущий пункт

Cells(7, 3) = x3 //смотри предыдущий пункт

x4 = 0 //смотри предыдущий пункт

For i = 1 To 5 //смотри предыдущий пункт

x4 = x4 + Cells(i, 4) //смотри предыдущий пункт

Next i //смотри предыдущий пункт

Cells(7, 4) = x4 //смотри предыдущий пункт

x5 = 0 //смотри предыдущий пункт

For i = 1 To 5 //смотри предыдущий пункт

x5 = x5 + Cells(i, 5) //смотри предыдущий пункт

Next i //смотри предыдущий пункт

Cells(7, 5) = x5 //смотри предыдущий пункт

x6 = 0 //смотри предыдущий пункт

For i = 1 To 5 //смотри предыдущий пункт

x6 = x6 + Cells(i, 6) //смотри предыдущий пункт

Next i //смотри предыдущий пункт

Cells(7, 6) = x6 //смотри предыдущий пункт

max = Cells(7, 1) //локальный максимум - он же временный максимум

For n = 1 To 6 // цикл по максимумам

If Cells(7, n) > max Then // а вдруг текущий максимум больше нашего локального максимума

max = Cells(7, n) // ну тогда менять надо локальный максимум

maxn = n // индекс максимума)

End If // конец условия)

Next n // послали бегунок подальше)

Cells(8, 1) = "Номер столбца с максимальной суммой элементов " & maxn // вывожу непонятливому юзверю номер ячейки

End Sub //конец

Private Sub CommandButton3_Click() //насяльника нажал третью кнопку

x = 0 // обнулил x ирод

For i = 1 To 5 // побежал по циклу

x = x + Cells(i, 1) // просуммировал всё что нужно

Next i // некст i (в переводе с английского ------> следующий i------> догадайтесь с 3 раз что это означает )

Cells(7, 1) = x //вывожу непонятливому юзверю сумму в предложенную ячейку

End Sub // конец собственно

P.S. Гмм код то работоспособен хоть нет?) пользуйся трассировкой сразу увидишь у какой переменной откуда ноги растут и для чего)

[danger]

ну ппц, ежу же даже видно, что в этом гамнокоде по кнопке 2 вчисляется сумма элементов для каждого столбца, а потом в последнем цикле находится максимальная сумма и номер стоблца... такие наверное классе в 8 пишут программульки?