Заменить нулевой элемент элемент каждой строки максимальным по модулю элементом - VB
Формулировка задачи:
Заменить нулевой элемент элемент каждой строки максимальным по модулю элементом
вот что у меня получилось, но прога не выполняется
не подскажете где у меня ошибка или ошибки
_________________________________________________
Решение задачи: «Заменить нулевой элемент элемент каждой строки максимальным по модулю элементом»
textual
Листинг программы
Private Sub Command1_Click() Dim max, i, j As Integer max = Abs(Val(MSFlexGrid1.TextMatrix(0, 0))) For i = 0 To MSFlexGrid1.Rows - 1 For j = 0 To MSFlexGrid1.Cols - 1 If Abs(Val(MSFlexGrid1.TextMatrix(i, j))) > max Then max = Abs(Val(MSFlexGrid1.TextMatrix(i, j))) End If Next j Next i For i = 0 To MSFlexGrid1.Rows - 1 For j = 0 To MSFlexGrid1.Cols - 1 If Val(MSFlexGrid1.TextMatrix(i, j)) = 0 Then MSFlexGrid1.TextMatrix(i, j) = max End If Next j Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д