Как записать в программном коде два массива? - VB

Формулировка задачи:

Здравствуйте , подскажите пожалуйста , как записать в программном коде вод двух массивов , вот например что бы ввести один массив:

                    Листинг программы
                
 
                        
                          
                    
Dim a() As Integer
Dim p As Single
txta.Text = ""
n = InputBox("n=")
ReDim a(n) As Integer
For i = 1 To n
a(i) = InputBox("a=" & CStr(i))
txta.Text = txta.Text & CStr(a(i)) & ", "

как сделать если дано не один массив "а" , а еще второй массив "b"

все понял

                    Листинг программы
                
 
                        
                          
                    
Dim a() As Integer
Dim b() As Integer
Dim p As Single
 
n = InputBox("n=")
ReDim a(n) As Integer
ReDim b(n) As Integer
For i = 1 To n
a(i) = InputBox("a=" & CStr(i))
b(i) = InputBox("b=" & CStr(i))
txta.Text = txta.Text & CStr(a(i)) & ", "
txtb.Text = txtb.Text & CStr(b(i)) & ", "
Next i

Решение задачи: «Как записать в программном коде два массива?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim iI As Integer
Dim sT As String
Dim iA(10) As Integer
Dim iB(8) As Integer
Dim iC(12) As Integer
 
' Заполняем массив A.
For iI = LBound(iA, 1) To UBound(iA, 1) Step 1
  ' Персональное приглашение для каждой переменной
  sT = "A(" + Trim$(Str$(iI)) + ")="
  ' Вводим элементы матрицы
  iA(iI) = CDbl(Val(InputBox(sT, "Элементы массива A")))
Next iI
' Заполняем массив B.
For iI = LBound(iB, 1) To UBound(iB, 1) Step 1
  ' Персональное приглашение для каждой переменной
  sT = "B(" + Trim$(Str$(iI)) + ")="
  ' Вводим элементы матрицы
  iB(iI) = CDbl(Val(InputBox(sT, "Элементы массива B")))
Next iI
' Заполняем массив C.
For iI = LBound(iC, 1) To UBound(iC, 1) Step 1
  ' Персональное приглашение для каждой переменной
  sT = "C(" + Trim$(Str$(iI)) + ")="
  ' Вводим элементы матрицы
  iC(iI) = CDbl(Val(InputBox(sT, "Элементы массива C")))
Next iI