InputBox. Вызов 3 раза

End Sub.

Sub Program_1()

A = InputBox("", "Как вас зовут?", "Петя")

B = InputBox("", "Ваша фамилия?", "Петров")

C = InputBox("", "Где учитесь?", "ДВГУПС")

MsgBox "ЗНАКОМЬТЕСЬ:" + vbCrLf+ _

"это "+A+" "+B+","+ vbCrLf+ _

"он (она) учится в "+C

Из текста программы видно, что три раза подряд вызывается окно InputBox, первый раз – для ввода с клавиатуры имени, второй раз – для ввода фамилии, третий раз – для ввода названия ВУЗа. Каждый раз вводимое слово записывается в новую переменную: имя- в переменную "А", фамилия – в переменную "В", название ВУЗа – в переменную "С". Затем все три слова соединяются в единую строку знаками плюс (+), а полученная строка выводится на экран командой MsgBox. Предположим, что пользователь, запустив программу, указал имя – "Федя", фамилию – "Фёдоров", а название ВУЗа взял как стандартное значение – "ДВГУПС", нажав в третьем окне InputBox кнопку "ОК" сразу, не меняя предлагаемого программой слова. Результат работы таков:

Поясним некоторые странности, использованные в тексте команды MsgBox. Выводимое этой командой на экран сообщение получилось длинное, поэтому его пришлось разбить на три строки, для этого использовались уже знакомые нам команды vbCrLf. Далее, между переменными А и В вставлены пробелы в кавычках. Эти пробелы необходимы, чтобы имя и фамилия, хранящиеся в этих переменных, при выводе на экран не слились зрительно в одну строку: "ФедяФёдоров". Это будет некрасиво. Далее, после переменной В (после фамилии) в формируемую текстовую строку вставляется пробел с запятой (оба символа в кавычках). И ещё одно новшество: команда MsgBox получилась очень длинной, она превышает ширину страницы текстового редактора Visual Basic, поэтому мы её принудительно разбили на три строки, каждый раз записывая в конце строки (за исключением самой последней строки) символы "пробел" и "знак подчёркивания". Эти два символа, записанные вместе подряд, указывают компьютеру, что следующая строка содержит продолжение текущей команды. Итак, пробел со знаком подчёркивания позволяют для удобства чтения программы разбивать длинную команду на несколько строк.