Программирование в 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