Выход из программы.Ввод пароля - VB

Формулировка задачи:

Подскажите, не могу найти инфу никак. При запуски программы появляется окошко с предложением ввести пароль. Две кнопки - ок и cancel. При нажатии на cancel надо выйти из программы 1) как можно выйти из программы? 2) при нажатии на ok мы должны проверить на правильность, проверили, если все хорошо, продолжаем выполнение программы, если неправильно предлагаем еще раз ввести пароль. как это сделать?

Решение задачи: «Выход из программы.Ввод пароля»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
Private Sub Form_Load()
Dim re
1
re = InputBox("Введите проль", "Проверка пароля")
Select Case re
Case 123 ' это пароль
Exit Sub
Case ""
Unload Me
Case Else
MsgBox "Пароль не верный", vbCritical, "Повторите ввод"
GoTo 1
 End Select
End Sub

Оцени полезность:

8 голосов , оценка 4.125 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы