Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Петр (Skript) Пономарев -

Visual Basic 5.0/6.0 - Общие вопросы

Все примеры / Общие вопросы

Варианты оператора elseif

Автор: Петр (Skript) Пономарев | добавлено: 06.03.2010, 13:37 | просмотров: 1846 (1+) | комментариев: 0 | рейтинг: *x0
Пример использования оператора ElseIf.

Код

Dim otmetka As Integer

Private Sub Command1_Click()
otmetka = InputBox("Введите вашу отметку по математике")
If otmetka = 1 Or otmetka = 2 Then
MsgBox "Плохо"
ElseIf otmetka = 3 Then
MsgBox "Я не доволен"
ElseIf otmetka = 4 Then
MsgBox "Вот так уже лучше"
ElseIf otmetka = 5 Then
MsgBox "Молодец"
Else
MsgBox "таких нет отметок"
End If
End Sub
Обратите внимание
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах.
Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
Об авторе

Петр (Skript) Пономарев

Нет информации об авторе...

См. также:
Профиль автора
Петр (Skript) Пономарев
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Люди на Kbyte.Ru
Реклама
Счетчики