Заполнение матрицы и печать столбца этой матрицы - 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
   Print
Next i
Print
For i = 1 To 4
      Print A(i, 3); vbTab 'Печатаем 3-й столбец
Next i
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.167 из 5
Похожие ответы