Найти количество столбцов матрицы, элементы которых упорядочены по убыванию - VB
Формулировка задачи:
Дана матрица размером MxN . Найти количество его столбцов, элементы которых упорядочены по убыванию.
Решение задачи: «Найти количество столбцов матрицы, элементы которых упорядочены по убыванию»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д