第七课 多分支结构 课件

课件11张PPT。双分支
结构第十二课多分支结构TPTT多分支程序在前面的这个程序里，由select case 语句开头，由 end select 语句结尾的程序是一个多分支结构。中间的几个case 语句，设定了几种状态供给算计选择，从而构成多个分支。多分支程序的一般格式是：
Select case 表达式
Case 表达式1
语句组1
Case 表达式2
语句组2
。。。。。
Case 表达式n
语句组n
End select
其中，select case 语句的表达式可以是一个变量，一个算式或一个对象的属性名.执行多分支结构的程序时，计算机回根据select case 语句，然后执行相关的语句组规定的操作，完成处理任务后再转到 end select 语句下面继续运行。设计窗体界面设置对象的属性设置对象的属性编写代码Private Sub cmdCal_Click()
Dim x As Single, y As Single
x = Val(txtTotal.Text)
Select Case x
Case Is >= 10000
y = 0.75 * x
Case Is >= 8000
y = 0.8 * x
Case Is >= 6000
y = 0.85 * x
Case Is >= 3000
y = 0.88 * x
Case Is >= 1000
y = 0.95 * x
Case Is < 1000
y = x
End SelectlblRes.Caption = y
End Sub
?Private Sub cmdExit_Click()
End
End Sub代码解释课堂总结 通过学习本节课我们学会了vb中的掌握分支结构特点，学会select case语句的基本用法，了解val()函数的知识
分支结构特点，编辑和运行方法
作业 运用我们所学知识编写一个《修改字体》程序
提示：可以选择两中以上的字体。