Вывод массива в строку

Option Base 1
Const n = 40
Sub Zadanie2()
Dim X(n) As Double 
Dim Y(n) As Double
Dim maxX As Double, maxY As Double 
Dim str_a, str_b
For i = 1 To 40 
X(i) = Int(Rnd * 100) 
Y(i) = Int(Rnd * 100) 
MsgBox "Массив X"
MsgBox "Массив Y"
Next i 
maxX = X(1): maxY = Y(1)
maxX = max(X)
maxY = max(Y)
MsgBox "Max(X)+Max(Y) = " & maxX + maxY 
End Sub
 
Function max(arr() As Double) As Double
max = arr(1)
For i = 1 To n
If arr(i) > max Then max = arr(i)
Next i
End Function

Sub Zadanie2()
    Dim X(n) As Double
    Dim Y(n) As Double
    Dim maxX As Double, maxY As Double
    Dim str_x$, str_y$
    For i = 1 To 40
        X(i) = Int(Rnd * 100)
        Y(i) = Int(Rnd * 100)
        str_x = str_x & IIf(i = 1, "", "; ") & X(i)
        str_y = str_y & IIf(i = 1, "", "; ") & Y(i)
    Next i
    MsgBox "Ìàññèâ X: " & str_x & vbCrLf & vbCrLf & _
            "Ìàññèâ Y: " & str_y
    maxX = X(1): maxY = Y(1)
    maxX = max(X)
    maxY = max(Y)
    MsgBox "Max(X)+Max(Y) = " & maxX + maxY
End Sub

Sub Zadanie2()
    Dim X(n) As Double
    Dim Y(n) As Double
    Dim maxX As Double, maxY As Double
    Dim str_x$, str_y$
    For i = 1 To 40
        X(i) = Int(Rnd * 100)
        Y(i) = Int(Rnd * 100)
        str_x = str_x & IIf(i = 1, "", "; ") & X(i)
        str_y = str_y & IIf(i = 1, "", "; ") & Y(i)
    Next i
    'maxX = X(1): maxY = Y(1)
    maxX = max(X)
    maxY = max(Y)
    MsgBox "Ìàññèâ X: " & str_x & vbCrLf & vbCrLf & _
            "Ìàññèâ Y: " & str_y & vbCrLf & vbCrLf & _
            "Max(X)+Max(Y) = " & maxX + maxY
End Sub
Function max(arr() As Double) As Double
    For i = 1 To n
        If arr(i) > max Then max = arr(i)
    Next i
End Function

Option Explicit
Const N = 5
 
Sub Zadanie2()
'объявление переменных
Dim i As Long 'счётчик цикла
Dim x(1 To N) 'массив x (из N элементов типа Variant - что позволяет использовать Join)
Dim y(1 To N) 'массив y (из N элементов типа Variant)
Dim maxX As Double, maxY As Double 'наибольшие числа из массивов x и y соответственно
 
'присвоение значений
For i = 1 To N
    x(i) = Int(Rnd * 100) 'эл-т x(i) получает значение целого числа из диапазона [0;99]
    y(i) = Int(Rnd * 100) 'эл-т y(i) получает значение целого числа из диапазона [0;99]
Next
 
'расчёты
maxX = Application.WorksheetFunction.Max(x) 'используем встроенную в Excel функцию Max
maxY = Application.WorksheetFunction.Max(y)
 
'вывод
    If MsgBox(Join(x, "; ") & " (иксы)" & vbCr & Join(y, "; ") & " (игреки)" & vbCr & _
    vbCr & "Max(x) + Max(y) = " & maxX + maxY, vbInformation + vbOKCancel) = vbOK Then
            'сумма двух наибольших чисел среди x и y
        Zadanie2 'повторное испытание
    Else
        Exit Sub
    End If
End Sub