End Sub. В результате выполнения приведенной ниже программы на экране последовательно будут появляться окна
В результате выполнения приведенной ниже программы на экране последовательно будут появляться окна. В таблице отражены окна, соответствующие определенным участкам кода. Отметим, что значок, который будет изображен в последнем окне, определяется значением переменной x, вводимым с клавиатуры при появлении окна “Формируем окно для ввода информации”. В нашем случае было введено значение, равное 48.
Приведенная программа может быть переписана следующим образом: Sub Тест1() Dim x as Byte MsgBox “Мои первые шаги в VB! ”,, “Cообщение с одной кнопкой” MsgBox “Мои первые шаги в VB! ”, vbYesNo, “Cообщение с двумя кнопками” MsgBox “Мои первые шаги в VB! ”, vbYesNo + vbCritical, “Cообщение с двумя кнопками и значком” x = InputBox (“Введите число, кратное 16, не больше 64! ”, ”Формируем окно для ввода информации ”, 16) MsgBox “ Мои первые шаги в VB! ”, vbYesNo + x, “ Мое сообщение”
|
