VB编程6.0_选择结构论述.pptVIP

选择结构程序设计 §5 应用举例 【例9】设计一个口令检测程序，界面如下图，当用户输入的口令正确时，显示“恭喜！，您已成功进入本系统”，否则，显示，“口令错！，请重新输入”。如果连续两次输入了错误口令，在第三次输入完口令后则显示一个消息框，提示“对不起,您不能使用本系统”，然后退出整个应用程序。 Private Sub Text1_KeyUp(KeyCode As Integer, Shift _ As Integer) Static i As Integer ‘ 保存输入错误口令的次数 i=0 If KeyCode = 13 Then 如果按下的键为回车键 If UCase(Text1.Text) = HELLO Then Label2.Caption = 恭喜!,您已成功进入本系统 ElseIf i = 1 Then i=i + 1 Label2.Caption = 口令错!,请重新输入 Text1.SelStart = 0