新Visual Basic程序设计教程 教学课件 邱李华 郭全 vb第06章.pptVIP

第6章 常用算法及应用程序举例 （2）界面设计 Private Sub Command1_Click() 输入系数a、b、c A = Val(Text1.Text) : B = Val(Text2.Text) : C = Val(Text3.Text) Cls 清除窗体 CurrentX = 600 : CurrentY = 1100 确定窗体的当前打印坐标 If A = 0 Then If B = 0 Then 如果A=0和B=0，给出提示并选中Text1中文本 MsgBox 系数为零，请重新输入 Text1.SetFocus Text1.SelStart = 0 : Text1.SelLength = Len(Text1.Text) Else ‘ 如果A=0，B ≠ 0，求出X=?C/B，并打印在窗体上 X = ?C / B Print X=; Format(X, 0.000) End If Exit Sub 退出本事件过程 End If 如果系数A≠0，根据B^2-4*A*C的不同值求解 Delta = B ^ 2 - 4 * A * C Select Case Delta Case 0 Delta为0，有两个相等的实根 -B / (2 * A) Print X1=X2=; Format(-B / (2 * A), 0.000) 打印 Case Is 0 Delta大于0，有两个不等的实根 X1 = (-B + Sqr(Delta)) / (2 * A) 求第1个根 X2 = (-B - Sqr(Delta)) / (2 * A) 求第2个根 Print X1=; Format(X1, 0.000) 打印第1个根 CurrentX = 600 ：CurrentY = 1300 确定第2个根的打印坐标 Print X2=; Format(X2, 0.000) 打印第2个根 Case Is 0 Delta小于0，有两个共轭复根 A1 = -B / (2 * A) 求实部 A2 = Sqr(Abs(Delta)) / (2 * A) 求虚部 Print X1=; Format(A1, 0.000); +; Format(A2, 0.000); i CurrentX = 600 : CurrentY = 1300 确定第2个根的打印坐标 Print X2=; Format(A1, 0.000); -; Format(A2, 0.000); i End Select End Sub （2）界面设计 （3）代码设计 本例设计为运行时在用户输入完口令并按下Enter键，或单击“确定”按钮后都可以实现对口令的验证。 如果用户输入的口令正确，则显示窗体Form2 如果口令错误，则需要进一步判断错误次数是否达到了规定的次数，如果已经达到规定次数，则……；如果没有达到规定的次数，则……。 Dim I As Integer I用于累计口令错误的次数 Private Sub Command1_Click() kl = UCase(Trim(Text1.Text)) 去掉口令字符串前后的空格，并将口令转换为大写 If kl = ABCD Then 假设口令为“ABCD” I = 0 Form2.Show Else 如果口令错误 If I = 2 Then 如果前面已经输入两次错误口令 MsgBox 对不起，您不能使用本系统 End Else Form1.Caption = 口令错，请重新输入 I = I + 1 Text1.SetFocus :