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]

Тебе надо в MsgBox-е вывести всю матрицу, что-ли? Так это вот так делается:

Код

Private Sub st()
   Dim s As String
   Dim v As Integer

   s = ""
   For j = 1 To 3
      For i = 1 To 3
         v = Val(InputBox("Input value:", "Input value:"))
         s = s + " " + CStr(v)
      Next i
      s = s + vbCr
   Next j
   MsgBox s
End Sub

, в результате вся матрица выводится одним вызовом...