Visual Basic

[СергейКл]

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

Private Sub ПУСК_Click()
Dim sum, mull, i, X, M As Integer
sum = 0
mull = 1
M = Val(InputBox("введите колличество чисел"))
For i = 1 To M
X = Val(InputBox("Введите значение x="))
If X > 0 Then
sum = sum + X
mull = mull * X
End If
Next
MsgBox sum
 MsgBox mull
End Sub

Помогите!!НЕ получается ЗАдать команду else, чтобы когда вводились отрицательные числа , он не считал , а выводил что числа отрицательные

[ViktorR]

А так Вы пробовали?

Private Sub ПУСК_Click()
Dim sum, mull, i, X, M As Integer
   sum = 0
   mull = 1
   M = Val(InputBox("введите колличество чисел"))
   For i = 1 To M
      X = Val(InputBox("Введите значение x="))
      If X > 0 Then
         sum = sum + X
         mull = mull * X
      else
         MsgBox "Введено отрицательное число!"
      End If
   Next
MsgBox sum
MsgBox mull
End Sub

1. Код следует форматировать: Выделить текст и нажать символ "#", расположенный на панели.
2. При написании кода в нормальном редакторе VB есть справка: Навести курсор на оператор (для примера введите if или for) и нажать Ctrl+F1.
3. Учитесь самостоятельно искать ответы. В той же сети достаточно набрать запрос, например: if VB.
Вот, например, что получилось у меня: https://msdn.microsoft.com/ru-ru/library/752y8abs.aspx




Как-то так, ...
PS: Правильность команды для вывода строки не проверял. Поступил по принципу подобия.