Программа, суммирующая числа от 0 до указанного целого положительного числа

[Диана1998]

Программа, суммирующая числа от 0 до указанного целого
положительного числа.

Sub Summa()
Dim i As Integer, SUM As Integer
SUM = 0
For i = 0 To Rnd
i = Application.InputBox(prompt:="введи те конечное число", Title:="определение суммы чисел")
SUM = SUM + i
Next i

End Sub

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

[Диана1998]

Мне нужно вывести окно MsgBox с результатом.

[Demetros]

хаос какой-то. в чем смысл программы?

[Demetros]

Какой вопрос такой ответ

Sub Summa()
Dim i As Integer, SUM As Integer
SUM = 0
For i = 0 To Rnd
i = Application.InputBox(prompt:="введи те конечное число", Title:="определение суммы чисел")
SUM = SUM + i
MsgBox SUM
Next i
End Sub

[Demetros]

Sub Summa()
Dim i As Long, SUM As Long
Dim z As Long
z = Application.InputBox(prompt:="Введите конечное число", Title:="Определение суммы чисел")
For i = 0 To z
SUM = SUM + i
Next i
MsgBox SUM
End Sub

[IgorGO]

Demetros,
согласно легенде Карл Фридрих Гаус решил эту задачу будучи школьником начальных класов в далеких 17ХХ годах. решил устно!!!

сумма чисел от 1 до М равна (1+М)*М/2
не нужно гонять циклы нужно любить и немного знать математику
сумма 1..2 = (1+2)*2/2 = 3
сумма 1..5 = (1+5)*5/2 = 15
сумма 1..100 = (1+100)*100/2 = 5050 - именно эту задачу решил Гаус, в то время как одноклассники уже успели усердно сложить первых 10 чисел, и им оставалось сложить еще 90 шт.

[Demetros]

IgorGO, до Гауса нам с Вами конечно далеко, но дело не в этом. Судя по предыдущей теме от Диана1998, нужны именно циклы.

[Диана1998]

Мне нужно вывести окно MsgBox с результатом суммы чисел от 0 до введенного числа, в окно InputBox,текст должен быть такой:"сумма чисел от 0 до (введенного числа например 10) равно 55 ,число любое должно быть,как это оформить не знаю,помогите пожалуйста!

[Диана1998]

Вот это задание нужно сделать мне осталось последний пункт сделать,не как не получается!

Для выполнения задания необходимо:
 объявить 3 переменные (1 для конечного числа, 2 для цикла, 3 для
суммы);
 назначить переменной 1 объект «InputBox» следующим образом: i =
Application.InputBox(prompt:="введи те конечное число",
Title:="определение суммы чисел");
 с помощью цикла провести суммирование чисел и присвоить
результат переменной 3;
 вывести окно «MsgBox» c результатом.

[Диана1998]

Вот может так понятней будет,что вставить на место знаков вопроса?

Sub Summa()
Dim i As Long, SUM As Long
Dim z As Long
i = Application.InputBox(prompt:="Введи те конечное число", Title:="определение суммы чисел")
For z = 0 To i
SUM = SUM + z
Next z
MsgBox ("сумма чисел от 0 до ??????? " & SUM)
End Sub