Заменить нулевой элемент элемент каждой строки максимальным по модулю элементом - VB

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

Заменить нулевой элемент элемент каждой строки максимальным по модулю элементом вот что у меня получилось, но прога не выполняется не подскажете где у меня ошибка или ошибки _________________________________________________

                    Листинг программы
                
 
                        
                          
                    
Dim max, i, j As Integer
max = CInt(MSFlexGrid1.TextMatrix(0, 0))
For i = 0 To MSFlexGrid1.Rows - 1
For j = 0 To MSFlexGrid1.Cols - 1
If CInt(MSFlexGrid1.TextMatrix(i, j)) > max Then
max = CInt(MSFlexGrid1.TextMatrix(i, j))
i = i + 1
j = j + 1
End If
Next j
Next i
 
For i = 0 To MSFlexGrid1.Rows - 1
For j = 0 To MSFlexGrid1.Cols - 1
If 0 = CInt(MSFlexGrid1.TextMatrix(i, j)) Then
max = CInt(MSFlexGrid1.TextMatrix(i, j))
End If
Next j
Next i

Решение задачи: «Заменить нулевой элемент элемент каждой строки максимальным по модулю элементом»

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы