Построить матрицу A(n,3), столбцами которой есть вектора X(n) Y(n) , Z(n), упорядоченные по возрастанию - VB

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

Задание: построить матрицу A(n,3) столбцами которой есть вектора X(n) Y(n) , Z(n) упорядоченны по возрастанию Вот мой код, не факт что верно

Dim a() As Single, i As Integer, n As Integer
Dim S As String
n = CInt(txtn.Text)
ReDim x(n), y(n), z(n), a(n, 3)
S = ""
'For i = 1 To n
MsgBox "вводим " & n & " элементов массива Х"
Vvod x, n
MsgBox "вводим  " & n & " элементов массива Y"
Vvod y, n
MsgBox "вводим " & n & " элементов массива Z"
Vvod z, n
For i = 1 To n
  a(i, 1) = Vozrastanie(x, n): a(i, 2) = Vozrastanie(y, n)
  a(i, 3) = Vozrastanie(z, n)
Next i
S = S & a(i, 1) & "  " & a(i, 2) & "  " & a(i, 3) & vbCrLf
txta.Text = S
End Sub
 
Private Function Vozrastanie(b() As Single, z() As Single) As Single
Dim i As Integer, j As Integer, k As Single
k = 0
For i = 1 To n
  For j = 1 To n
    If z(i) < z(j) Then
      k = k + 1: b(k) = z(i)
    End If
  Next j
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

Решение задачи: «Построить матрицу A(n,3), столбцами которой есть вектора X(n) Y(n) , Z(n), упорядоченные по возрастанию»

textual
                            Листинг программы 
                        

                            Dim x1#, x4#, y1#, y4#
Private Function check(ByVal x As Double, ByVal y As Double) As String
If x = (x1 + x4) / 2 And y = (y1 + y4) / 2 Then
    check = "ГЌГ*ГµГ®Г¤ГЁГІГ±Гї Гў Г¶ГҐГ*ГІГ°ГҐ"
ElseIf x > x1 And x < x4 And y > y1 And y < y4 Then
    check = "ГЌГ*ГµГ®Г¤ГЁГІГ±Гї ГўГ*ГіГІГ°ГЁ"
ElseIf x < x1 Or x > x4 Or y < y1 Or y > y4 Then
    check = "ГЌГ*ГµГ®Г¤ГЁГІГ±Гї ГўГ*ГҐ"
Else
    check = "ГЌГ*ГµГ®Г¤ГЁГІГ±Гї Г*Г* ГЈГ°Г*Г*ГЁГ¶ГҐ"
End If
End Function
 
Private Sub Command1_Click()
x1 = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ x1", , 1)
y1 = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ y1", , 1)
x4 = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ x4", , 5)
y4 = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ y4", , 5)
If x1 > x4 Then t = x1: x1 = x4: x4 = t
If y1 > y4 Then t = y1: y1 = y4: y4 = t
End Sub
 
Private Sub Command2_Click()
MsgBox check(InputBox("Г‚ГўГҐГ¤ГЁГІГҐ x", 1, 1), InputBox("Г‚ГўГҐГ¤ГЁГІГҐ y", 1, 1))
End Sub
 
Private Sub Command3_Click()
n = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ n", , 1)
ReDim a(n - 1, 2)
For i = 0 To n - 1
    a(i, 0) = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ x(" & i & ")", , 1)
    a(i, 1) = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ y(" & i & ")", , 1)
    a(i, 2) = check(a(i, 0), a(i, 1))
    List1.AddItem "A(" & a(i, 0) & "," & a(i, 1) & ") - " & a(i, 2)
Next
End Sub
                        