Двумерный массив из 6 строк и 3 столбцов - VB (60930)

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

Двумерный массив из 6 строк и 3 столбцов. - Вывести элементы 4 строки - Вывести элементы 2 столбца - Найти максимальный элемент и его индексы (номер строки и столбца). - Определить количество четных значений в массиве

Решение задачи: «Двумерный массив из 6 строк и 3 столбцов»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Cls
max = 0
n = 0
For i = 1 To 6
    For j = 1 To 3
    a(i, j) = Round(CDbl(Rnd * 10 + 2), 0)
    t = t * a(i, j)
    If a(i, j) > max Then
    max = a(i, j)
    m_i = i
    m_j = j
    End If
    If a(i, j) Mod 2 = 0 Then n = n + 1
    Print a(i, j); vbTab;
    Next j
Print vbLf
Next i
Print "ГќГ«ГҐГ¬ГҐГ*ГІГ» 2-ГЈГ® Г±ГІГ®Г«ГЎГ¶Г*:"
For i = 1 To 6
    Print a(i, 2)
Next i
Print vbLf
Print "ГќГ«ГҐГ¬ГҐГ*ГІГ» 4-Г®Г© Г±ГІГ°Г®ГЄГЁ:"
For i = 1 To 3
    Print a(4, i)
Next i
Print vbLf
Print "ГЊГ*ГЄГ±ГЁГ¬Г*Г«ГјГ*Г»Г© ГЅГ«ГҐГ¬ГҐГ*ГІ Г¬Г*Г±Г±ГЁГўГ* - " & max
Print "ГЌГ®Г¬ГҐГ° Г±ГІГ°Г®ГЄГЁ Гў ГЄГ®ГІГ®Г°Г®Г© Г°Г*Г±ГЇГ®Г«Г®Г¦ГҐГ* Г¬Г*ГЄГ±ГЁГ¬Г*Г«ГјГ*Г»Г© ГЅГ«ГҐГ¬ГҐГ*ГІ - " & m_i
Print "ГЌГ®Г¬ГҐГ° Г±ГІГ®Г«ГЎГ¶Г* Гў ГЄГ®ГІГ®Г°Г®Г¬ Г°Г*Г±ГЇГ®Г«Г®Г¦ГҐГ* Г¬Г*ГЄГ±ГЁГ¬Г*Г«ГјГ*Г»Г© ГЅГ«ГҐГ¬ГҐГ*ГІ - " & m_j
Print "ГЉГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г·ВёГІГ*Г»Гµ ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў Гў Г¬Г*Г±Г±ГЁГўГҐ - " & n
End Sub