Visual Basic第5章 选择结构.pptVIP

*/37 第 5 章 本章主要内容 5.1 选择结构程序示例 5.2 If语句 5.3 Select Case语句 5.4 选择结构程序举例 选择结构程序设计 */37 5.1 选择结构程序示例 【例5-1】修改例4-1，判断在文本框中输入的三条边a、b、c是否构成三角形，如果构成三角形则在标签中输出三角形的面积，否则在标签中输出“不能构成三角形”。运行界面如图5-1所示。 第5章 选择结构程序设计 */37 操作步骤如下： ⑴ 界面设计和属性设置（略）。 ⑵ 编制各命令按钮的单击事件过程。 ① “计算”命令按钮的单击事件过程（其他两个按钮的事件过程略）如下： */37 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 */37 1. 单分支的If语句 单分支的If语句有单行格式和块结构格式: ⑴ 单行格式 If 表达式 Then 语句序列 ⑵ 块结构格式 If 表达式 Then 语句序列 End If 例如： If ab Then max=a: min=b 块结构格式： If a b Then max = a min=b End If */37 2. 双分支的If语句 双分支的If语句也有单行格式和块结构格式： ⑴ 单行格式 If 表达式 Then 语句序列1 Else 语句序列2 ⑵ 块结构格式 If 表达式 Then 语句序列1 Else 语句序列2 End If 例如： If XY Then Print X Else Print Y 块结构格式： If XY Then Print X Else Print Y End If */37 3. 多分支的If语句 语句格式： If 表达式1 Then 语句序列1 ElseIf 表达式2 Then 语句序列2 … [Else 语句序列n ] End If 例如： If a 0 Then x = -1 ElseIf a = 0 Then x = 0 Else x = 1 End If x = -1 (a 0 ) 0 (a = 0 ) 1 ( a 0 ) */37 IIf函数可用来执行简单的条件判断，其语法格式为：IIf（表达式，表达式1，表达式2） 例如： Max=IIf(XY, X, Y) 它与下面的语句等价： If XY Then Max=X Else Max=Y 功能：当表达式值为True时，函数值为表达式1的值，当表达式值为False时，函数值为表达式2的值。 4. IIf函数 */37 5. If语句的应用 【例5-2】设计“成人体重自测”程序，运行时的界面如图5-5所示，要求： 图5-5 “成人体重自测”运行界面 */37 ⑴ 两个文本框的文字对齐方式为居中，最多接收3个字符。 ⑵ 单击“开始测试”按钮后，根据计算公式将相应提示信息通过标签显示出来。 计算公式：标准体重=身高-105 体重高于标准体重的1.1倍为偏胖，提示“偏胖…”。 体重低于标准体重的0.9倍为偏瘦，提示“偏瘦…”。 其他为正常，提示“…”。 ⑶ 单击“重新填写”按钮后，文本框以及显示的信息被清空，并将焦点置于“身高”数据的文本框中。 */37 操作步骤如下： ⑴ 界面设计和属性设置（略，文本框最多接收3个字符：MaxLength=3）。 ⑵ 编写各命令按钮的单击事件过程。 “开始测试”命令按钮的单击事件过程 */37 Private Sub Command1_Click() Dim lx% lx用来存放理想体重 If Text1.Text = Or Text2.Text = Then Exit Su