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