Переведите в код VBA
Формулировка задачи:
Не знаю vba,но нужно получить вот такой алгоритм.Кто может помочь?
Решение задачи: «Переведите в код VBA»
textual
Листинг программы
Sub e160608() ''const n=5;m=7; //Объявление констант-размеров массива Dim n, m n = 5 m = 7 ''var //Начало описания переменных ''A:array [1..n,1..m] of integer; //целочисленный двумерный массив ''B:array [1..n] of integer; //целочисленный одномерный массив Dim a() As Integer Dim b() As Integer ReDim a(1 To n, 1 To m) ReDim b(1 To n) ''i,j:integer; //счетчики в циклах, целочисленные Dim i, j ''begin //Начало ''randomize; //Включение генератора случайных чисел ''writeln('Массив A:'); //Вывод заголовка Debug.Print "Массив A:" ''for i:=1 to n do //Цикл по строкам от 1 до n For i = 1 To n '' begin//Начало '' b[i]:=0;//значение элемента b[i]=0 b(i) = 0 '' for j:=1 to m do //Цикл по столбцам от 1 до m Debug.Print Debug.Print i, For j = 1 To m '' begin//Начало '' a[i,j]:=-20+random(50); //Запишем туда случайные числаа от -20 до 24 a(i, j) = -20 + Rnd() * 50 '' write (a[i,j]:4); //Вывод на экран Debug.Print Right(" " & a(i, j), 4); '' if a[i,j]>0 then inc(b[i]);//если элемент положительный, +1 в ячейку b[i] If a(i, j) > 0 Then b(i) = b(i) + 1 '' end; Next j '' writeln; //Перевод на следующую строку '' end; Next i ''writeln('Массив В: Количество положительных элементов в строках'); //Заголовок второго масссива Debug.Print Debug.Print "Массив В: Количество положительных элементов в строках" Debug.Print ''for i:=1 to n do//Цикл от 1 до n For i = 1 To n ''write(b[i]:3); //Вывод на экран Debug.Print i, Right(" " & b(i), 3) ''end.//конец Next i End Sub ''Массив a: '' '' 1 -10 -16 25 -14 13 25 -8 '' 2 27 22 2 5 18 22 -1 '' 3 -10 -4 1 -12 11 -15 -10 '' 4 15 5 -11 30 4 -20 1 '' 5 -6 18 25 21 -11 -15 -19 ''Массив В: Количество положительных элементов в строках '' '' 1 3 '' 2 6 '' 3 2 '' 4 5 '' 5 3
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д