VB 选择分支.pptVIP

引言 算法的三种结构：顺序、选择/分支、循环。理论已经证明，无论多么复杂的的问题，都可以用这三种结构的组合来表示。 第5章 选择分支与循环 5.1 分支结构与分支结构语句 5.2 循环结构与循环结构语句 5.3 程序示例 5.1 分支结构 5.1.1 If-Then-Else-End If结构语句 5.1.2 Select Case 语句(情况语句) 5.1.1 IF结构语句 If…Then语句(单分支结构) If … Then … Else语句(双分支结构) If … Then … ElseIf语句(多分支结构) If 语句的嵌套 　单分支结构条件语句  单行条件语句的格式如下： If 条件 Then　A组语句　[Else　B组语句] 　　　　　　　　 双分支结构（If...Then语句） 双分支If语句是用来判断条件成立与否，然后决定下一步怎么执行的一种控制语句，这种选择结构是最常用的双选择结构，即只有两种操作可以选择。如果条件为真，执行其中一个操作；如果条件为假，则执行另外一个操作。 说明： 条件表达式为必选项，它可以是关系表达式、逻辑表达式、数值表达式，但总的说来它是一个逻辑值的表达式，其返回结果必须是True或False，如果不是则进行类型转换。 对于数值表达式，VB将0作为False，非0作为True?来处理； 语句块1和语句块2可以是一条语句，也可以是多条语句 【例】设计界面如图所示，用文本框Text1输入x的值，单击按钮时，在标签text2中显示出x的绝对值。 “求绝对值”按钮Command1的单击事件过程如下： Private Sub Command1_Click() x = Val(Text1.Text) 将文本框中的字符内容转换成数值 If x 0 Then text2.text = x Else text2.text = -x ‘根据x的正负确定显示结果 End If End Sub 注意以下问题： （1）整个结构必须以If开始，以End If结束。 （2）双分支结构If 语句中Then后面的语句不能与其写在同一行上，否则，认为是一个单行结构的条件语句，这是双分支结构与单行结构条件语句的主要区别。 （3）块结构中的语句块2是可以省略的。省略后即简化为以下形式： If 条件 Then 语句块 End If  当条件成立时，根据语句块完成的一定的操作；而当条件不成立时不做任何处理，直接执行 End If 后面的语句。 前例也可以采用下列程序段来实现 Private Sub Command1_Click() x = Val(Text1.Text) If x 0 Then x = -x 取负数x的相反数 End If text2.text = x End Sub [例5-1]已知三角形三个边的长度，设计求此三角形面积的程序。 问题分析：设三角形的三个边分别为a、b、c（a、b、c为正数），从数学上已知，当 a+bc 且 a+cb 且 b+ca 时，三角形存在，其面积 s = sqr(p*(p-a)*(p-b)*(p-c)) 式中： p = (a+b+c)/2 程序代码： Private Sub Command1_Click() Dim a As Single, b As Single, c As Single, p As Single, s As Single a = Val(Text1.Text) ‘取数据a b = Val(Text2.Text) ‘取数据b c = Val(Text3.Text) ‘取数据c If a + b c And a + c b And b + c a Then p = (a + b + c) / 2 s = Sqr(p * (p - a) * (p - b) * (p - c)) ‘求三角形面积 Text4.Text = CStr(s) ‘面积数据写入计算结果文本框 Else Text4.Text = “数据错误” ‘数据错误信息 End If End Su