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

Круть,вот жалко что во время не послушал.но все равно сухое горючее рулит

Тыша рублев 89021647316

Меняю на деньги только завтра.Брал на мелькомбинате Комплект:поршень кольца палец стопорные колечки,Цилиндр,все под 139qmb с квадратным натяжителем

Рости и процветай к сожалению в этом году уеду ((( *32

как долго не кончать XD

не удаляйте пожалуйста так много картинок на улановку сложно загрузить Удалено Ссылки на сибнет запрещены. Картинки можно залить на улановку. botaNICK.

Ну наконецто хоть что то стоящее будет выпускатся на автовазе

Поздравляю )С днем рождения *57

Из фильтра топливного вылей водичку ))

Зачем замерять ??,на блоке от сети написанно 19 вольт 3.4 а

О вкусах не спорят.глупая тема.

Да вобще этот дебил с микрофоном бесит

нет нужен который от прикуривателя в ноутбук,примерно такой как на фотографии