vb程序选择结构.docVIP

问题：计算所得税：输入工资。如果工资少于2000,免收所得税。如果工资≥2000,所得税为5%。单击窗体，在窗体上显示工资及所得税的结果。 程序结构：输入、处理、输出。 程序框架： Private Sub Form_Click() 输入工资 如果　工资=2000 那么 所得税 = 工资 * 0.05 否则 所得税 = 0 输出工资、所得税 End Sub 分析：设立变量gz代表工资，sj代表所得税； 输入工资用InputBox函数，并存入变量gz； 　输出工资、所得税用Print方法。 程序为： Private Sub Form_Click() Gz=InpueBox(请输入工资, 输入工资) 如果　gz=2000 那么 sj = gz * 0.05 否则 sj = 0 　? 工资;gz;的所得税为;sj End Sub “如果”、“那么”、“否则”如何实现呢？ 用程序的控制结构实现。 Vb程序设计选择结构 实际上，“如果”、“否则”是程序的一种控制结构。它的功能是根据条件“工资=2000”是否成立，决定程序下一步的执行方向是“所得税=工资*0.05”还是“所得税=０”。 这种根据条件的不同结果，选择不同的分支的程序结构，称为“选择结构”或“分支结构”。它属于程序的控制结构。 结构化程序设计的基本控制结构有３种： (1) 顺序结构：单线条、无分支、不重复、每个语句均有机会执行，且都仅执行一次。这种结构功能最简单。 (2) 选择结构：即分支结构。 (3) 循环结构：重复执行某块程序若干次。 7.1　选择结构 在VB中，选择结构用If语句实现，故选择结构也称If结构。它有２种格式：单行结构、块结构。 单行If语句 格式1： 　 If　条件　Then　语句1　Else 语句2 功能：如果“条件”为True，执行语句1，否则执行语句2。 应用：（计算所得税） 　 If gz=2000 Then sj=gz*0.05 Else sj=0 格式2： 　 If　条件　Then　语句1 功能：如果“条件”为True，执行语句1，否则什么也不执行，直接执行下一个语句。 应用：（计算所得税） 　 If gz=2000 Then sj=gz*0.05 “条件”：可以是关系表达式（单条件），也可以是逻辑表达式（复合条件）。 应用：工资在2000—3000之间所得税为5% If gz=2000 And gz3000 Then sj=gz*0.05 “语句”：可以是单个语句，也可以是多个语句（复合条件，用冒号分隔）。 应用：工资超过2000所得税为5%，显示姓名、所得税，否则显示姓名、说明“不用纳税”。 If gz=2000 Then sj=gz*0.05 : ? 姓名,sj Else ? 姓名,不用纳税 缺点：语句太长，结构不分明，容易出错。 改进：用If语句的块结构。 块结构If语句 1．最简单的块结构是： If　条件1　Then　 语句块１ End If 　　这种结构是单分支结构。 应用：单行结构的 　 If gz=2000 Then sj=gz*0.05 改为块结构： If gz=2000 Then sj=gz*0.05 End If 与单行If语句相比，最后多一行End If语句作为If结构的结束，但程序结构非常分明、容易阅读。缺点是程序行数增加，显得冗长。 2．最常用的结构是： If　条件1　Then　 语句块１ Else 语句块2 End If 这种结构是双分支结构。 应用：工资超过2000所得税为5%，显示姓名、所得税，否则显示姓名、说明“不用纳税”。 If gz=2000 Then sj=gz*0.05 : ? 姓名,sj Else ? 姓名,不用纳税 改为用块If结构，程序为： 　　If gz=2000 Then sj=gz*0.05 ? 姓名；sj Else ? 姓名；不用纳税 End If 这种双分支结构有时可以用IIF函数替代。 函数格式： 变量＝IIF(条件，True部分，False部分) 例如：工资超过2000所得税为5%，否则为０。 用IF结构写为： 　If gz=2000 Then Sj=gz*0.05 Else Sj=0 End If 改用IIF函数则写成： 　sj=IIF(gz=2000, gz*0.05, 0) 对于：工资超过2000所得税为5%，显示姓名、所得税，否则显示姓名、说明“不用纳税”。 这种情况能不能用IIF函数？ 什么时候用单行结构？什么时候用块结构？ 当语句块只有一个语句时，一般用单行结构； 当语句块不止一个语句时，一般用块结构； 当结构比较复杂时，一般也用块结构。