visual basic. Дана последовательность из М чисел. Найти сумму и произведение всех положительных чисел

[Stilet]

Я так понимаю, что основы бейсика тебе неведомы.
Эх... Просто убери IF. Строку где он находится удали.

[ViktorR]

Поскольку вычисления надо проводить с положительными числами (условие задачи), то код мог бы выглядеть примерно так:

Privat sub....
Dim sum, mull,i as integer 
sum=0   ' начальная сумма
mull=1   ' начальное значение для произведения
for i = 1 to M   ' цикл по элементам массива
   if  mas(i)>0 then   ' в обработку берем только положительные элементы
      Sum = Sum + mas(i)  ' последовательно добавляем в сумму следующий элемент
      Mull = Mull * mas(i)  ' последовательно перемножаем элементы
   end if        ' конец условия if
Next             ' конец цикла - проверка условия завершения цикла
end sub

Как-то так, ...
PS: Внимание на описание переменных. Переменная цикла должна быть целого типа, а вот элементы массива ...(а как в условии задачи?)

[СергейКл]

спасибо большое. Я не лентяй и не бездарь. У нас просто экзамен будет, а эти задания это дупуск.И мы не все успели пройти, дошли только до цикла и то с горем пополам.