Переведите в код 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

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