Написать программу, которая формирует квадратную матрицу nxn

[andruxa-forever]

Написать программу, которая формирует квадратную матрицу
размером (nxn) по следующем принципу:
0 0 0 0 0 0 0 0 0
1 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 1
1 1 0 0 0 0 0 0 1
1 1 1 1 1 1 1 1 1
Число n задаётся пользователем. Матрица должна отображаться на форме в текстовом поле или
ином элементе управления.
Программа должна иметь возможность отражать матрицу по вертикали:
1 1 1 1 1 1 1 1 1
1 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 1
0 0 0 0 0 0 0 0 0
Полученная матрица должна сохраняться в текстовый файл (*.txt).
Всем доброго времени дня.....У меня такая проблема нужно написать программу в Visual Studio 2008, а я в нем вообще никак....помогите плизззз!!!
вот моё мыло andruxa-forever@mail.ru

есть код порграммы:

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

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.