Вычислить произведение положительных элементов массива - VB
Формулировка задачи:
Задание:Вычислить произведение положительных элементов массива:x1,x2,...,x30.
Вот код:
Решение задачи: «Вычислить произведение положительных элементов массива»
textual
Листинг программы
Private x(1 to 30) as integer Private Sub MSFlexGrid1_Click() for i = 1 to 30 x(i) = rnd * 100 - 50 next i End Sub Private sub command1_click() P=1 for i = 1 to 30 If x(i)>0 then P=P*x(i) next i MsgBox Cstr(P) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д