Задание VBA, 1й курс

[FridGe]

Нужно сделать следующее:

Найти минимальный элемент и присвоить его значение элементу с номером (N - 3), а вместо минимального элемента записать число 101.
Сформировать массив из элементов исходных массивов, непревышающих сумму первых элементов исходных массивов.

Буду очень признателен.

[Aent]

Если вы не в состоянии самостоятельно решить подобную задачу - бросайте обучение и идите работать руками.

[FridGe]

В том то и дело, на программиста я не учусь.. И не понимаю как решить сиё чудо.

[doober]

У кого работает соображалка,те знают как решить проблему

[IgorGO]

Aent, а вот тут категорически не соглашусь.
Вместо того что бы дать человеку навыки эксплуатации компьютера (нескольких наиболее распространенных приложений), у нас еще с советских времен сразу учили программированию. ЗАЧЕМ??? и эта порочная практика продолжается и процветает.
вспоминаю когда я учился - лекции по основам информатики - это был полный дурдом: придуманный язык, никакой практики, чтобы посмотреть как это работает, никакой связи с окружающим миром в котором мы жили, я сильно сомневаюсь, что преподаватель, который читал нам те лекции мог написать программу для решения задания, приведенного здесь. я тогда не запомнил ничего, даже фамилию препода вспомнить не могу.
не смог не дописать, вспомнилось, нахлынуло...
единственный плюс - я еще тогда до глубины души возненавидел лично оператор GOTO, кстати, наш препод его так и называл "ГОТО".

[doober]

Игорь,я не во всем согласен с тобой.
Когда я учился,мы работали на ЕС,МИРе,Наири-К.делали лабы на них.
Даже аналоговые были,штырьками программу набирали

[IgorGO]

Сережа, допускаю разница в несколько лет во времени обучения сильно изменили подход к процессу.
я слышал обо все перечисленных тобой ЭВМ, даже знал, что они есть у нас в вычислительном цетре, но меня ни разу ни за одну из них не пустили, не потому что я был какой-то особенный, а потому что никого не пустили.
программирования подавляющему большинству выпускников вузов нужно точно так же, как мне нужны были такие важние предметы как атеизм, история КПСС, научный коммунизм и в т.ч. основы информатики. КПД от изучения этих предметов даже не 0, он отрицательный.

[FridGe]

Друзья, не разводите флуд, поможет кто нибудь или нет?

[IgorGO]

Sub Cours1()
  Dim a(3, 10) As Integer
  Randomize
  s = "Исходные массивы: " & Chr(10)
  For j = 1 To 3
    a(j, 0) = 1
    For i = 1 To 10
      a(j, i) = Rnd() * 999 + 1
      If a(j, i) < a(j, a(j, 0)) Then a(j, 0) = i
      s = s & Format(a(j, i), "00#") & " "
    Next
    s = s & Chr(10)
  Next
  s = s & Chr(10) & "Минимальные элементы в 3-й позиции, вместо их 101:" & Chr(10)
  For j = 1 To 3
    a(j, 3) = a(j, a(j, 0))
    a(j, a(j, 0)) = 101
    For i = 1 To 10
      s = s & Format(a(j, i), "00#") & " "
    Next
    s = s & Chr(10)
  Next
  s = s & Chr(10) & "Массив из элементов, которые меньше суммы первых = " _
  & a(1, 1) & " + " & a(2, 1) & " + " & a(3, 1) & " = " & a(1, 1) + a(2, 1) + a(3, 1) & Chr(10)
  For j = 1 To 3
    For i = 1 To 10
      If a(j, i) < a(1, 1) + a(2, 1) + a(3, 1) Then s = s & Format(a(j, i), "00#") & " "
    Next
  Next
  MsgBox s
End Sub

[IgorGO]

логичнее ыло ы поменять последний пункт на:

Sub Cours1()
  Dim a(3, 10) As Integer
  Randomize
  s = "Исходные массивы: " & Chr(10)
  For j = 1 To 3
    a(j, 0) = 1
    For i = 1 To 10
      a(j, i) = Rnd() * 999 + 1
      If a(j, i) < a(j, a(j, 0)) Then a(j, 0) = i
      s = s & Format(a(j, i), "00#") & " "
    Next
    s = s & Chr(10)
  Next
  s = s & Chr(10) & "Минимальные элементы в 3-й позиции, вместо их 101:" & Chr(10)
  For j = 1 To 3
    a(j, 3) = a(j, a(j, 0))
    a(j, a(j, 0)) = 101
    For i = 1 To 10
      s = s & Format(a(j, i), "00#") & " "
    Next
    s = s & Chr(10)
  Next
  s = s & Chr(10) & "Массив из элементов, которые больше суммы минимальных = " _
  & a(1, 3) & " + " & a(2, 3) & " + " & a(3, 3) & " = " & a(1, 3) + a(2, 3) + a(3, 3) & Chr(10)
  For j = 1 To 3
    For i = 1 To 10
      If a(j, i) > a(1, 3) + a(2, 3) + a(3, 3) Then s = s & Format(a(j, i), "00#") & " "
    Next
  Next
  MsgBox s
End Sub