MsgBox (VBA), (разделено) Опции

[Евгений]

Доброго времени суток!
Никак не могу справиться с задачей:
Результаты вычислений вывести в документ MS Word (с этим справился) и с помощью оператора вывода
MsgBox. А вот с последним заморочка, никак на получается все результаты в одном окне вывести.

Код

Dim Матрица(1 To 5, 1 To 5) As Integer
Dim Массив(10) As Integer
Dim h As Integer
Dim s As String
Private Type Матрицы
Массив As String
End Type
Private Sub CommandButton1_Click()
Open "Матрицы2.doc" For Output As #1
Макс = Матрица(1, 5)
Мин = Матрица(1, 5)
For i = 1 To 5
For j = 1 To 5
Матрица(i, j) = Val(InputBox("Введите элемент матрицы:", "Введите элемент матрицы:"))
If Матрица(i, j) > Макс Then Макс = Матрица(i, j)
If Матрица(i, j) < Мин Then Мин = Матрица(i, j)
h = Макс - Мин
Массив(10) = h
Print #1, Tab(3); Массив(10)
Next j
Next i
Close #1
Open "Матрицы2.doc" For Input As #1
While Not EOF(1)
Input #1, s
MsgBox s
Wend
Close #1
End Sub

[volvo]

Все точно так же, как я показал выше:

Код

Dim Mx(1 To 5, 1 To 5) As Integer
Dim h As Integer
Dim s As String ' Это будем читать из файла
Dim MyS As String ' Здесь будем конструировать то, что покажет MsgBox

Private Sub CommandButton1_Click()
   Open "doc2.doc" For Output As #1
   Max = Mx(1, 5)
   Min = Mx(1, 5)
   For i = 1 To 5
      For j = 1 To 5
         Mx(i, j) = Val(InputBox("Input value:", "Input value:"))
         If Mx(i, j) > Max Then Max = Mx(i, j)
         If Mx(i, j) < Min Then Min = Mx(i, j)
         h = Max - Min
         Print #1, Tab(3); h
      Next j
   Next i
   Close #1
  
   MyS = vbNullString
   Open "Doc2.doc" For Input As #1
   While Not EOF(1)
      Input #1, s
      MyS = MyS + s + " " ' Добавляем прочитанную строку и пробел к результату
   Wend
   Close #1
  
   MsgBox MyS ' И только теперь, после цикла, выводим MsgBox
End Sub

Я убрал все лишние типы и переменные. Единственное, что здесь "не так" - это: ты вроде вводишь матрицу, а получаешь в окошке массив, то есть все вытянуто в одну строку. Если хочешь - добавь строчку, чтоб на каждой пятой итерации к MyS добавлялся еще и перевод строки - тогда будет настоящая матрица.