Практически любая создаваемая программа, выполняющая заложенные в ней
действия должна получить от пользователя исходные данные для работы. Ввод данных
как правило осуществляется сразу после запуска программы. Данные могут быт также
запрошены для продолжения выполнения программы в процессе ее работы.
С помощью функции InputBox
1. Из модального диалогового окна по запросу приложения сразу после его
запуска. При этом не имеет значения, какие объекты расположены на форме, она
может быть даже пустой.
Для этого необходимо в процедуру формы записать оператор (здесь
и далее программный код, который должен быть написаны разработчиком приложения
выделен жирным шрифтом):
Private Sub Form_Load() x = InputBox("Введите значение переменной X",
"Ввод данных") End Sub
2. Из модального диалогового окна, после наступления некоторого события,
активизирующего InputBox, например при нажатии кнопки на форме.
Для этого необходимо в процедуру командной кнопки
записатьоператор:
Private Sub Command1_Click() x = InputBox("Введите значение переменной
X", "Ввод данных") End Sub
Замечание: Функция InputBox возвращает строковое значение, поэтому
если вы вводите числа, то лучше использовать функцию Val, которая
преобразует строку в число: x=Val(InputBox("Введите значение переменной
X", "Ввод данных"))
С помощью элемента управления TextBox
Для этого необходимо в процедуру элемента TextBox
записать оператор:
Private Sub Command1_Click() a = Text1 End
Sub
ЗАДАНИЕ 1. Создайте новый проект
приложения и реализуйте ввод данных с помощью функции InputBox и элемента
управления TextBox. Сохраните проект на диске.
