第8章+VBA与模块.pptx

第8章 VBA与模块;本章要求： 1、了解VBA编程环境； 2、掌握VBA编程基础：常量、变量、表达式； 3、掌握顺序结构、选择结构、循环结构 4、了解VBA模块 本章要点： 掌握顺序结构、选择结构、循环结构 学时安排： 8学时(理论）+8学时(实践）;例8-11 编程实现，对任给的三个数，按从小到大的顺序输出。;第8章 VBA与模块;8.1 VBA简介;8.1.1 VBA程序编辑环境;8.1.1 VBA程序编辑环境; 8.1.2 VBA模块; 8.1.2 VBA模块; 8.1.2 VBA模块; 8.1.2 VBA模块; 8.1.2 VBA模块; 8.1.2 VBA模块;8.1.2 VBA模块; 8.2 面向对象程序设计; 8.2 面向对象程序设计; 8.2 面向对象程序设计; 8.2 面向对象程序设计;8.2.2 使用代码设置对象属性和事件 ; 8.2 面向对象程序设计; 8.2 面向对象程序设计; 8.2 面向对象程序设计;8.2.3 编程步骤 ;8.2.4 DoCmd对象 ;例8-4 创建下图所示窗体，单击命令按钮时，使用DoCmd对象分别打开“学生信息输入”窗体、“学生情况报表”报表及“Macro1”宏。;8.3.1 VBA的基本数据类型 ;8.3.1 VBA的基本数据类型 ; (7) 日期时间型 Date 日期时间型（Date Time）数据是描述日期和时间的数据， 长度固定为8个字节。 日期时间型数据除包括日期数据的年、月、日外，还包括 时、分、秒以及上午、下午等内容。;8.3.2 常量 ; 8.3 VBA编程基础; 8.3 VBA编程基础; 8.3 VBA编程基础; 8.3 VBA编程基础;8.3.4 表达式;8.3.4 表达式; 8.3 VBA编程基础; 8.3 VBA编程基础; 8.3 VBA编程基础;观察下面程序段中的表达式 z = b^2-4*a*c If z =0 then x1= (-b+sqr(z))/(2*a) x2= (-b-sqr(z))/(2*a) Endif Msgbox x1 “,” x2; 8.3 VBA编程基础; 8.3 VBA编程基础; 8.3 VBA编程基础; 8.3 VBA编程基础; 8.4 VBA程序的流程控制结构; 8.4 VBA程序的流程控制结构;Private Sub Command1_Click() xm0 = InputBox(“请输入你的姓名”, “提示, “Nacy) MsgBox “你的姓名是: xm0 End Sub; 8.4 VBA程序的流程控制结构; 8.4 VBA程序的流程控制结构;顺序结构是程序设计中最简单、最基本的结构。它要求系统按照自上而下的顺序执行过程中的每一条语句。 ;使用顺序结构处理计算问题;使用顺序结构处理计算问题的步骤： ①声明所有变量；(先归纳出变量个数、类型、类别) ②??别为所有已知变量赋值;(直接赋值、使用输入框函数) ③分别为所有未知变量赋值;(用正确的表达式赋值) ④输出所有未知变量的值。; ;设计步骤如下： 界面设计如下图所示。 Command0_Click事件代码用于实现计算鸡和兔子的只数; Command1_Click事件代码用于结束程序的执行。 ;使用文本框输出变量c的值;3.编写Command0的Click事件过程;例 编程实现，对任意输入的一个3位数，输出其逆序数。;输出变量y的值;Private Sub Command0_Click() End Sub;已知变量的赋值方法： （1）直接赋值 （2）使用文本框控件Text （3）使用输入对话框函数InputBox （不用建立控件） 未知变量的赋值方法： 使用已知变量构造表达式进行赋值 程序结果的输出方法： 将程序结果(即未知变量的值)在窗体上或消息框上输出出来 (1) 使用标签控件 Label (2) 使用文本框控件Text 使用MsgBox语句或函数（不用建立控件） 使用Debug.print 语句在立即窗口输出结果。;Private Sub Command1_Click() Dim a, b, c, x1, x2 a=InputBox(“请输入a的值:) b=InputBox(“请输入b的值:“) c=InputBox(“请输入 c的值:“) x1=(-b+sqr(b^2-4*a*c))/(2*a) x2=(-b-sqr(b^2-4*a*c))/(2*a) Text0=x1 Text2=x2 End Sub;解题步骤： 确定方程有实数解的