Заменить все отрицательные элементы матрицы нулями - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
