Option Explicit

Sub test1()

    Dim a%(1 To 10), b%(1 To 10), c%(1 To 10)
    Dim i%, strA$, strB$, strC$
    
    Randomize
    For i = 1 To 10
        a(i) = Int(Rnd * 100) + 1
        strA = strA & " " & a(i)
        b(i) = Int(Rnd * 100) + 1
        strB = strB & " " & b(i)
    Next i

    For i = 1 To 10
        c(i) = a(i) + b(i)
        strC = strC & " " & c(i)
    Next
    
    MsgBox "A()=" & strA & vbCrLf & "B()=" & strB & vbCrLf & "C()=" & strC
    
End Sub