Программирование в Vusual Basic!
Написать программу, в которой пользователь вводит матрицу 3х3, и если в ней есть хотя бы один ноль, то программа заменяет все ячейки на цифру 7. Если нет - то массив остается прежним.
Написать программу, в которой пользователь вводит матрицу 3х3, и если в ней есть хотя бы один ноль, то программа заменяет все ячейки на цифру 7. Если нет - то массив остается прежним.
More Questions From This User See All
Answers & Comments
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