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 просьба расписать что происходит в каждой строке