精品PPT课件--第5章_过程.ppt

第 5 章过程
过程的作用域
用户子过程的定义及应用
自定义函数过程
内部函数
过程参数
递归
2
内部函数
常用内部函数
内部函数是系统预先设计好的函数,供用户调用
计算器中的Sin、Cos、Abs、Sqr等均调用内部函数实现
计算器函数区中调用内部函数程序。
Private mand3_Click(Index As Integer)
Select Case Index 'mand3中索引值
Case 0
= Sin(Val(Trim$())) '调用Sin函数
Case 1
= Cos(Val(Trim$()))
'调用Cos、Val、和Trim$函数求余弦、字符转换成数值和
'去除字符串中空格函数
3
Case 2
= Abs(Val(Trim$())) '调用求绝对值函数Abs
Case 3
= Sqr(Val(Trim$())) '调用求平方根函数Sqr
Case 4
= Hex$(Val(Trim$()))
'调用十进制数转换成16进制数函数'Hex$
Case 5
= Oct$(Val(Trim$()))
'调用十进制数转换成8进制数函数Oct$
Case 6
= Asc(Trim$()) '调用求字符ASCII码函数Asc
Case 7
= Rnd(Val(Trim$())) '调用随机函数Rnd
Case 8
= Date '调用当前日期函数Date
Case 9
= Len(Trim$()) '调用求字符串长度函数Len
End Select
End Sub
4
内部函数分类
序号
函数名称
功能描述
1
Int(x)
返回不大于自变量的最大整数
2
Fix(x)
去掉一个浮点数的小数部分,保留其整数部分
3
Hex(x)
把一个十进制数转换成为十六进制数
4
Oct(x)
把一个十进制数转换成为八进制数
5
Asc(x)
返回字符串中第一个字符的ASCII码
表5-1 转换函数
5
序号
函数名称
功能描述
6
Chr(x)
把值转换为相应的ASCII字符
7
Str(x)
把值转换为一个字符串
8
Cint(x)
把小数部分四舍五入,转换为整数
9
Ccur(x)
把值转换为货币类型,小数部分最多保留4位
10
CDbl(x)
把值转换为双精度数值
11
CLng(x)
把值小数部分四舍五入转换为长整型数值
12
CSng(x)
把值转换为单精度数值
13
CVar(x)
把值转换为变体类型值
6
序号
函数名称
功能描述
1
Sin(x)
返回正弦值
2
Cos(x)
返回余弦值
3
Tan(x)
返回正切值
4
Atn(x)
返回反正切值
5
Abs(x)
返回绝对值
6
Sgn(x)
返回自变量的符号
7
Sqr(x)
返回自变量x的平方根,自变量必须大于或等于0,值为负数时,函数返回-1 ,值为0时,函数返回0,值为正数时,函数返回1
8
Exp(x)
返回以e为底数,以x为指数的值,即求e的x次方
表5-2 数学函数
7
表5-3 日期函数
序号
函数名称
功能描述
1
Day(Now)
返回当前的日期
2
WeekDay(Now)
返回当前的星期
3
Month(Now)
返回当前的月份
表5-4 时间函数
序号
函数名称
功能描述
1
Hour(Now)
返回小时(0~23)
2
Minute(Now)
返回分钟(0~59)
3
Second(Now)
返回秒(0~59)
8
表5-5 随机函数
函数名称
功能描述
Rnd(x)
产生一个0~1之间的单精度随机数,当一个应用程序不断地重复使用随机数时,同一序列的随机数会反复出现,用Randomize语句可以消除这种情况
表5-6 字符串函数
序号
函数名称
功能描述
1
LTrim(字符串)
去掉字符串左边的空格
2
RTrim(字符串)
去掉字符串右边的空格
3
Trim(字符串)
去掉字