Вычислить произведение положительных элементов массива - VB

Формулировка задачи:

Задание:Вычислить произведение положительных элементов массива:x1,x2,...,x30.

Вот код:

                    Листинг программы
                
 
                        
                          
                    
Private Sub MSFlexGrid1_Click()
Dim x(1 to 30) as integer
for i = 1 to 30
x(i) = rnd * 100 - 50
next i
 
Private sub command1_click()
P=1
for i = 1 to 30
If x(i)>0 then P=P*x(i)
next i

Решение задачи: «Вычислить произведение положительных элементов массива»

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

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

14 голосов , оценка 4.071 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы