2.1.1. Ввод данных осуществляется с помощью:

С помощью элемента управления TextBox  

В се содержимое текстового поля – это значения свойства Text и нет свойства Caption.

Private Sub Command1_Click()

a = Text1.Text

End Sub

С помощью функции InputBox

InputBox (Сообщение, Заголовок, Начальное значение)

Из диалогового окна по запросу приложения сразу после его запуска. При этом не имеет значения, какие объекты расположены на форме, она может быть даже пустой.

Для этого необходимо в процедуру формы записать оператор (здесь и далее программный код, который должен быть написаны разработчиком приложения выделен жирным шрифтом): Private Sub Form_Load() x = InputBox("Введите значение переменной X", "Ввод данных") End Sub

Из диалогового окна, после наступления некоторого события, активизирующего  InputBox, например при нажатии кнопки на форме.

Для этого необходимо в процедуру командной кнопки записать оператор: Private Sub Command1_Click() x = InputBox("Введите значение переменной X", "Ввод данных") End Sub Замечание: Функция InputBox возвращает строковое значение, поэтому если вы вводите числа, то лучше использовать функцию Val, которая преобразует строку в число:   x=Val(InputBox("Введите значение переменной X", "Ввод данных"))

2.1.2 Вывод данных осуществляется с помощью:

Вывод значения переменной на форму с помощью процедуры Print

 

Private Sub Command1_Click() x = 127 Print "Значение x="; x End Sub

Вывод значения переменной в окно PictureBox с использованием метода Print

Private Sub Command1_Click() x = 127 Picture1.Print "Значение x=";x End Sub

Вывод значения переменной в окно TextBox  

Private Sub Command1_Click() x = -326.597 Text1 = x End Sub

 

Вывод значения переменной на метку Label 

	Форма с размещенной на ней меткой Label1
	Private Sub Command1_Click() St = "Значение Х = " X = -567.12343 Label1.Caption = St & X End Sub

Вывод сообщений можно осуществлять через модальное окно MsgBox. Оно является модальным по отношению к приложению. Это означает, что с приложением невозможно продолжать работать, пока окно сообщения не будет закрыто.

MsgBox “Сообщение”[, Опция][, заголовок]

Опция задается числовым значением. Опции могут состоять из двух значений Ор=Ор1+Ор2.

Значок	Значение Ор1	Тип сообщения
	48	Предупреждение
	32	Запрос
	64	Информация
	16	Ошибка

В диалоговых окнах сообщении можно управлять отображаемыми в окне сообщения кнопками Для этого можно использовать опции, приведенные в таблице:

Значение Ор2	Набор кнопок в диалоговом окне
0	OK
1	OK, Отмена
2	Стоп, Повтор, Пропустить
3	Да, Нет, Отмена
4	Да, Нет
5	Повтор, Отмена

Кнопка	Значение при нажатии на кнопку	В зависимости от выбора кнопки диалоговое окно MsgBox возвращает одно из значений, заданных системными константами. Это необходимо для анализа нажатой кнопки и выполнения соответствующих действий в программе. В исходном коде для этого можно использовать константы, указанные в таблице
ОК	1
Отмена	2
Стоп	3
Повтор	4
Пропустить	5
Да	6
Нет	7

Форма с размещенной на ней кнопкой
	Private Sub Command1_Click() Dim Name As String Name = InputBox("Введите свое имя", "Имя") MsgBox "Здравствуйте " + Name + "!Рады приветствовать Вас на нашем проекте!", 0 + 64, "Привет" End Sub
После наступления некоторого события, активизируется окно  InputBox, например при нажатии кнопки на форме.
	Замечание: Функция InputBox возвращает строковое значение, поэтому переменную Name мы объявил строковой. InputBox так же является модальным по отношению к приложению. Это означает, что с приложением невозможно продолжать работать, пока окно сообщения не будет закрыто.
	В данном проекте не предусматривается реакция программы на нажатие той или иной кнопки окна MsgBox. Пока ставится цель только посмотреть, как меняется внешний вид окна.