零点起飞学VisualBasic之灵活程序流程.pptx
文本预览下载声明
第4章 灵活的程序——流程控制;4.1 根据条件执行——判断语句;4.1.1 如果..就...——If语句;;;图4.1 流程示意图;【示例4-1】;【示例4-2】;【示例4-3】;【示例4-4】;4.1.2 如果...如果...就...——多重If语句;图4.2 流程示意图;【示例4-5】;该If语句判断工资cSalary是否大于1000元。如果条件为真,则税款cTax为10元。判断工资cSalary是否大于500元。如果条件为真,则税款cTax为5元。如果工资cSalary大于500元条件不为真,则税款cTax为0。该语句还可以更复杂一些。
01 cSalary = InputBox(输入工资) InputBox函数接受输入信息
02 If cSalary1000 then 如果工资大于1000
03 cTax=10 税款为10元
04 ElseIf cSalary500 then 如果工资为500~1000
05 cTax=5 税款为5元
06 ElseIf cSalary250 then 如果工资为250~500
07 cTax=2.5 税款为2.5
08 Else 如果工资为0~250
09 cTax=0 税款为0
10 End If
11 Print 工资 csalary 元,需缴税: ctax 显示信息;;【示例4-6】;4.1.3 Select Case语句;;图4.3 流程示意图;【示例4-7】;改写后的代码如下:
01 Select Case cSalary select语句
02 Case is1000 工资大于1000元
03 cTax=10 税款为10元
04 Case is500 工资为500~1000
05 cTax=5 税款为5元
06 Case is250 工资为250~500
07 cTax=2.5 税款为2.5元
08 Case is0 工资0~250元
09 cTax=0 税款为0
10 Case Else 无此工资
11 Print 对不起,没有工资
12 End Select
13 Print 工资 csalary 元,需缴税: ctax;【示例4-8】;;【示例4-9】;;4.2 重复执行——循环语句;4.2.1 For循环;;;图4.4 流程示意图;【示例4-10】;;;4.2.2 Do循环;;【示例4-11】;;;;图4.5 流程示意图;【示例4-12】;【示例4-13】;4.2.3 While循环;【示例4-14】;4.2.4 枚举循环;;【示例4-15】;【示例4-16】;4.3 小 结
显示全部