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

[FridGe]

Удалено...

[FridGe]

Извините за мою глупость..

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

№1

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
End Sub

№2

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#") & " "
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

Правильно ли решены?

[FridGe]

Помогите пожалуйста, что то запускаю их, и 0 на массу..

[IgorGO]

проблема 1 - у Вас две процедуры с одинаковыми именами - так низзя

[FridGe]

А как по другому, то я уже не понимаю, не могли бы вы отредактировать эти 2 задачи что бы они стали правильными..

[IgorGO]

Sub Cours1_1()
  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
  MsgBox s
End Sub

Sub Cours1_2()
  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
      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

[FridGe]

Код вообще с заданием то связан? И как на счет границ с масивом?

[IgorGO]

а) я Вам лично ничего не задолжал
б) Cours1_1() решает задачу 1, даже с некоторым перевыполнением (формирует 3 исходных массива, находит в каждом минимальный элемент, подставляет его в 3-ю позицию, а вместо минимального ставит 101, отображает в окне сообщений исходные и подправленные массивы)
замените For j = 1 To 3 на For j = 1 To 1 - и будет Вам одим массив.
в) Cours1_2() решает задачу 2

И как на счет границ с масивом?

я за массивы без границ. это моя принципиальная гражданская позиция. и с нее я не сойду.
Успехов в учебе и личной жизни.

[FridGe]

Сообщение от IgorGO

а) я Вам лично ничего не задолжал
б) Cours1_1() решает задачу 1, даже с некоторым перевыполнением (формирует 3 исходных массива, находит в каждом минимальный элемент, подставляет его в 3-ю позицию, а вместо минимального ставит 101, отображает в окне сообщений исходные и подправленные массивы)
замените For j = 1 To 3 на For j = 1 To 1 - и будет Вам одим массив.
в) Cours1_2() решает задачу 2
я за массивы без границ. это моя принципиальная гражданская позиция. и с нее я не сойду.
Успехов в учебе и личной жизни.

Огромнейшее спасибо за помощь, просто несказанно выручили..!!