打印本文 
关闭窗口 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 |
6．InputBox函数与MsgBox函数
（1）InputBox函数
语法：x = InputBox (prompt, title, default, xpos, ypos, helpfile, context)
其中，prompt是提示的字符串，这个参数是必须的。title是对话框的标题，是可选的。default是文本框里的缺省值，也是可选的。xpos，ypos决定输入框的位置。helpfile，context用于显示与该框相关的帮助屏幕。返回值 x 将是用户在文本框里输入的数据，x是一个字符串类型的值。如果用户按了Cancel钮，则 x 将为空字符串。
（2）MsgBox函数
语法：Action = MsgBox (msg, type, title)
|
数值 |
符号常量 |
意义 |
|
0 |
vbOKOnly |
只显示 Ok 按钮 |
|
1 |
vbOKCancel |
显示 Ok Cancel 按钮 |
|
2 |
vbAbortRetryIgnore |
显示 Abor Retry Ignore 按钮 |
|
3 |
vbYesNoCancel |
显示 Yes No Cancel 按钮 |
|
4 |
vbYesNo |
显示 Yes No 按钮 |
|
5 |
vbRetryCancel |
显示 Retry Cancel 按钮 |
|
16 |
vbCritical |
Stop Sign对极其重要的问题提醒用户 |
|
32 |
vbQuestion |
Question Mark增亮没有危险的问题 |
|
48 |
vbExclamation |
Exclamation Mark强调警告用户必须知道的事情 |
|
64 |
vbInformation |
Information Mark可以使乏味的信息变得有趣 |
|
0 |
vbDefaultButton1 |
第一个按钮缺省 |
|
256 |
vbDefaultButton2 |
第二个按钮缺省 |
|
512 |
vbDefaultButton3 |
第三个按钮缺省 |
Action的值
|
返回值 |
含义 |
返回值 |
含义 |
|
1 |
选择 Ok 按钮 |
5 |
选择 Ignore 按钮 |
|
2 |
选择 Cancel 按钮 |
6 |
选择 Yes 按钮 |
|
3 |
选择 Abort 按钮 |
7 |
选择 No 按钮 |
|
4 |
选择 Retry 按钮 |
打印本文 关闭窗口