数据库原理与应用(Access)朱定善电子教案 第十章 模块.pptVIP

第十章 模块 10．1模块的基本知识 10．1．1模块的分类 10．1．2 Microsoft Visual Basic编辑器 10．2VBA程序设计基础 10．2．2VBA中的数据类型 10．2．3常量 10．2．4 变量 10.2.5运算符和表达式 10.2.6 函数 9．2．7 VBA的基本输入/输出函数 10．3VBA程序结构 10.3.1顺序结构 10．3．2分支程序 10．3．3循 环 语 句 10.4过程 10．4．1过程 10．4．2 Function函数 10．5模块应用案例 执行过程： （1）把“初值”赋给“循环变量”。 （2）检查“循环变量”是否超过“终值”，若没有，则执行“循环体”，若超出，则结束循环，执行Next后面的语句。 （3）“循环变量”+“步长”，转（2），继续循环。 由上可以看出For…Next循环的循环次数由“初值”、“终值”和“步长”3个因素决定。 实例10-4：编程求k=n!（n为自然数，在程序运行过程中从键盘输入n的值）。 代码如下： Private Sub Commadn1_Click() Dim n As Integer n=InputBox(输入n的值：) ‘从键盘输入n的值 k=1 For i=1 To n k=k*i Next i Debug.Print n;!=;k End Sub 2．While循环 While循环的格式如下： While 条件 [语句块] Wend 当条件为True时，执行循环体。 实例10-5：统计从键盘输入英文字母的个数，当输入的字符为“？”时，则结束程序的运行，并输出统计结果。 程序代码如下： Private Sub Command1_click() Dim char As String Const ch$=? 给ch$变量赋值?,作为程序结束标志 Counter=0 char=InputBox$(输入一个字母) While charch$ Counter=Counter+1 char=InputBox$(msg$) Wend Debug.Print 输入字母的个数为：; Counter End Sub 3．Do While…Loop循环语句 Do While…Loop语句格式： DO WHILE 条件 语句块 [Exit Do] 语句块 LOOP 执行过程： 当条件成立，则执行循环体，遇到LOOP返回到DO语句，继续判断条件，不成立，则退出循环，执行LOOP后面的语句，Exit Do的作用是中止循环的执行。 实例10-6：编写程序计算S=1+2+3+…+100的值。 程序代码如下： Private Sub Command1_click() Dim I As Integer Dim S As Integer I=1 S=0 Do While I=100 S=S+I I=I+1 Loop Debug.Print “1+2+3+…+100=”;S End Sub 在实际编程过程中，往往把一个复杂的程序分成多个相对独立的部分，每个部分用一个功能模块实现。从而简轻程序设计的难度。 VBA的过程分为两大类，一类是事件过程，当用户或系统在某对象上触发某事件时，会引发执行对象的某事件过程。另一类是用户自定义过程，在应用程序设计时，某一反复使用的功能可将其定义为过程，在程序的其他地方可以多次调用它，以实现其定义的功能。 1．子过程定义 Public/Private/Static Sub 子过程名[(参数列表)] 　 局部变量或常数定义 　 语句 　 [Exit Sub] 　 语句 End Sub 2．子过程的调用 子过程名 [参数列表] 2．表达式 （1）表达式的组成 表达式由常数、变量、函数、运算符及圆括号按一定的规则组成。表达式通过运算后返回一个结果，运算结果的类型由数据和运算符共同决定。 （2）表达式的书写规则 ●运算符不能相邻。例如，a+*b是错误的。 ●在一个表达式中出现的括号应全部是圆括号，且必须配对使用。 ●在一个算术表达式中，乘号“*”既不能省略，也不能用“· ”代替，如xy应写成x*y。 ●表达式从左到右在同一基准并排书写，不能出现上下、标。 ●要注意各种运算符的优先级别，为保持运算顺序，在书写VBA表达式时需要适当添加括号“()