Private Sub cmdRes_Click()

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

Dim a() As Single, i As Integer, n As Integer

Dim MinX As Single,MinY As Single,MinZ As Single

Dim S As String

n = CInt(txtN.Text)

ReDim x(n), y(n), z(n), a(n,3)

S = “”

MsgBox “вводим” & n & “элементов массива Х”

Vvod x,n

MsgBox “вводим” & n & “элементов массива Y”

Vvod y,n

MsgBox “вводим” & n & “элементов массива Z”

Vvod z,n

MinX = Min(x,n) ’виклик функції

MinY = Min(y,n) ’виклик функції

MinZ = Min(z,n) ’виклик функції

For i = l To n

a(i,1) = x(i)*MinX:a(i,2) = y(i)*MinY

a(i,3) = z(i)*MinZ

S = S & a(i,1) & “ ” & a(i,3) & vbCrLf

Next i

txtRes.Text = S

End Sub

Private Function Min(a() As Single, p As Integer) As Single

Dim I As Integer

Min = a(1)

For i = 2 To p

If a(i) < Min Then Min = a(i)

Next i

End Function

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

Dim i As Integer

For i = 1 To p

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

Next i

End Sub

Індивідуальні завдання