VisualBasic程序设计教程刘莲英第5章选择结构课件教学.pptVIP

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 语句序列