Найти и вывисти на экран Сумму-s1 -элементов с четными номерами и сумму s2 с нечетным
Добавлено: 08 мар 2011, 22:30
Здравствуйте форумчане.
нужна ваша подсказка относительно програмы на vba
Найти и вывисти на экран Сумму-s1 -элементов с четными номерами и сумму s2 с нечетными номерами.
Вот тело программы
Но что то она не совсем верно подсчитывает...
Dim Am(50) As Double
Private Sub Command1_Click()
Picture1.Cls
s = 0
av = Split(Text2, " ")
For i = 0 To Text1 - 1
Next i
For i = 2 To Text1 - 1 Step 2
Am(i) = Val(av(i))
If Am(i) Mod 2 = 0 Then s = s + Am(i)
Next i
Picture1.Print s
End Sub
нужна ваша подсказка относительно програмы на vba
Найти и вывисти на экран Сумму-s1 -элементов с четными номерами и сумму s2 с нечетными номерами.
Вот тело программы
Но что то она не совсем верно подсчитывает...
Dim Am(50) As Double
Private Sub Command1_Click()
Picture1.Cls
s = 0
av = Split(Text2, " ")
For i = 0 To Text1 - 1
Next i
For i = 2 To Text1 - 1 Step 2
Am(i) = Val(av(i))
If Am(i) Mod 2 = 0 Then s = s + Am(i)
Next i
Picture1.Print s
End Sub