Перейти к содержанию

VrotKompot

Пользователи
  • Постов

    48
  • Зарегистрирован

  • Посещение

Весь контент VrotKompot

  1. Тоесть Желательно пошагово по стокам,не себе делаю
  2. 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 просьба расписать что происходит в каждой строке
  3. Круть,вот жалко что во время не послушал.но все равно сухое горючее рулит
  4. Меняю на деньги только завтра.Брал на мелькомбинате Комплект:поршень кольца палец стопорные колечки,Цилиндр,все под 139qmb с квадратным натяжителем
  5. VrotKompot

    Эдвайсы

    не удаляйте пожалуйста так много картинок на улановку сложно загрузить Удалено Ссылки на сибнет запрещены. Картинки можно залить на улановку. botaNICK.
  6. Поздравляю )С днем рождения *57
  7. Из фильтра топливного вылей водичку ))
  8. Зачем замерять ??,на блоке от сети написанно 19 вольт 3.4 а
  9. VrotKompot

    Рэп!!!

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

    +100500

    Да вобще этот дебил с микрофоном бесит
  11. нет нужен который от прикуривателя в ноутбук,примерно такой как на фотографии
  12. Ноутбук aсус extenza 5600 помоему,но модель не столь важна на всех асусах одинаковые зарядосы,интересно только то есть ли такие адаптеры в машину для ноутбуков,желательно от 24 вольт.Хелп ме плиз.есть если у кого такой тоже пишите возможно куплю.
  13. Дак в виндузе 7 это через электропитание делается мышкой,ставь 7 ку и радуйся
  14. Ardem ага,тока производителям это наруку,но не как ни нам Digma не стоит.даже если разные типы масла.(а вобще раньше соляркой промывали,если стружка там от вкладыша или еще чего)
  15. поставлю на звонок хит емае,деревенский андеграунд мазафака
  16. Хех китайцы умные,так то и тяжелый вроде настоящий,в компе определяется ,можно даже програмкой сделать его на 500 гб XD
  17. VrotKompot

    +100500

    мало того что у этих свиней оргазм 30 минут так еще и электро баб с подогревом делают
  18. Срочно купи туалетную бумагу и дуй домой
  19. Милицию в Полицию,даеш Ростелеком тока я за то чтобы сотрудники звались Поставщик.Информационно.Документационных.Ресурсов.
  20. ВЫ Что у него наверно слишком высокое содержание Бэтмэна в крови,вы посматривайте за ним,а то может и черепаха выйти.а вобще есть средство одно которое улучшает насроение и повышает аппетит ))
×
×
  • Создать...