6.3. Вывод данных с помощью функции MsgBox

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

MsgBox (Сообщение) [, ,Заголовок]

Здесь Сообщение – это выражение, которое будет преобразовано в строку символов и выведено в окне MsgBox, а Заголовок – строка символов, отображаемая в заголовке этого окна.

33. Дважды щелкните на кнопке Command3 в Form1 проекта Project1. В окне Code отобразится процедура Command3_Click.

34. Скопируйте в эту процедуру код инструкций процедуры Command2_Click.

34.1. Для этого откройте окно кода процедуры Command2_Click.

34.2. Выделите все инструкции процедуры, кроме первой и последней строки, щелкните на кнопке Copy (Копировать) панели инструментов и закройте окно процедуры Command2_Click.

34.3. В открывшемся окне процедуры Command3_Click установите курсор в начало первой после заголовка процедуры строки и щелкните на кнопке Paste (Вставить) панели инструментов.

33. Удалите строку с инструкцией: Form2.Show 'Метод Show делает форму видимой

34. Замените три указанные ниже инструкции кода

Form2.Print "i= " & i

Form2.Print "s= " & Format(s, "+0.####")

Form2.Print "d= " & Format(d, _

"dddd, dd mmmm, yyyy год")

на три инструкции:

MsgBox ("i= " & i), , "Вывод переменной i"

MsgBox ("s= " & Format(s, "+0.####")), , _

"Вывод переменной s"

MsgBox ("d= " & Format(d, _

"dddd, dd mmmm, yyyy год")), , _

"Вывод переменной d"

Эти инструкции поочередно осуществляют вызов функции MsgBox и отобразят содержание переменных i, s, d в соответствующем окне сообщения.

После всех выполненных изменений программный код процедуры Command3_Click должен выглядеть так:

Private Sub Command3_Click()

Dim i As Integer, s As Single, d As Date

i = InputBox("Задайте целое число")

s = Rnd 'Функция Rnd возвращает случайное число

'из диапазона [0,1), т.е. 0<=Rnd<1

d = InputBox("Задайте дату в формате дд.мм.гг")

MsgBox ("i= " & i), , "Вывод переменной i"

MsgBox ("s= " & Format(s, "+0.####")), , _

"Вывод переменной s"

MsgBox ("d= " & Format(d, _

"dddd, dd mmmm, yyyy год")), , _

"Вывод переменной d"

End Sub

37. Щелкните на кнопке Start (Пуск) на панели инструментов для запуска программы.

38. Щелкните на кнопке MsgBox, введите данные и проанализируйте полученные результаты. Первое из трех окон функции MsgBox будет выглядеть примерно так, как показано на рис. 6.4.

39. Щелкните на кнопке ОК для закрытия окна каждого сообщения функции MsgBox.

40. Щ

    Рис. 6.4. Окно функции MsgBox

    елкните на кнопкеВыход для остановки программы.

41. Продемонстрируйте работу Вашего проекта преподавателю.

42. Закройте Visual Basic.

43. Удалите Вашу рабочую папку на диске d.

6.4. Вопросы для контроля

1. Каково назначение функции InputBox?

2. Какой символ применяется во входном потоке для отделения целой части числа от дробной части?

3. В чем заключается действие метода Print?

4. Как выполнить очистку формы?

5. Как сделать форму видимой?

6. В чем состоит назначение функции Format?

7. Каково назначение функции MsgBox?

8. Можно ли управлять положением на экране диалогового окна функции InputBox?