《VBA编程及应用基础》第3章2For...Next循环结构.pptx

VBA 程序控制结构For...Next 循环语句Exit 语句本讲内容一个问题购买数量 Q折扣Q50095%500≤Q60090%600≤Q100080%1000≤Q500070%Q≥500060%某商场约定其某款产品的销售单价（原价为100元）根据不同的购买数量有不同的折扣（如下表所示），试编写一个VBA过程，计算产品销售单价.xlsx产品销售单价工作簿中该产品各销售数量情况下的折扣过的销售单价循环结构当程序中有规律地重复执行某些操作时，可以用循环结构实现循环结构的执行过程，总是在一定条件的控制下对循环体进行重复操作，当满足某一终止条件时停止循环，并结束循环退出循环体For…Next语句功能：以指定的次数重复执行循环体格式： For 变量 = 初值 To 终值 [Step 步长] 语句块 [Exit For] 语句块 Next [变量]变量又称循环控制变量、计数器变量，初值为循环起始值，终值为循环的结束值步长为循环控制变量的每次改变增量，缺省为1Exit For为强制退出循环语句For…Next语句计算产品折扣后的销售单价？For…Next语句实例1：求 s = 1 + 2 + 3 + …… + 100 ?利用赋值语句可写出如下形式的代码：s = 0s = s + 1s = s + 2s = s + 3…… s = s + 100 实际上重复了同一个操作：s = s + i，只是 i 每次都增加 1 For…Next语句实践1：编写一个宏，使用 InputBox 函数输入一个正整数 n，然后计算 n 的阶乘（n!），并将计算结果用 MsgBox 函数输出？For…Next语句实例2：编写一个宏MySub1，在Sheet1工作表的A1:A10区域各单元格中分别随机生成[10, 99]之间的整数；再编写一个宏MySub2，在Sheet1工作表的A1:A10区域中，将偶数所在的单元格设置为黄色背景For…Next语句实践2：编写一个宏MySub1，在Sheet1工作表的A1:J1区域各单元格中分别随机生成[100, 999]之间的整数；再编写一个宏MySub2，在Sheet1工作表的A1:J1区域中，将奇数所在的单元格设置为红色字体退出循环？Exit 语句（P.32）Exit For 语句，用于跳出 For 循环以提前终止循环，例如：Exit 语句一般与 If 语句结合使用另外，Exit Do 语句可以用于跳出 Do…Loop 循环Exit 语句另外，Exit 语句还可以退出过程、函数Exit SubExit Function实例3Exit 语句实践3：小明2014年往银行存入了10000元，已知银行的年存款利率为3.6%，请问到哪一年小明的存款本息和会超过12000元？For…Next 练习找出成绩表.xlsm成绩表中的最高分，并将此单元格设置黑底白字格式，效果如图所示Thank you