Задание по Visual Basic, «Структура развилка»

Задание по Visual Basik

“СТРУКТУРА РАЗВИЛКА”

Содержание

Разработать информационную технологию, позволяющую по коду нажатой кнопки, определить название кнопки в стандартном диалоговом окне инструкции MsgBox.

Ограничения: в диалоговом окне не может быть расположено более четырех кнопок.

Решение

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

Разработать информационную технологию, позволяющую по коду нажатой кнопки, определить название кнопки в стандартном диалоговом окне инструкции MsgBox.

Ограничения: в диалоговом окне не может быть расположено более четырех кнопок.

2) Входные и выходные данные.

Входные данные
Имя	Тип	Примечание
x	String	Код нажатой кнопки

Выходные данные
Имя	Тип	Примечание
y	String	Название кнопки

3) Математическая модель.

y=”Yes” при х=1

y=”No” при х=2

y=”YesNo” при х=3

y=”YesNoCancel” при х=4

y=”Такой кнопки нет“ при х<1 и x>4

y=IF(x=1,Yes,IF(x=2,No,IF(x=3,YesNo,IF(x=4,YesNoCancel,Такойкнопкинет))))

4) Блок-схема алгоритма.

5) Код приложения(программа).

Private Sub Command1_Click()

Dim x As String

Dim y As String

x=InputBox(“Введите код нажатой кнопки”)

Select Case x

Case 1

y=”Yes”

Case 2

y=”No”

Case 3

y=”YesNo”

Case 4

y=”YesNoCancel”

Case Else

y=”Такой кнопки нет”

End Select

MsgBox “Код нажатой кнопки-” & x & vbNewLine & “Кнопка-” & y

End Sub

6) Пример выполнения.