Код числовой последовательности - VB

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

Дана числовая последовательность a1=-6.5;a2=-6;a3=-5.5.Найти суму всех отрицательных числе.Помогите исправить ошибку

Msgbox="Введите n>-6.5"
n=InputBox('Введите число,'"Ввод")
Loop until n>-6.5
s=0
a=-6.5
for i=1 to n step i
s=s+a
a=a-0.5
Next i
Msgbox "s="
end sub.

Изправте алгоритм

Решение задачи: «Код числовой последовательности»

textual
                            Листинг программы 
                        

                                Do
        s = InputBox("Введите число") 'Cancel=выход
    Loop Until s = ""
                        

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

15 голосов , оценка 3.867 из 5

Похожие ответы