VB基础教程：第三章第三节VB的公共函数

文章作者 100test 发表时间 2007:03:10 18:23:51
来源 100Test.Com百考试题网

3.3 VB的公共函数

1. 数学函数

　　VB中常用的数学函数

函数名	功能	示例	结果
Sqr（x）	求平方根	Sqr（9）	3
Log（x）	求自然对数，x>0	Log（10）	2.3
Exp（x）	求以e为底的幂值,即求ex	Exp（3）	20.086
Abs（x）	求x的绝对值	Abs（-2.5）	2.5
Hex[$]（x）	求x的十六进制数，返回的是字符型值	Hex[$]（28）	"1C"
Oct[$]（x）	求x的八进制数，返回的是字符型值	Oct[$]（10）	"12"
Sgn(x)	求x的符号, 当x>0, 返回1 ；x=0, 返回0； x<0, 返回-1	Sgn(15)	1
Rnd(x)	产生一个在（0，1）区间均匀分布的随机数，每次的值都不同；若x=0，则给出的是上一次本函数产生的随机数	Rnd(x)	0-1之间的数
Sin(x)	求x的正弦值，x的单位是弧度	Sin(0)	0
Cos(x)	求x的余弦值，x的单位是弧度	Cos(1)	0.54
Tan(x)	求x的正切值，x的单位是弧度	Tan(1)	1.56
Atn(x)	求x的反正切值，x的单位是弧度，函数返回的是弧度值	Atn(1)	0.79

2. 字符函数

　（1）字符串编码

　　在Windows采用的DBCS（Double Byte Character Set）编码方案中，一个汉字在计算机内存中占2个字节，一个西文字符（ASCII码）占1个字节，但在VB中采用的是Unicode（ISO字符标准）来存储字符的，所有字符都占2个字节。为方便使用，可以用StrConv函数来对Unicode 与DBCS进行转换，可以用函数Len（）函数求字符串的字符数，用 LenB（）函数求字符串的字节数。

　（2）常用的字符串函数

函数名	功能	示例	结果
Len（x）	求x字符串的字符长度(个数)	Len("ab技术")	4
LenB（x）	求x字符串的字节个数	LenB("ab技术")	8
Left（x，n）	从x字符串左边取n个字符	Left("ABsYt",2)	"AB"
Right（x，n）	从x字符串右边取n个字符	Right("ABsYt",2)	"Yt"
Mid（x，n1，n2）	从x字符串左边第n1个位置开始向右取n2个字符	Mid（"ABsYt",2,3）	"BsY"
Ucase（x）	将x字符串中所有小写字母改为大写	Ucase（"ABsYug"）	ABSYUG
Lcase（x）	将x字符串中所有大写字母改为小写	Ucase（"ABsYug"）	absyug
Ltrim（x）	去掉x左边的空格	Lrim(" ABC ")	"ABC "
Rtrim（x）	去掉x右边的空格	Trim(" ABC ")	" ABC"
Trim（x）	去掉x两边的空格	Trim(" ABC ")	"ABC"
Instr（x，"字符", M）	在x中查找给定的字符,返回该字符在x中的位置,M=1不区分大小写,省略则区分	Instr("WBAC","B")	2
String（n，"字符"）	得到由n个首字符组成的一个字符串	String(3,"abcd")	"aaa"
Space (n)	得到n个空格	Space (3)	"□□□"
Replace(C,C1,C2,N1,N2)	在C字符串中从N1开始将C2替代N2次C1,如果没有N1表示从1开始	Replace("ABCASAA","A","12",2,2)	"ABC12S12A"
StrReverse (C)	将字符串反序	StrReverse ("abcd")	"dcba"

3. 日期与时间函数

　　常用的日期与时间函数

函数名	含义	示例	结果
Date ()	返回系统日期	Date ()	02-3-19
Time()	返回系统时间	Time()	3:30 :00 PM
Now	返回系统时间和日期	Now	02-3-19 3:30 :00
Month(C)	返回月份代号（1-12）	Month("02,03,19")		3
Year(C)	返回年代号（1752-2078）	Year("02-03-19")		2002
Day(C)	返回日期代号（1-31）	Day("02,03,19")		19
MonthName(N)	返回月份名	MonthName(1)		一月
WeekDay()	返回星期代号（1-7），星期日为1	WeekDay("02,03,17")		1
WeekDayName(N)	根据N返回星期名称， 1为星期日	WeekDayName(4)		星期三

　　增减日期函数： DateAdd（要增减日期形式，增减量，要增减的日期变量）

　　　　例：计算期末考试日期：DateAdd("ww",15,#2002/3/19#)

　　求日期之差函数： DateDiff（要间隔日期形式，日期一，日期二）

　　　 例：计算距毕业天数： DateDiff("d", Now, #2005/6/30#)

　　日期形式

日期形式	yyyy	q	m	y	d	w	ww	h	n	s
意义	年	季	月	一年的天数	日	一周的天数	星期	时	分	秒

4. 转换函数

函数名	功能	示例	结果
Str (x)	将数值数据x转换成字符串	Str (45.2)	"45.2"
Val(x)	将字符串x中的数字转换成数值	Val("23ab")	23
Chr(x)	返回以x为ASCII码的字符	Chr(65)	"A"
Asc(x)	给出字符x的ASCII码值，十进制数	Asc("a")	97
Cint(x)	将数值型数据x的小数部分四舍五入取整	Cint(3.6)	4
Int(x)	取小于等于x的最大整数	Int(-3.5) Int(3.5)	-4 3
Fix(x)	将数值型数据x的小数部分舍去	Fix(-3.5)	- 3
CBool(x)	将任何有效的数字字符串或数值转换成逻辑型	CBool(2) CBool("0")	True False
CByte(x)	将0-255之间的数值转换成字节型	CByte(6)	6
CDate(x)	将有效的日期字符串转换成日期	CDate(#1990,2,23#)	1990-2-23
CCur(x)	将数值数据x转换成货币型	CCur(25.6)	25.6
Round(x，N)	在保留N位小数的情况下四舍五入取整	Round(2.86，1)	2.9
CStr(x)	将x转换成字符串型	CStr(12)	"12"
CVar(x)	将数值型数据x转换成变体型	CVar("23") "A"	"23A"
CSng(x)	将数值数据x转换成单精度型	CSng(23.5125468)	23.51255
CDbl(x)	将数值数据x转换成双精度型	CDbl(23.5125468)	23.5125468