Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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