Заполнение матрицы и печать столбца этой матрицы - VB
Формулировка задачи:
Подскажите пожалуйста код программы для задания:
Заполнить в памяти ЭВМ матрицу:
0 1 1 1
-1 0 1 1
-1 -1 0 1
-1 -1 -1 0
Для контроля напечатать третий столбец.
Заранее спасибо.
Решение задачи: «Заполнение матрицы и печать столбца этой матрицы»
textual
Листинг программы
- Private Sub Command1_Click()
- Dim A(1 To 4, 1 To 4) As Integer, i As Integer, j As Integer
- Cls 'Очищаем форму
- For i = 1 To 4
- For j = 1 To 4
- A(i, j) = Sgn(j - i)
- Print A(i, j); vbTab; 'Печатаем всю матрицу. Если не надо - удалите эту строку
- Next j
- Next i
- For i = 1 To 4
- Print A(i, 3); vbTab 'Печатаем 3-й столбец
- Next i
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
