Msgbox вывод суммы

[Palomnik1096]

Вводятся N чисел с помощью Inputbox (при этом не сохраняя ни в каких переменных или ячейках), как посчитать сумму этих чисел и вывести в Msgbox?

[motorway]

Для того чтобы посчитать сумму, уж где-то придется сохранять, в переменных каких-то

[Stilet]

for i:=1 to 10 do
 summ:=summ+StrToIntDef(InputBox('','',''),0);

Смысл понятен?

[Palomnik1096]

Смысл не совсем понятен, в цикле do VBE не принимает.

Вообщем смысл программы такой, пользоватль вводит количество купленного товара и на до в конце посчитать сколь было купленно всего вот код программы

Public Sub qwqw()
Dim Tovar As Integer, i As Integer
Tovar = InputBox("Введите количество приобретаемого товара", "Количество товара")
For i = 1 To Tovar
kodtovara = UCase(InputBox("Введите код товара " & i & "."))
Kolvo = CDbl(InputBox("Введите количество приобретенного товара " & i & "."))
If Kolvo > 10 Then
MsgBox " Вы приобрели " & kodtovara & " в НЕОБХОДИМОМ количестве " & Kolvo & "."
Else
MsgBox " Вы приобрели " & kodtovara & " в МАЛОМ количестве " & Kolvo & "."
End If
Next i
obshak = Kolvo????? Как правильно написать строку???
MsgBox "Общая сумма купленного товара составила " & obshak & "."
End Sub

[VictorM]

Public Sub qwqw()
    Dim Tovar As Integer, i As Integer
    obshak = 0
    Kolvo = 0
    Tovar = InputBox("Введите количество приобретаемого товара", "Количество товара")
    For i = 1 To Tovar
        kodtovara = UCase(InputBox("Введите код товара " & i & "."))
        Kolvo = CDbl(InputBox("Введите количество приобретенного товара " & i & "."))
        If Kolvo > 10 Then
            MsgBox " Вы приобрели " & kodtovara & " в НЕОБХОДИМОМ количестве " & Kolvo & "."
        Else
            MsgBox " Вы приобрели " & kodtovara & " в МАЛОМ количестве " & Kolvo & "."
        End If
        obshak = obshak + Kolvo
    Next i
    MsgBox "Общая сумма купленного товара составила " & obshak & "."
End Sub

[Stilet]

Ой! Ступил... Надо было на VB А я на Делфи написал