Заменить все отрицательные элементы матрицы нулями - VB

Узнай цену своей работы

Формулировка задачи:

Дана матрица А (4 на 4) вещественного типа.Заменить все отрицательные элементы нулями. Результат вывести на экран!

Решение задачи: «Заменить все отрицательные элементы матрицы нулями»

textual
Листинг программы
Dim A(4, 4) As Double
Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i = 0 To 4
    For j = 0 To 4
        If A(i, j) < 0 Then A(i, j) = 0
        Text1.Text = Text1.Text & A(i, j) & " "
    Next j
    Text1.Text = Text1.Text & vbCrLf
Next i
End Sub

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


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

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

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