|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.12.2010, 16:53 | #1 |
Пользователь
Регистрация: 12.11.2010
Сообщений: 83
|
Msgbox вывод суммы
Вводятся N чисел с помощью Inputbox (при этом не сохраняя ни в каких переменных или ячейках), как посчитать сумму этих чисел и вывести в Msgbox?
|
11.12.2010, 19:17 | #2 |
Участник клуба
Регистрация: 28.06.2009
Сообщений: 1,950
|
Для того чтобы посчитать сумму, уж где-то придется сохранять, в переменных каких-то
|
11.12.2010, 19:43 | #3 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Код:
I'm learning to live...
|
12.12.2010, 14:22 | #4 |
Пользователь
Регистрация: 12.11.2010
Сообщений: 83
|
Смысл не совсем понятен, в цикле 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 |
12.12.2010, 14:53 | #5 |
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
Код:
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 Последний раз редактировалось VictorM; 12.12.2010 в 14:55. |
13.12.2010, 13:12 | #6 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Ой! Ступил... Надо было на VB А я на Делфи написал
I'm learning to live...
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
MsgBox | i777 | Microsoft Office Excel | 4 | 16.11.2010 02:06 |
Помогите с MsgBox | sasha_prof | Microsoft Office Excel | 1 | 03.08.2010 13:46 |
параметры MsgBox | serikov | Microsoft Office Excel | 2 | 14.07.2010 14:56 |
Вывод суммы значений на страницу сайта | BIOX | PHP | 6 | 22.06.2009 16:37 |
Mestoraspolojenie MsgBox | NathaliE | Microsoft Office Excel | 2 | 20.09.2008 20:11 |