Читайте также:
|
1. В этом же документе откройте редактор Visual Basic, используя вкладку Разработчик -> Visual Basic и отредактируйте только что созданный макрос.
2. В среде редактирования поправьте имеющейся модуль, введя следующий текст:
Dim a as Integer
Dim s As String
s=InputBox(«Введите число»)
a = val(s)
MsgBox a
7. В первых строках объявляются переменные a и s. Первая имеет тип Integer (целое число), вторая – строка, в нее можно сохранять буквы или слова.
8. Далее используем функцию InputBox, которая считывает то, что ввел пользователь. Но все, что вводит пользователь, считается строкой. Если вводит число, то оно представляется как «2», а все, что в «» считается числом. Поэтому результат ввода сохраняется в переменной s. Чтобы убрать «» с числа применяется функция val, она переводит строку в число. И теперь результат можно сохранить в переменную а.
9. Кликните на кнопке с зеленым треугольником («Выполнить Basic») в верхней панели для выполнения макроса.
10. Программа запустится и откроется окно, которое создается функцией InputBox (рис. 14). Обратите внимание, что текст, введенный в скобках функции, выводится как надпись в окне функции. В окне функции InputBox в поле для ввода введите число и нажмите кнопку «ОК».
Рис. 14. Окно функции InputBox
11. Откроется окно функции MsgBox с введенным ранее числом (рис. 15).
Рис. 15 Окно функции с результатом работы программы
12. Сохраните документ.
Самостоятельно
1. Создайте программу, перемножающую два числа, введенных пользователем.
2. Выведите поздравления для того человека, имя которого введет пользователь.
Дата добавления: 2015-01-05; просмотров: 99 | Поможем написать вашу работу | Нарушение авторских прав |