Код програми

Private Sub cmdRes_Click()

Dim x() As Single, y() As Single

Dim n As Integer, m As Integer

Dim Sum As Single

n = CInt(txtN.Text)

m = CInt(txtM.Text)

ReDim x(n), y(m)

MsgBox „вводим” & m & „-элементов массива X”

Vvod x, n ‘виклик процедури

MsgBox „вводим” & m & „-элементов массива Y”

Vvod y, m ‘ виклик процедури

Sum = Max(x, n) + Max(y, m) ‘ виклик функції

txtRes.Text = CStr(Sum)

End Sub

‘ Процедура для введення елементів масиву

Private Sub Vvod (z()As Single, l As Integer)

Dim I As Integer

For I = 1 To l

Z(i) = CSng(InputBox(“введите” & i & “–й элемент”))

Next i

End Sub

‘Функція для знаходження максимального елементу масиву

Private Function Max (z() As Single, I As Integer) As Single

Dim a As Single, I As Integer

A = z(1)

For i = 2 To l

If z(i) > a Then a = z(i)

Next i

Max = a

End Function