Лекция: Задание 3. Создание проекта, использующего функцию MsgBox().

Постановка задачи.

Разработать проект, в котором будет запрашиваться имя пользователя, а в результате нажатия кнопки «Да» или «Нет» в окне MessageBox происходило определенное событие (т.е. предусмотреть реакцию программы на то или иное действие).

Ход работы.

1. Создайте в папке Лабораторная_работа_№12 папку 12.3

2. Запустите программу Microsoft Visual Basic 6.0.

3. В появившемся окне выберите тип приложения STANDARD.exe и нажмите кнопку «Открыть».

4. Заголовку формы Caption задайте значение «Приветствие — 3».

5. Разместите на форме 1 компонент CommandButton.

6. Задайте его свойству Name значение «CmdПриветствие», а свойству Caption – «Щелкни сюда».

7. Щелкните два раза по кнопке и напишите обработчик события Click (необходимые комментарии приведены после апострофов):

Private SubCmdПриветствие_Click()

Dim name1 As String

Dim x As Integer

name1 = InputBox(«Введите свое имя», «Имя») 'присвоили переменной

'name1 значение, введенное пользователем в окно InputBox

x = MsgBox(«Здравствуйте, » + name1 + "! Вы готовы пройти тестирование?", vbYesNo + vbQuestion, «Тестирование!»)

If x = 6 Then

CmdПриветствие.Visible = False

Form1.Print «Нажата кнопка <Да>»

Else

CmdПриветствие.Visible = False

Form1.Print «Нажата кнопка <Нет>»

End If

еще рефераты
Еще работы по информатике