Найти произведение и количество положительных чисел в последовательности - VB

Узнай цену своей работы

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

Вобщем вот задание : Вводится последовательность из N чисел. Найти произведение и количество положительных среди них чисел. Я , учитывыйте мои супер-навыки в программировании , а тем более VB написал программу
Листинг программы
  1. Private Sub Command1_Click()
  2. Dim S, P, ai, N As String
  3. S = 0: P = 1
  4. N = Val(z1.Text)
  5. For i = 1 To N
  6. A = Val(InputBox("Введите следующее число", "Ввод"))
  7. If ai > 0 Then
  8. P = P * ai
  9. S = S + 1
  10. z2.Text = Str(P)
  11. z3.Text = Str(S)
  12. Next
  13. End Sub
z1, z2 ,z3 здесь это текстовые окна Бейсика куда выводится информация, но вот проблема ( а она наверное не одна) когда я включаю программу и произвожу нужные мне действия мне Vb пишет Next without For некст без фо , хотя это фо есть , так в чём проблема? ЗЫ может у меня ещё есть ошибки в алгоритме , может кто поможет, заранее спасибо)

Решение задачи: «Найти произведение и количество положительных чисел в последовательности»

textual
Листинг программы
  1. A = Val(InputBox("Введите следующее число", "Ввод"))
  2. If ai > 0 Then

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


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

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

11   голосов , оценка 3.818 из 5

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

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

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы