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

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


textual

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

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



Похожие ответы
  1. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 begin   write('Введите n: ');   var n := ReadInteger;     var c := 0;   for var i:=1 to n do   begin     write ('Введите целое число: ');     var x := ReadInteger;     if x mod 2 <> 0 then       c += 1;   end;     writeln('Количество нечетных равно ', c); end. Нужно сделать в VB . Я сделал , но не правильно , выводит только 0. Помогите пожалуйста , буду благодарен. Вот мой код :

  1. 1) создать экранную форму, разместив на ней элементы управления: кнопку и два тек-стовых поля – одно для ввода чисел, другое – для вывода результата вычислений; 2) поместить на форму поясняющие надписи около этих элементов, а также фамилию, номер группы, текущую дату и номер варианта; 4) создать процедуру, запускаемую при нажатии кнопки на форме и выполняющую необходимые вычисления. В заданном массиве подсчитать количество чисел, делящихся без остатка на 7: 28 21 26 14 63 28 33 19 21 22

  1. Записать в 1 строку 10 целых чисел из диапазона [-3;3]. Определить,сколько из этих элементов равны числу А (целое,вводимое с клавиатуры). Вывести найденное количество элементов в любую ячейку строки В (в пределах экрана), которую выделить зеленым цветом. Если элементов,равных числу А нет,то вывести число не равное нулю и закрасить синим цветом. А принадлежит [-3;3]

  1. Описать процедуру DigitCountSum(K, C, S), находящую количество C цифр целого положительного числа K, а также их сумму S (K — входной, C и S — выходные параметры целого типа). С помощью этой процедуры найти количество и сумму цифр для каждого из пяти данных целых чисел.

  1. Дана строка. Подсчитать количество содержащихся в ней цифр.

  1. Сколько существует четырехзначных чисел,которые в 600 раз больше суммы своих цифр?

  1. Народ, знаю, что вас бесят подобные темы, но прошу помогите. Начали преподавать VB6, но раньше я его не встречал. Задача такова: Дан двумерный массив размерностью N x M элементов. Определить количество элементов, значения которых больше заданного числа F. Если не сложно, пожалуйста напишите полный код с пояснениями. Массив рандомный. Заранее спасибо.

  1. Господа, прошу помочь написать цикл, который посчитает кол-во элементов массива определенной тематики и запишет это число в переменную Interact. В vbs я новичок, поэтому буду изъясняться на дилетантском языке. Есть массив, каждый элемент массива состоит из трех слов одной тематики, например:0 - Car;Bike;Motorcycle 'Транспорт1 - Cup;Spoon;Knife 'Посуда2 - Table;Chair;Box 'Мебель Меня интересует тематика Транспорт, слова в элементе могут стоять в разном порядке, например: Car;Bike;Motorcycle Bike;Bike;Car Motorcycle;Bike;Bike Если в элементе есть хоть одно из трех слов Car, Bike, Motorcycle, то Interact будет равен 1. Приведу еще один пример массива где Interact будет равен 2 (0 и 2 элемент массива имеют тематику Транспорт):0 - Car;Car;Motorcycle1 - Cup;Spoon;Spoon2 - Motorcycle;Car;Bike3 - Box;Chair;Box

  1. Пиксели рисунка закодированы числами (обозначающими цвет) в виде матрицы, содержащей N строк и M столбцов. Выполните поворот рисунка вправо на 90 градусов. пример: исходный массив: 1 2 3 4 5 6 7 8 9 результат: 7 4 1 8 5 2 9 6 3