Форум программистов [Powered by Invision Power Board]

Код
Public Const S = 7
Public Const K = 4
Public Const n1 = -80
Public Const n2 = 200
Public Sub Test()
  Dim masSTR As String
  Dim mas(S, K) As Long
  Dim X As Long, Y As Long
  For X = 0 To S
    For Y = 0 To K
      mas(X, Y) = Int((n2 - n1 + 1) * Rnd + n1)
      masSTR = masSTR & " " & mas(X, Y)
    Next Y
    masSTR = masSTR & Chr(13) & Chr(13)
  Next X
MsgBox masSTR, vbCritical, "двумерный массив"
  Dim mas2(1 To (S + 1) * (K + 1)) As Long
  Dim mas2maxVal As Long
  mas2maxVal = 1
  For X = 0 To S
    For Y = 0 To K
      If mas(X, Y) Mod 2 <> 0 Then
        mas2(mas2maxVal) = mas(X, Y)
        mas2maxVal = mas2maxVal + 1
      End If
    Next Y
  Next X
  mas2maxVal = mas2maxVal - 1
  Dim mas2STR As String
  For X = 1 To mas2maxVal
    mas2STR = mas2STR & " " & mas2(X)
  Next X
MsgBox "Создаём mas2 максимально возможной длины ((S + 1) * (K + 1)); переменная mas2maxVal- максимальный задействованный элемент; пробегаем по всему mas и ищем нечётные числа (с помощью X mod 2); заполняем mas2", vbCritical, "пояснение по формированию одномерного массива"
MsgBox mas2STR,  vbCritical, "полученный одномерный массив"
End Sub