выражение = InputBox("ввести", "выражение")
Select Case выражение
Case 2, 4, 6, 8
MsgBox "Выбор1"
Case 12 To 14
MsgBox "Выбор2"
Case Is > 20
MsgBox "Выбор3"
Case Else
MsgBox "Не было совпадения"
Dim выражение As Integer
2015-02-14
448Поделись с друзьями:
Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями:
|
|
Сейчас читают про:
5822
5599