Заменить нулевой элемент элемент каждой строки максимальным по модулю элементом - 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

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


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

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

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