Excel数据处理与分析 教学课件 作者 郑丽敏 第8章0.pptVIP

8.3 VBA编程基础与程序结构 8.3.6 VB程序结构 1 顺序结构 顺序结构的程序设计是最简单的，只要按照解决问题的顺序写出相应的语句就可以，它的执行顺序是自上而下，依次执行 【例8-4】我们设计一个简单的加法计算器 在VBA环境中设计如图所示的程序界面，建立3个文本框，2个标签，以及1个按钮，并设置相应的属性 8.3 VBA编程基础与程序结构 8.3.6 VB程序结构 2 分支结构 分支结构用于要先做判断再选择的问题。实现分支结构的语句有条件语句和选择语句： （1）条件语句If…Then…Else 【例8-5】使用双向条件语句实现程序的分支结构：在VBA环境中设计图8-14的程序界面，建立2个文本框以及1个按钮，并设置相应的属性 （2）选择语句Select Case…Case…End Case 【例8-6】使用Select Case选择语句实现程序的分支结构：本例中，用户输入0～100内的任何一个整数作为学生的一个考试分数，程序判断该分数属于哪一个成绩范围（优秀、良好、中等、及格、不及格） 8.3 VBA编程基础与程序结构 8.3.6 VB程序结构 3 循环结构 描述重复执行某段算法的问题，它可以减少源程序重复书写的工作量。循环结构可以看成是一个条件判断语句和一个向回转向语句的组合。 （1）For…Next循环结构 For 循环控制变量 = 初值 to 终值 [step 步长] 执行语句序列 Next 循环控制变量 【例8-7】我们计算1～10十个数的累加和 （2）Do…Loop循环结构 8.3 VBA编程基础与程序结构 8.3.7 VBA程序设计实例 【8-8】给定一个年份和月份，判断它的季节和这个月的天数。其中3～5月为春季，6～8月为夏季，9～11为秋季，12，1，2月为冬季。二月的天数与闰年有关，判断闰年的条件是：能被4整除且不能被100整除，或者能被400整除。 通过一定的映射规则，完成运算并返回结果。参数传递也有两种：按值传递（ByVal）和按地址传递（ByRef） Sub 过程的参数有两种传递方式：按值传递（ByVal）和按地址传递（ByRef） VB 在对象功能上添加的两个过程，与对象特征密切相关，也是VBA比较重要的组成 8.3 VBA编程基础与程序结构 Sub 过程 Function 函数 Property 属性过程 和 Event 事件过程 8.3.7 VBA程序设计实例 8.3 VBA编程基础与程序结构 8.3.7 VBA程序设计实例 【例8-9】 VBA过程定义与词用举例 Sub sample1(ByVal x as integer, ByRef y as integer) If y=10 then y=x+y else y=x-y end if x=x+10 End sub Sub call_ sample1 () Dim x1 as integer Dim y1 as integer x1=12 y1=10 调用过程方式： Call 过程名(参数1, 参数2…) ;过程名参数1, 参数2… Call sample1 (x1,y1) 结果是12、22，y1 按地址传递改变了值，而x1 按值传递，未改变原值 msgbox x1 msgbox y1 End sub 结果为：x1=12，y2=22 8.3 VBA编程基础与程序结构 8.3.7 VBA程序设计实例 【例8-10】 VBA过程定义与词用举例 Function password(ByVal x as integer, byref y as integer) as boolean If y=100 then y=x+y else y=x-y x=x+100 if y=150 then password=true else password=false End Function Sub call_password () Dim x1 as integer Dim y1 as integer x1=12 y1=100 调用函数：1. 作为一个表达式放在=右端 ; 2. 作为参数使用 if not password(x1,y1) then msgbox x1 msyboxy1 end if E