2013第八章模块.docVIP

第八章，模块 例8.1 Private Sub Command0_Click() …中间代码省略 End Sub 其中private表示私有的含义，sub表示子过程,command0是测试命令按钮的名称 基本数据类型 数据类型 类型标识符 字段类型 整数 Integer % 长整数 long 单精度数 single ! 双精度数 double # 货币 currency @ 字符串型 string $ 布尔型 Boolean 日期型 date 变体类型 variant 用户自定义数据类型 Type newstudnet Txtno as string *7 为定长字符串 Txtname as string Txtsex as string*1 Txtage as integer End type 如果有以下定义语句 Dim newstud as newstudent Newstud.txtno=”990” 如果对它进行取长度的话为7而不是为3因为它是定长的字符串（笔试考点） With newstud .txtsno=”980306” .txtname=”冯伟” .txtsex=”女” .txtage=20 End with 变量与常量 变量是指在程序运行时值会发生变化的数据，变量名的命名，同字段命名一样，变量名可以包含字母，汉字，数字空格和其他字符但不能以空格开头。 在VBA中变量名不区分大小写，比如NewVar 和newvar视为同一个变量 变量的声明 1．显式声明，变量先定义后使用是程序设计较好的习惯。 Dim newvar_1 as integer Dim newvar %,sum ! 相当于dim newvar as integer Dim newvar as single 2.隐含声明 Dim m,n ‘m,n为variant变量 Newvar=528 二强制声明 Option explicit 强制声明要求所有变量必须定义才能使用 变量的作用域 局部范围 模块范围 全局范围 数据库对象变量 Forms!窗体名称!控件名称 或reports!报表名称!控件名称 Forms!学生管理!编号=”98030” 数组 dim 数组名([下标下限to ]下标上限) 缺省情况，总是从0开始 Dim newarray(10) as integer 定义了11个整型元素 Dim new(1 to 10) as integer 定义了10个整型元素 Dim newarray(5,5,5) 共有6*6*6 动态数组 Dim newarray() as long 定义动态数组 … Redim newarray (9,9,9) 分配数组空间大小 Option base 1 限定数组下标从1开始 符号常量 Const 符号常量名称=常量值 Const PI=3.1415 符号常量一般要求大写命名，以便和变量区分但是小写也是正确的 常用标准函数 abs(-3)=3 int,fix同时为取整函数两者是有区别的 对于正数两者返回的结果是一样的对于负数int(-3.25)=-4返回小于等于该参数值的第一个负数 Fix(-3.25)返回大于等于该参数的第一个负数fix(-3.25)=-3 round(3.255,1)=3.3 round(3.255,2)=3.25 round(3.754,1)=3.8 round(3.754,2)=3.75 round(3.754,0)=4 求平方根sqrt sqrt(9)=3 产生随机数rnd 产生0到1之间的随机数 随机数公式 int(上限-下限+1)*rnd+下限 产生100-300之间的随机数 Int(300-100+1)*rnd+100 Int(201*rnd+100) 字符串函数 Instr 例如: Str1=”98765” Str2=”65” S=instr(str1,str2) 返回4 S=instr(3,”aSsiAB”,”a”,1)返回5 Len(字符串取长度) Dim str as string*10 Str=”123” i=12 len1=len(“12345”) 返回5 len2=