ACCES实例教程 第8章 模块的操作.ppt

Access实例教程 潘明寒 赵义霞 主编 中国水利水电出版社 ACCESS实例教程 ——模块的操作（第8章） 4．注释语句 注释语句是非执行语句，用来提高程序的可读性，不被解释和编译。注释语句显示为绿色。 格式1：rem 注释内容 说明：用rem引导的注释语句，如果放在其他语句后面，之间用冒号分隔。 格式2： 注释内容 说明：用单引号引导的注释语句，放在其他语句后面时无需使用冒号分隔。 例：dim a1 as integer,a2 as integer : rem 定义两个整型变量 a1=12 给两个变量赋值 a2=34 a1=a1+a2 将两个变量的和赋给变量a1 rem 用消息框显示结果 msgbox a1+a2= a1 , vbInformation, 消息框 5．声明语句 声明语句是用来定义常量、变量、数组和过程。定义这些的同时，也定义了初始值、生命周期、作用域等内容。 初始值由数据类型决定， 如：integer，string。 生命周期由定义的位置决定， 如：局部、模块、全局。 作用域由定义时所使用的关键字决定。 如：dim、public。 6．赋值语句 赋值语句用来为变量指定一个值。 格式：变量名=值或表达式 说明： （1）格式中的等号（=）称为赋值号，与数学中等号意义不同。如表达式a=a+1在数学中不能用，在赋值语句中常用。 （2）赋值号左边只能是变量名，不能是常量和表达式。 （3）赋值语句有计算和赋值双重功能，将赋值号右边的计算结果赋给赋值号左边的变量。 （4）赋值号两边要类型匹配。例如，表达式a%=abc会返回错误提示，因为该操作把字符串赋给整型变量，类型不匹配。 8.4.2 条件语句 1．if – end if 语句 格式：if 条件 then 语句序列 end if 功能：若条件成立，执行语句序列，否则，什么也不做。 说明： 如果语句序列只有一条语句，可简写在一行，并省略end if语句。 例：dim a as integer,b as integer a=12：b=8 if ab then a=b msgbox 最大值为： a, vbInformation, 消息框 2．if – else – end if 语句 格式：if 条件 then 语句序列1 else 语句序列2 end if 功能：若条件成立，执行语句序列1，否则，执行语句序列2。 例：dim a as integer, b as integer, c as integer a=12：b=8 if ab then c=b 用c存放最大值 else c=a end if msgbox 最大值 c, vbInformation, 消息框 8.4.3 多项选择语句 1．格式 select case 表达式 case　值1 　 语句序列1 case　值2 　 语句序列2 … case　值n 　 语句序列n case else 　 语句序列n+1 end select 2．功能：首先计算表达式的值，然后将表达式值与每个case的值比较，如果找到匹配的值，执行该case后的语句块，如果没有相匹配的值，执行case else后面的语句。 3．说明 （1）多个分支中只能选择执行一个，执行了第一个符合条件的分支以后，即使有其他分支符合条件也不再执行。 （2）select case后面的表达式通常是一个变量的名字。 （3）select case与end select要成对出现，end select之间有空格。 （4）case后面的值有4种写法： ·单一数值 ·一行并列数值，之间用逗号分隔。 ·数值1 to 数值2，前一个值必须比后一个值小。 ·用is开头的简单条件式，如is10。不允许复杂条件