个人所得税-程序控制结构教程方案.pptVIP

第七章 V i s u a l B A S I C 程序设计 VB程序设计 * 闹钟程序知识点 １.时间函数的使用 ２. WindowsMediaPlayer控件的使用 ３.timer控件的使用 ４.msgbox函数的使用 * 飞机程序知识点 １.keydown，keyup，keypress事件 ２.shape控件，image控件，timer控件等 ３.rnd()函数 * 个人所得税知识点 １.分支结构 　　if 语句 select case语句 　　IIF函数 　 * * 选择结构程序设计 选择结构是根据条件选择执行不同的分支语句，以完成问题的要求。在Visual Basic程序设计中，使用IF语句和Select Case语句来处理选择结构。其特点是：根据所给定的条件成立（True）或不成立（False），从各实际可能的不同分支中执行某一分支的相应操作（程序块），并且任何情况下总有“无论条件多寡，必择其一；虽然条件众多，仅选其一”的特性。 * If 条件表达式 Then 语句组1 [Else 语句组2] 注:当在单行结构中，Then和Else后可以描述多条语句，但所有语句必须在同一行上并且用冒号分开 [例]变量a的值大于10时，分别对变量a、b、c进行赋值。 If a 10 Then a = a + 1 : b = b + a : c = c + b [例]求两个数中的最大值： If a b Then max = a Else max = b （1）单行结构条件语句  1. IF语句 * If 条件表达式 Then 程序段1 Else 程序段2 ] EndIf [说明] 条件表达式一般是比较表达式或关系表达式，描述一定的判断条件。可以把If语句理解成一个两路分支结构，执行哪一路分支完全依据条件表达式的结果而定：当条件表达式的值为True时，执行程序段1；当条件表达式的值为False时，执行程序段2。子句Else作为两路分支的分隔符。不管执行哪一路分支，执行完后将跳出If语句，去执行子句End If后相邻的语句。用方括号括起的Else及程序段2可以默认，这样，当条件表达式不成立时，程序什么也不做就直接跳出If语句。 （2）块结构条件语句 * 例如：输出x,y两个中值较大的一个值。 IF XY Then Print X Else Print Y End If 也可以写成如下的单行形式： IF XY Then Print X Else Print Y * If 条件表达式1 Then 语句段1 [ElseIf 条件表达式2 Then 语句段2] [ElseIf 条件表达式3 Then 语句段3] … [Else 语句段n] ] End If （3）多分支If语句 * 多分支结构流程图 个人所得税程序 * Private Sub Command1_Click( ) Dim x As Single, y As Single　　　定义变量? x = Val(Text1.Text) 　　　取得计税金额 If x = 500 Then　　判断情况 　　 y = x * 0.05 ElseIf x = 2000 Then 　　 y = x * 0.1 - 25 ElseIf x = 5000 Then 　　y = x * 0.15 - 125 ElseIf x = 20000 Then 　　y = x * 0.2 - 375 ElseIf x = 40000 Then 　　y = x * 0.25 - 1375 Else If x = 60000 Then y = x * 0.3 – 3375 ElseIf x = 80000 Then y = x * 0.35 - 6375 ElseIf x = 100000 Then y = x * 0.4 – 10375 Else y = x * 0.45 - 15375 End If Text2.Text = Format(y, “#,##0.00”)　　 显示结果 End Sub * 例题：任意输入1个百分制成绩，输出该分数对应的级别：90≤分数≤100，输出“优”；80≤分数90，输出“良”；70≤分数80，输出“中”；60≤分数70，输出“差”；分数60，输出“不及格”；分数＜0或分数＞100，则输出“输入有误”。 Private Sub Form_Click() Dim sco