VB编程6.0_选择结构资料解读.ppt

选择结构程序设计 §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 Text1.SelLength = Len(Text1.Text) Else MsgBox “对不起,您不能使用本系统” End End If End If End Sub 【例10】求一元二次方程ax2+bx+c=0的解 。 (1) 如果a=0，且b=0，则方程无解，提示重新输入系数； 但如果b? 0，则 x=-c/b (2) 如果a ? 0， b2-4ac=0 ，则有两个相等的实根 b2-4ac0， 则有两个不等的实根 b2-4ac0， 则有两个共轭复根 Private Sub Command1_Click() A = Val(Text1.Text): B = Val(Text2.Text) C = Val(Text3.Text): Cls ‘CLS清除Print输出的内容 If A = 0 Then If B = 0 Then MsgBox 系数为零，请重新输入 Else X = -C / B : Print X=; X End If Else Delta = B ^ 2 - 4 * A * C Select Case Delta Case 0 : Print X1=X2=; -B / (2 * A) Case Is 0 X1 = (-B + Sqr(Delta)) / (2 * A) X2 = (-B - Sqr(Delta)) / (2 * A) Print X1=; X1, X2=; X2 Case Is 0 : MsgBox “有两个共轭复根 ” End Select End If End Sub 课后练习: 设计一个四则运算的自我练习应用程序，界面如下图所示。 本章小结: 1. 单行结构条件语句 If 条件 Then [语句组1] [Else 语句组2] 【例11】变量strC中存放了一个字符，判断该字符类型。 用if块结构条件语句实现： If Ucase(strC) =A And Ucase (strC) =Z Then Print strC + 是字母字符 ElseIf strC =0 And strC =9 Then Print strC + 是数字字符