Другие языки программирования и технологии

Помогите решить задачи в Visual Basic!!

1. Для матрицы из 2 строк и 10 столбцов отпечатать номер каждого столбца, знаки элементов которого не совпадают, и число таких столбцов. 2. Для матрицы из 3 строк и 7 столбцов отпечатать номер каждого столбца, в котором значение его наибольшего элемента оказалось меньше заданной величины, и число такие элементов.
1) На форме создаёшь текстовое поле Text1, потом выделяешь его, копируешь в буфер и вставляешь, то есть делаешь копию. Бейсик при этом спросит что-то типа:
"На форме уже есть поле Text1, вы уверены, что хотите создать копию? " Отвечаешь "Yes".
В результате первое поле будет переименовано в Text1(0), а второе станет Text1(1).
Создаёшь всего 20 таких полей, и они получают имена Text1(0), Text1(1),...Text1(19).
То есть получился массив текстовых полей, к которым можно обращаться по индексам.
Размещаешь их на форме, как нужно, в 2 строки, причем в таком порядке:
Text1(0), Text1(2), Text1(4),...Text1(18)
Text1(1), Text1(3), Text1(5),...Text1(19)
То есть в первой строке чётные номера, а во второй нечётные.
Также создаёшь 2 отдельных текстовых поля для вывода результатов, Text2 для вывода номеров столбцов и Text3 для вывода количества столбцов.
Ещё рисуешь 2 кнопки - "Посчитать" (имя cmdOK) и "Выход" (имя cmdExit).
На кнопке "Выход" в свойствах задаешь Cancel = True, и пишешь программу из 1 строки
Sub cmdExit_Click
End
End Sub
На кнопке "Посчитать" в свойствах задаешь Default = True, и пишешь программу
Sub cmdOK_Click
Dim k As Integer
Text2.Text = ""
Text3.Text = 0
For k = 0 To 18 Step 2
If Val (Text1(k).Text) * Val (Text1(k + 1).Text) < 0 Then
Text2.Text = Text2.Text & Str (k/2+1) & "; "
Text3.Text = Text3.Text + 1
End If
Next k
End Sub

2) Точно таким же способом создаешь 21 текстовое поле и размещаешь так:
Text1(0), Text1(3), Text1(6),...Text1(18)
Text1(1), Text1(4), Text1(7),...Text1(19)
Text1(2), Text1(5), Text1(8),...Text1(20)
Ещё создаёшь три текстовых поля отдельно: Text2 для ввода "заданной величины", Text3 для вывода номеров столбцов и Text4 для вывода количества столбцов.
И опять же 2 кнопки с такими же свойствами, как и в 1) задаче:
"Выход" с программой из 1 строки
Sub cmdExit_Click
End
End Sub
И "Посчитать" с программой:
Sub cmdOK_Click
Dim k As Integer, Max As Integer
Text3.Text = ""
Text4.Text = 0
For k = 0 To 18 Step 3
Max = Text1(k).Text
If Text1(k + 1).Text > Max Then Max = Text1(k + 1).Text
If Text1(k + 2).Text > Max Then Max = Text1(k + 2).Text
If Max < Text2.Text Then
Text3.Text = Text3.Text & Str (k/3+1) & "; "
Text4.Text = Text4.Text + 1
End If
Next k
End Sub
DO
Dmitrii Orlov
85 556
Лучший ответ
Артем Поздняков Большое спасибо)))
Фигасе Удачник постарался!
ВЦ
Виталий Цой
3 877