Элементы четных строк массива А расставить в порядке возрастания - VB

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

благодарю,есть еще просьба помочь вот с этой задачкой тоже(или лучше создать для нее отдельную тему): Элементы четных строк массива А расставить в порядке возрастания n=6 m =4

Решение задачи: «Элементы четных строк массива А расставить в порядке возрастания»

textual
                            Листинг программы 
                        

                            Dim A(6, 6) As Double
 
Private Sub Form_Load()
'Г§Г*ГЇГ®Г«Г*ГҐГ*ГЁГї Г¬Г*Г±Г±ГЁГўГ* Г±Г«ГіГ·Г*Г©Г*Г»Г¬ГЁ Г·ГЁГ±Г«Г*Г¬ГЁ
Text1 = ""
For i = 1 To 6
    For j = 1 To 6
        A(i, j) = Fix(Rnd * 1000) / 1000
        Text1 = Text1 & A(i, j) & " "
    Next
    Text1 = Text1 & vbCrLf
Next
 
'Г±Г®Г°ГІГЁГ°Г®ГўГЄГ*
For i = 2 To 6 Step 2
    For j = 1 To 6
        For k = 1 To 6 - j
            If A(i, k) > A(i, k + 1) Then
                t = A(i, k)
                A(i, k) = A(i, k + 1)
                A(i, k + 1) = t
            End If
        Next
    Next
Next
 
'ГўГ»ГўГ®Г¤
Text2 = ""
For i = 1 To 6
    For j = 1 To 6
        Text2 = Text2 & A(i, j) & " "
    Next
    Text2 = Text2 & vbCrLf
Next
End Sub
                        

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

14 голосов , оценка 3.857 из 5

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