第七课 多分支结构 课件

课件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()函数的知识 分支结构特点，编辑和运行方法 作业 运用我们所学知识编写一个《修改字体》程序 提示：可以选择两中以上的字体。