第4讲选择结构程序设计.ppt

1、第4讲 选择结构程序设计,一、学习目的 1）掌握单分支或双分支选择结构语句If的使用。 2）掌握情况选择结构语句Select case的使用。 3）掌握选择结构语句的嵌套使用。,二、实例选讲 实例4-1 输入3个数据，如果这3个数据能构成三角形，计算并输出三角形的面积。 如图见P20，程序见4-1.vbp。 1.解题分析 本程序要1个窗体，5个标签，3个文本框，2个按钮。 构成三角形的条件是，任意两边之和大于第三边。 计算公式： S= 其中x=,2.界面设计 根据题意，各对象及其主要属性如P21表4-1。,3.编写代码 要写2个命令按钮(计算、清除)的单击事件。 Private Sub Com

2、mand1_Click() a = Val(Text1): b = Val(Text2): c = Val(Text3) If a + b c and b + c a and c + a b Then x = (a + b + c) / 2 s = Sqr(x * (x - a) * (x - b) * (x - c) Label5.Caption = 三角形的面积为： & Str(s) Else MsgBox 无法构成三角形, vbOKOnly + vbCritical, 输入错误 End If End Sub,Private Sub Command2_Click() Text1 = : T

3、ext2 = : Text3 = Label5.Caption = End Sub 4.调试运行 输入a、b、c的值，单击“计算”就求出了三角形的面积或给出不能构成三角形的提示。 5.思考讨论 1） If语句的格式和使用。 If 条件表达式 then 语句 End if,If 条件表达式 then 语句1 Else 语句2 End if If语句也可写成行式： If 条件表达式 then 语句 If 条件表达式 then 语句1 else 语句2 2） 在MsgBox函数中，可以把 vbOKOnly + vbCritical 改为0+16或16。,实例4-2 编制一个用户身份验证程序，设三个不

4、同密码表示三个不同类型的用户，程序界面如图4-2所示，要求密码至少7个字符。 设密码分别为1234567（普通用户）、1989643（授权用户）和1687799（特许用户）。用MsgBox对话框表示密码验证通过信息，用标签显示用户类型。如图见P22，程序见4-2.vbp。 1.解题分析 本程序要1个窗体，2个标签，1个文本框，1个命令按钮。用If语句验证密码是不是通过，用Select Case语句判别用户类型。,2.界面设计 各对象及主要属性设置如P23表4-2 BorderStyle(1)表示边框样式为1(固定大小)。,3.编写代码 要有1个文本框的Change事件，用于判别是否达到7个字符

5、。以决定命令按钮是否可用。 有1个命令按钮的Click事件，用于验证密码。 有1个文本框的KeyPress事件，用于按回车后去调用命令按钮的单击事件。 Private Sub Text1_Change() If Len(Text1) = 7 Then Command1.Enabled = True Else Command1.Enabled = False End If End Sub,Private Sub Command1_Click() pw = Trim(Text1) If pw = 1234567 Or pw = 1989643 Or pw = 1687799 Then MsgBox

6、 你的口令正确，已通过, vbOKOnly+vbInformation, 用户身份验证 Select Case pw Case 1234567 Label2 = 你是普通用户 Case 1989643 Label2 = 你是授权用户 Case 1687799 Label2 = 你是特许用户,End Select Else i = MsgBox(口令不正确，是否重试, vbYesNo + vbQuestion, 提示信息) If i = vbYes Then Text1 = : Text1.SetFocus Else End End if End if End Sub,Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call Command1_Click End if End Sub 5.思考讨论 1）Text1的属性maxlength的使用 如果只能刚好有7个字符可做如下修改： 只要把Text1的maxlength属性值设为7。 2） Text1的PasswordChar属性的使用 可以把Text1的属性PasswordChar值改为*，则输入任何字符看到的都是*。,3） Select case语句的格式和使用 Select c