На Visual Basic так:
Нужно на форме создать текстовое поле TextBox1 и кнопку Button1, на нее повесить такую программу:
Sub Button1_Click()
Dim A() As Integer, B() As Integer, C() As Integer ' динамич. массивы
Dim n As Integer, i As Integer, Txt As String
n = InputBox ("Введите размер массивов")
ReDim A(n), B(n), C(n) ' Определяем размеры массивов
Txt = ""
For i = 1 To n
A(i) = InputBox ("Введите " & i & "-ый элемент массива A")
B(i) = InputBox ("Введите " & i & "-ый элемент массива B")
C(i) = A(i)^2 + B(i)^2 ' Присваиваем элементу C(i) сумму квадратов
Txt = Txt & C(i) & "; " ' Добавляем C(i) в текстовую переменную
Next i
TextBox1.Text = Txt ' Выводим весь массив C(i) в текстовое поле
End Sub
На Visual Basic так:
Нужно на форме создать текстовое поле TextBox1 и кнопку Button1, на нее повесить такую программу:
Sub Button1_Click()
Dim A() As Integer, B() As Integer, C() As Integer ' динамич. массивы
Dim n As Integer, i As Integer, Txt As String
n = InputBox ("Введите размер массивов")
ReDim A(n), B(n), C(n) ' Определяем размеры массивов
Txt = ""
For i = 1 To n
A(i) = InputBox ("Введите " & i & "-ый элемент массива A")
B(i) = InputBox ("Введите " & i & "-ый элемент массива B")
C(i) = A(i)^2 + B(i)^2 ' Присваиваем элементу C(i) сумму квадратов
Txt = Txt & C(i) & "; " ' Добавляем C(i) в текстовую переменную
Next i
TextBox1.Text = Txt ' Выводим весь массив C(i) в текстовое поле
End Sub