Option Explicit
Dim Matrix() As Integer
Dim i As Integer
Dim j As Integer
Private Sub Command1_Click()
Text1.Text = ""
Dim n As Integer
n = InputBox("Input the matrix dimension")
ReDim Matrix( 1  To n,  1  To n)
For i =  1  To UBound(Matrix,  1 )
    For j =  1  To UBound(Matrix,  2 )
        If i =  1  Then
            Matrix(i, j) =  0 
        ElseIf i = UBound(Matrix,  1 ) Then
            Matrix(i, j) =  1 
        Else
            If j =  1  Then
               Matrix(i, j) =  1 
            ElseIf j = UBound(Matrix,  2 ) Then
               Matrix(i, j) =  1 
            Else
                Matrix(i, j) =  0 
            End If
        End If
    Next j
Next i
For i =  1  To UBound(Matrix,  1 )
    For j =  1  To UBound(Matrix,  2 )
        Text1.Text = Text1.Text & Matrix(i, j)
    Next j
    Text1.Text = Text1.Text & vbCrLf
Next i
End Sub
Private Sub Command2_Click()
Text1.Text = ""
For j =  1  To UBound(Matrix,  2 )
    i =  1 
    Matrix(i, j) =  1 
Next j
For j =  1  To UBound(Matrix,  2 )
    i = UBound(Matrix,  1 )
    Matrix(i, j) =  0 
Next j
For i =  1  To UBound(Matrix,  1 )
    For j =  1  To UBound(Matrix,  2 )
        Text1.Text = Text1.Text & Matrix(i, j)
    Next j
    Text1.Text = Text1.Text & vbCrLf
Next i
End Sub
Private Sub Command3_Click()
Open "C:\Documents and Settings\Пользователь\Рабочий стол\For Matrix.txt" For Output As # 1 
Print # 1 , Text1.Text
Close # 1 
End Sub