1. Введите в Окно редактирования кода Листа программу:

Текст программы:

Sub Пример6()

Dim Стоим_кг, Общая_Стоим As Single

Dim Вес As Integer

Стоим_кг = InputBox("Введите стоимость кг сыра", "Окно ввода")

Debug.Print "Вес, г ", " Общая Стоимость, руб."

For Вес = 250 To 1000 Step 50

Общая_Стоим = Стоим_кг * Вес / 1000

Debug.Print Вес, Общая_Стоим

Next Вес

End Sub

2) Запустите программу на счёт кнопкой Run Sub ;

3) Выполните ввод числовых значений. В диалоговое окно с подсказкой – «Введите стоимость кг сыра»

наберите с клавиатуры – 128,50

В окно Immediate программа выведет результаты вычислений (рисунок 10)

Рисунок 10 – Результаты работы программы Пример 6

992, Г. Кемерово, пр. Кузнецкий, 39. Тел. 25-75-00.

15