Найти количество столбцов матрицы, элементы которых упорядочены по убыванию - VB

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

Дана матрица размером MxN . Найти количество его столбцов, элементы которых упорядочены по убыванию.

Код к задаче: «Найти количество столбцов матрицы, элементы которых упорядочены по убыванию - VB»

textual
Sub Getmanoid()
    Dim a() As Integer, i As Integer, j As Integer, m As Integer, n As Integer, s As Integer, st As String
    Randomize
    m = Val(InputBox("Введите число строк матрицы", , 3))
    n = Val(InputBox("Введите число столбцов матрицы", , 15))
    Sheets(1).UsedRange.ClearContents
    ReDim a(1 To m, 1 To n)
    For i = 1 To m
       For j = 1 To n
         a(i, j) = Int(Rnd * 10)
         Cells(6 + i, 1 + j).Value = a(i, j)
       Next j
    Next i
    For j = 1 To n
        i = 2
       'For i = 2 To m          Do While a(i - 1, j) > a(i, j)
              i = i + 1
              If i > m Then
                  s = s + 1
                  st = st & j & "; "
                  Exit Do
              End If
          Loop
       'Next    Next
    MsgBox ("Количество столбцов, элементы которых упорядочены по убыванию = " & s & IIf(st = "", "", vbCrLf & "Их номера: " & st))
End Sub

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


СОХРАНИТЬ ССЫЛКУ