Найти среднее арифметическое массива

[Богдан Величко]

Не получается вычислить среднее арифметическое массива в Бейсике, вот условие, форма и код в приложении, спасиб заранее:

Определить среднее арифметическое значение элементов массива F(n), которые удовлетворяют требованию -3 <= F(I) <= 5. Если таких элементов нет, вывести на экран дисплея сообщение: «Элементов, удовлетворяющих требованию, в массиве нет».

[Smitt&Wesson]

If a >= -3 And a <= 5 Then
s = 0
For i = 1 To n
s = Str(a) / (z + 1)
Next

Оператор If, надо использовать внутри цикла.

[Богдан Величко]

Все равно ничего не считает...

[KobolD]

Поменяй название кнопки "рассчет" на "ввести элемент" и измени ее код на

Private Sub Command1_Click()
If IsNumeric(Text1) = True Then
a = Text1.Text
If a >= -3 And a <= 5 Then
    s = s+a
End If
i=i+1
End If
End Sub

добавь еще одну кнопку с надписью "посчитать" и поставь на нее код

If s>0 Then
     Text2.Text = s/i
else
      MsgBox "Элементов, удовлетворяющих требованию, в массиве нет"
End If

Теперь ты ввродишь в Text1 число нажимаешь добавить элемент, потом вводишь другое число снова нажимаешь добавить элемент и т.д. пока не надоест, а потом нажимаешь расчитать - получешь свое среднеарифметическое.

[Богдан Величко]

Заменил, оно просто не добавляет элементы...

[KobolD]

Сообщение от Богдан Величко

Заменил, оно просто не добавляет элементы...

оно должно накапливать сумму элементов довлетворяющих условию в S и количество элементов (нажатий на кнопку 1).
Проверь, S и i должны быть глобальными.

[Богдан Величко]

Не накапливает, оно так и остается в поле для ввода, S и I поверил

[KobolD]

Поставь бряк на

If IsNumeric(Text1) = True Then

введи число в поле и нажми на кнопку.
Посмотри какие строки кода выполняются, может ты что с проверкой намудрил?

[Богдан Величко]

Переделал программу, ну подскажите, что не так в коде?..

[Богдан Величко]

Подскажите, кому не трудно?..