Программирование в Vusual Basic!

Написать программу, в которой пользователь вводит матрицу 3 х3, и если в ней есть хотя бы один ноль, то программа заменяет все ячейки на цифру 7. Если нет - то массив остается прежним.

Public Class Form1

Private Sub Form1_Load (ByVal sender As System. Object, _

ByVal e As System. EventArgs) Handles MyBase. Load

Dim s (9) As String

Dim b As Boolean

TextBox1. Multiline = True

TextBox1. Height = 100

For i = 1 To 9

s (i) = InputBox ("Введите элемент " & i)

If s (i) = "0" Then b = True

Next

For i = 1 To 9

If b Then s (i) = "7"

Next

For i = 1 To 9

TextBox1. Text = TextBox1. Text & s (i) & Chr (32)

If i = 3 Or i = 6 Then _

TextBox1. Text = TextBox1. Text & vbCrLf

Next

End Sub

End Class

работает в Visual Studio 2010 (не думаю, что вы в VB6 пишите)

перед запуском, киньте на форму TextBox