Контрольная по программированию на VBA для Excel Задание 3

Задание 3 на тему «Оператор варианта Select Case»

Ввести латинскую букву. С помощью оператора Case определить, входит эта буква в слово «turbo» или в слово «pascal»? либо не относится ни к одному из перечисленных, вывести на экран соответствующее сообщение.

Решение задания:

Option Explicit
Sub задание_3()
Dim s As String, i As Byte
s = InputBox(«Введите любую латинскую букву»)
i = 0
Select Case s
Case «t»: MsgBox «Буква входит в состав слова turbo»
Case «u»: MsgBox «Буква входит в состав слова turbo»

Case «r»: MsgBox «Буква входит в состав слова turbo»
Case «b»: MsgBox «Буква входит в состав слова turbo»
Case «o»: MsgBox «Буква входит в состав слова turbo»
Case «p»: MsgBox «Буква входит в состав слова pascal»
Case «a»: MsgBox «Буква входит в состав слова pascal»
Case «s»: MsgBox «Буква входит в состав слова pascal»
Case «c»: MsgBox «Буква входит в состав слова pascal»
Case «a»: MsgBox «Буква входит в состав слова pascal»
Case «l»: MsgBox «Буква входит в состав слова pascal»
Case Else: i = 1
End Select
If i = 1 Then
MsgBox «Эта буква не входит в состав слова pascal и слова turbo»
End If

End Sub

236
RSS
Нет комментариев. Ваш будет первым!
Загрузка...
Этот сайт использует файлы cookies, чтобы облегчить вам пользование нашим веб-сайтом. Продолжая использовать этот веб-сайт, вы даете согласие на использование файлов cookies. Подробнее о том, как мы пользуемся файлами cookies и как ими управлять, вы можете узнать нажав на ссылку ниже.