Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim x(,) As Single
        Dim i, j As Integer
        i = InputBox("stolbi")
        j = InputBox("stroki")
        ReDim x(i, j)
        inputstiker(x)
        outputstiker(x, TextBox1)
        TextBox1.AppendText(vbCrLf)
        ochen(x)
    End Sub
    Private Sub inputstiker(ByRef h(,) As Single, Optional ByVal Arrayname As String = "hochy")
        Dim i, j As Integer
        For i = 1 To h.GetUpperBound(0)
            For j = 1 To h.GetUpperBound(1)
                h(i, j) = InputBox(Arrayname & "(" & i & "," & j & ")")
            Next
        Next
    End Sub
    Private Sub outputstiker(ByRef a(,) As Single, ByVal z As TextBox)
        Dim i, j As Integer
        For i = 1 To a.GetUpperBound(0)
            For j = 1 To a.GetUpperBound(1)
                z.AppendText(a(i, j) & vbTab)
            Next
            z.AppendText(vbCrLf)
        Next
    End Sub
    Private Sub ochen(ByRef c(,) As Single)
        Dim i, j As Integer
        For i = 1 To c.GetUpperBound(0)
            For j = 1 To c.GetUpperBound(1)
                TextBox1.AppendText(c(j, i) & vbTab)
            Next
            TextBox1.AppendText(vbCrLf)
        Next

    End Sub
End Class