VisualBasic 程序设计教程 刘莲英 第5章 选择结构新.ppt

5.1 选择结构程序示例 【例5-1】修改例4-1，判断在文本框中输入的三条边a、b、c是否构成三角形，如果构成三角形则在标签中输出三角形的面积，否则在标签中输出“不能构成三角形”。运行界面如图5-1所示。 操作步骤如下： ⑴ 界面设计和属性设置（略）。 ⑵ 编制各命令按钮的单击事件过程。 ① “计算”命令按钮的单击事件过程（其他两个按钮的事件过程略）如下： Private Sub Command1_Click() Dim a!, b!, c!, s!, area! a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a + b c And a + c b And b + c a Then s = 1 / 2 * (a + b + c) area = Sqr(s * (s - a) * (s - b) * (s - c)) Label5.Caption = Str(area) Else Label5.Caption = 不能构成三角形 End If End Sub 1. 单分支的If语句 单分支的If语句有单行格式和块结构格式: ⑴ 单行格式 If 表达式 Then 语句序列 ⑵ 块结构格式 If 表达式 Then 语句序列 End If 2. 双分支的If语句 双分支的If语句也有单行格式和块结构格式： ⑴ 单行格式 If 表达式 Then 语句序列1 Else 语句序列2 ⑵ 块结构格式 If 表达式 Then 语句序列1 Else 语句序列2 End If 3. 多分支的If语句 语句格式： If 表达式1 Then 语句序列1 ElseIf 表达式2 Then 语句序列2 … [Else 语句序列n ] End If 4. IIf函数 5. If语句的应用 【例5-2】设计“成人体重自测”程序，运行时的界面如图5-5所示，要求： ⑴ 两个文本框的文字对齐方式为居中，最多接收3个字符。 ⑵ 单击“开始测试”按钮后，根据计算公式将相应提示信息通过标签显示出来。 计算公式：标准体重=身高-105 体重高于标准体重的1.1倍为偏胖，提示“偏胖…”。 体重低于标准体重的0.9倍为偏瘦，提示“偏瘦…”。 其他为正常，提示“…”。 ⑶ 单击“重新填写”按钮后，文本框以及显示的信息被清空，并将焦点置于“身高”数据的文本框中。 操作步骤如下： ⑴ 界面设计和属性设置（略，文本框最多接收3个字符：MaxLength=3）。 ⑵ 编写各命令按钮的单击事件过程。 “开始测试”命令按钮的单击事件过程 Private Sub Command1_Click() Dim lx% lx用来存放理想体重 If Text1.Text = Or Text2.Text = Then Exit Sub lx = Val(Text1.Text) - 105 Label4.Caption = lx If Val(Text2.Text) lx * 1.1 Then Label6.Caption = 偏胖，少吃点可以吗?还要多多运动啊! ElseIf Val(Text2.Text) lx * 0.9 Then Label1.Caption = 偏瘦，你应该多吃点东西啊! Else Label6.Caption = 我好羡慕你啊，你这可是标准身材啊! End If End Sub Private Sub Command2_Click() “重新填写”命令按钮的单击事件过程 Text1.Text = Text2.Text = Label4.Caption = Label6.Caption = Text1.SetFocus 将焦点置于身高文本框中 End Sub 5.3 Select Case语句 Select Case语句也是实现多分支的语句。 1. Select Case语句的语法格式： 5.3 Select Case语句（续） Select Case 表达式 Case 表达式列表1 语句序列1 Case 表达式列表2 语句序列2 … C