工信版（中职）Access2010数据库案例教程07_02电子课件

YCF （中职）Access2010数据库案例教程07_02电子课件 1 第七章 VBA编程基础 VBA编程基础 项目二 循环结构语句 目录 任务实施 Task force 项目拓展 Project development 项目测评 Project evaluation 项目小结 Project summary 过滤页 第一部分 Task force 任务一 使用循环结构语句实现图书损失计算 任务实施 VBA编程基础 重点 IF语句 IF嵌套语句 循环结构语句 难点 IF语句 IF嵌套语句 循环结构语句 VBA编程基础 任务一 使用循环结构语句实现图书损失计算 VBA编程基础 ① 任务分析 在不少实际问题中有许多具有规律性的重复操作，因此在程序中就需要重复执行某些语句。 能够实现该功能的语句称之为循环结构语句。 VBA编程基础 在图书信息管理过程中往往出现借阅者逾期还书或对在借阅的过程中对图书进行了损坏，为保证学校财产以及对借阅者起到一定的约束，出现以上情况应按照相应的规定进行赔偿。 在“图书借阅管理系统”中已经创建完成了“损失计算”窗体，其中包含两个命令按钮： “图书损坏计算” “逾期计算” 并包含名称为“L”的标签控件用于显示最终计算结果。 本次任务我们将通过以下任务来学习循环语句结构 VBA编程基础 1、使用For循环完成图书损坏计算，当单击“图书损失计算”按钮，弹出文本输入框输入损坏图书的数量，提示信息“请输入损坏图书数量” 。单击输入框上确定按钮弹出文本输入框，根据输入的图书损坏数量依次输入损坏图书的定价，提示信息“请输入图书定价” ，最终计算结果作为“L”标签的标题。 （损失计算方式为图书定价的2倍）。 损坏数量输入 输入图书定价 VBA编程基础 最终效果图 VBA编程基础 2、使用Do…while循环完成还书逾期损失计算，当单击“逾期计算”按钮，弹出文本输入框输入还书逾期天数，提示信息为“请输入还书逾期天数” ，最终计算结果作为“L”标签的标题。 （逾期一天罚款1元）。 逾期天数输入 最终效果图 VBA编程基础 ② 知识准备 1）输入框(InputBox) 输入框函数用于在一个对话框中显示提示信息，等待用户输入数据并按下按钮、返回包含文本框内容的数据信息。 它在VBA中是以函数的形式调用使用，其调用格式如下： InputBox (提示信息[，标题][，默认值][，左边距][，上边距]) VBA编程基础 函数返回值为从键盘上输入的数据，类型为文本型 “提示信息”是显示在对话中用于提示用户输入的信息；最大长度约为1024个字符。若包含多行内容，可以在每一行之间用回车符（Chr(13)）、换行符（Chr(10)）或是回车与换行符的组合（Chr(13)&Chr(10)）将各行分隔开来 “标题”是对话框标题栏上显示的内容；如果省略该参数，则把应用程序名字放在标题栏中 说明 VBA编程基础 “左边距”是对话框距屏幕左边的距离。若省略该参数，则该对话框在水平方向居中 “上边距”是对话框距屏幕上边的距离。若省略该参数，则该对话框在屏幕垂直方向距上边大约1/3位置 说明 “默认值”是显示在文本框中的内容，在没有其他输入时作为缺省值；若省略该参数，则文本框为空 VBA编程基础 2）For...Next循环 For...Next循环又称为步长循环，一般用于循环次数相对固定的处理中 格式 For循环变量=初值 To终值[Step步长] 循环体 Next[循环变量] VBA编程基础 执行流程 ①循环变量取初值 ②循环变量与终值进行比较，以确定循环是否执行 步长>0 时：若循环变量<=终值，循环继续执行步骤③，否则退出该循环 步长=0 时：若循环变量<=终值，会无休止地执行步骤③，这种情况称为死循环。若循环变量>终值，则一次循环也不执行 步长<0 时：若循环变量>=终值，循环继续执行步骤③，否则退出该循环 VBA编程基础 执行流程 ③执行循环体 ④循环变量加步长（循环变量=循环变量+步长） ⑤程序跳转至② For...Next 循环的流程图如图7-40所示 从流程图可以看出，当步长>=0 时 循环条件为：循环变量<=终值 当步长<0 时，循环条件为：循环变量>=终值 VBA编程基础 VBA编程基础 3）Do...loop循环 该种结构的循环分为先判断后执行的“当型循环”和先执行后判断的“直到型循环”，下面分别进行介绍。 ①当型循环 格式一 Do While <表达式1> 循环体1 Loop VBA编程基础 执