实验十三 标准函数和运算符的操作.doc

实验十三 标准函数和运算符的操作实验内容一、在“立即窗口”中操作方法：打开数据库 - 摁“Alt+F11”进入VBE环境 在“视图”菜单下打开“立即窗口”。例1：在立即窗口中，一行一行地输入（输入一行后回车）下列命令，查看输出结果。r=10zc=2*3.14*rmj=3.14*r2?周长=,zc,面积=,mj?周长=;zc;面积=;mj例2：在立即窗口中，一行一行地输入（输入一行后回车）下列命令，查看输出结果。x=”北京”y=”欢迎你”?x+y例3：分别用VarType和TypeName函数测试变量r、x以及Date()函数的类型。?vartype(r)?typename(r)?vartype(x)?typename(x)?vartype(date()?typename(date()二、常用标准函数1、算术函数用以完成数学计算功能。绝对值函数：用以返回数值（表达式）的绝对值。 Abs()向下取整：Int() 数值表达式0：返回小于该数值的最大正整数 数值表达式0：返回小于该数值的第一个负整数例： ?Int(3.25) ?Int(-3.25)取整函数：Fix()，返回数值表达式的整数部分数值表达式0：舍弃小数部分，仅保留整数部分数值表达式0：返回大于该数值的第一个负数例： ?Fix(3.25) ?Fix(-3.25)四舍五入函数：Round(,)按照指定的小数位数，对数值进行四舍五入运算。指定的小数位数必须是大于等于0的数，但指定的小数位数可以缺省不写，默认值为0。例： ?Round(3.255,1) ?Round(3.255,2) ?Round(3.754,1) ?Round(3.754,2) ?Round(3.754,0) ?Round(3.754)开平方函数：Sqr()，数值表达式必须大于等于0例： ?Sqr(4)产生随机数函数：Rnd()（1）：随机数种子，决定产生随机数的方式 数值表达式0：每次产生不同随机数 （缺省值）数值表达式0：每次产生相同的随机数数值表达式=0：产生最近生成的随机数例： ?Rnd(1) ?rnd(-1)（2）一般情况下，在使用Rnd函数前，先用Randomize语句初始化随机数生成器。例： Randomize ?int(100*rnd) 产生099之间的随机整数 ?int(101*rnd) 产生0100之间的随机整数 ?int(100*rnd+1) 产生1100之间的随机整数 ?int(100*rnd+100) 产生100199之间的随机整数 ?int(101*rnd+100) 产生100200之间的随机整数2字符串函数（1）len(x)，返回x的长度，即字符个数。要求x为字符串类型。（2）space(n)，返回由n个空格组成的字符串，n为数字。（3）ucase(x)，将x中的小写字母转大写。 lcase(x)，将x中的大写字母转小写。（4）trim(x)，去掉x的首部和尾部空格。 ltrim(x)，去掉x的首部空格。 rtrim(x)，去掉x的尾部空格。（5）instr(起始位置，字串1，字串2，比较方式)，返回字串2在字串1中最早出现的位置，返回值是一个整数。3日期时间函数（1）weekday(x,n)，返回17的整数，表示星期几。 说明：n为可选项，默认值1。当n取值为1时，星期天返回1，星期一返回2，依次类推。若n取值为2，则星期一返回1，星期二返回2，星期天返回7。（2）hour(x)，返回x的小时数。（3）minute(x)，返回x的分钟数。（4）second(x)，返回x的秒数。4类型转换函数（1）asc(x)，返回首字符的ASCII码，其中，x是字符串或字符串变量名。说明：ASCII码是美国标准信息转换码，共128个字符，对应十进制数0127。（2）chr(n)，将ASCII码数字n转换成相应字符，n的取值范围0127。（3）str(n)，将数字转换为字符串，n是数字或数字表达式。说明：当数字转换为字符串时，总会在前头留一个符号位，如果是正数，符号位显示空格。（4）val(x)，将数字型字符串转换为数字，x是数字型字符串。说明：转换时自动将空格、制表符、换行符去掉，当遇到第一个不能识别为数字的字符时即停止读入。Private Sub Command4_Click()Dim a, b, ca = txt1.Valueb = Mid(a, 7, 4)c = Year(Date) - Val(b)txt2.Value = cEnd Sub5、Nz函数Nz函数可以将Null值转换为数字0、空字串或自定义的返回值。 格式：Nz（变量/表达式/字段属性名，指定值） 说明：指定值是可选项。若给出指定值，Nz函数返回指定值。若省略指定值，当类型为数值型且值为Null，Nz函数返回数字0。当类型为字符型且值为Null，Nz函数返回空字串。Private Sub Command3_Click()Dim aa As StringDim bb As IntegerDim b As Integer aa = Nz(t1.Value, 文本框不能为空!) bb = Nz(b) MsgBox aa b1.Caption = 输入内容为: & Nz(t1.Value)End SubPrivate Sub Command4_Click()b1.Caption = 输入内容为: & Trim(t1.Value)End Sub3、VBA运算符VBA的运算符有4种：算术运算符、关系运算符、逻辑运算符、连接运算符。1算术运算符：乘幂（）、乘法（*）、除法（/）、 整数除法（）、求模（mod）、加法（+）、减法（-）。2关系运算符：相等=、不相等、大于、大于等于=、小于、 小于等于算术运算符连接运算符关系运算符逻辑运算符。优先级相同时，运算顺序从左到右。5