Программирование в 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 SubEnd Classработает в Visual Studio 2010 (не думаю, что вы в VB6 пишите)перед запуском, киньте на форму TextBox