Visual Basic 常用函数介绍

一、常用内部函数

在VB内部提供了大量函数。在这些函数中，有些是通用的。有些则与某种操作有关的。

大体分成五类，分别是：转换函数、数学函数、日期函数、时间函数和随机函数。

（1）转换函数

函数名 功能

Int(x) 返回不大于自变量的最大整数。

Fix(x) 去掉一个浮点数的小数部分,保留其整数部分。

Hex(x) 把一个十进制数转换成为十六进制数。

Oct(x) 把一个十进制数转换成为八进制数。

Asc(x) 返回字符串中第一个字符的ASCII码。

Chr(x) 把值转换为相应的ASCII字符。

Str(x) 把值转换为一个字符串

Cint(x) 把小数部分四舍五入，转换为整数。

（2）数学函数

函数名 功能

math.Sin(x) 返回正弦值。

math.Cos(x) 返回余弦值。

math.Tan(x) 返回正切值。

math.Atn(x) 返回反正切值。

math.Abs(x) 返回绝对值。

math.Sqr(x) 返回自变量x的平方根，自变量必须大于或等于0。

math.Exp(x) 返回以e为底数，以x为指数的值，即求e的x次方。

（3）日期函数

函数名 功能

Now 返回当前的日期和时间。

Month(Now) 返回当前的月份。

Year(Now) 返回当前的年份。

（4）时间函数

函数名 功能

Hour(Now) 返回小时（0~23）。

Minute(Now) 返回分钟（0~59）。

Second(Now) 返回秒（0~59）。

（5）随机函数

Rnd(x) 产生一个0~1之间的单精度随机数

Rnd函数可以产生随机数，当一个应用程序不断地重复使用随机数时，同一序列的随机

数会反复出现，用Randomize语句可以消除这种情况。

二、字符串函数

（1）删除空白字符函数

函数名 功能

LTrim(字符串) 去掉“字符串”左边的空白字符；

RTrim(字符串) 去掉“字符串”右边的空白字符；

Trim(字符串) 去掉“字符串”两边的空白字符；

（2）字符串截取函数

②中部截取

格式：Mid（字符串，p，n）

从第P个字符开始，向后截取n个字符（P>0，n≥0）。函数的第三个自变量可以省略。

在省略的情况下，将从第二个自变量指定的位置向后截取到字符串的末尾。

（3）字符串长度测试函数

格式：Len(字符串) Len(变量名)

用Len函数可以测试字符串的长度，也可以测试变量的存储空间。

（4）String函数

格式：String（n，ASCII码）String（n,字符串）

返回由n指定个数组成的字符串。第二个自变量可以使用ASCII码，也可以是字符串。

（5）空格函数

格式：Space（n）

返回n个空格。

（6）字符串匹配函数

格式：InStr（[首字符位置，]字符串1，字符串2 [,n]）

在函数中“字符串1”中查找“字符串2”，如果找到了，则返回“字符串2”的第一个

字符的位置。若为字符串首字符，则位置为1。

说明：

①“字符串 2”的长度限于 65535 个字符内。

②“首字符位置”是可选项。如果含有“首字符位置”，则从该位置开始查找，否则从

“字符串 1”的起始位置开始查找。“首字符位置”是一个长整数。

③函数的最后 n 是可选项，类型为整型数，用来指定字符串比较。取范围是：0、1、2。

为 0 使用二制进比较，区分字母的大小写；

为 1 比较时忽略大小写；

为 2 则基于数据库中包含的信息进行比较（限于 Access 数据库）。

（7）字母大小写转换

格式：Ucase（字符串）’小写字母转大小字母。

Lcase（字符串）’大写字母转换为小写字母。

三、MsgBox函数

MsgBox函数的格式如下：

MsgBox（msg [，Type][，Title][，HelpFile，Context]）

① ② ③ ④

函数共有5个参数，除①参数外，其余都是可选参数。

①msg是字符串类型，长度限制为1024字符。超出字符会被自动截取。

②type是一个整数值或符号常量，用来控制在对话框内显示的按钮、图标的类型。参数

值由四类数值相加产生，这四类数值或符号常量分别表示按钮的类型、显示图标的种类、活

动按钮的位置及强制返回。

常数 值 描述

vbOKOnly 0 只显示OK 按钮。

VbOKCancel 1 显示OK 及Cancel 按钮。

VbAbortRetryIgnore 2 显示 Abort、Retry 及Ignore 按钮。

VbYesNoCancel 3 显示 Yes、No 及Cancel 按钮。

VbYesNo 4 显示Yes 及No 按钮。

VbRetryCancel 5 显示Retry 及Cancel 按钮。

VbCritical 16 显示 Critical Message 图标。

VbQuestion 32 显示Warning Query 图标。

VbExclamation 48 显示Warning Message 图标。

VbInformation 64 显示Information Message 图标。

vbDefaultButton1 0 第一个按钮是缺省值。

vbDefaultButton2 256 第二个按钮是缺省值。

vbDefaultButton3 512 第三个按钮是缺省值。

vbDefaultButton4 768 第四个按钮是缺省值。

vbApplicationModal 0 应用程序强制返回；应用程序一直被挂起，直到用

户对消息框作出响应才继续工作。

vbSystemModal 4096 系统强制返回；全部应用程序都被挂起，直到用户

对消息框作出响应才继续工作。

vbMsgBoxHelpButton 16384 将Help按钮添加到消息框

VbMsgBoxSetForeground 65536 指定消息框窗口作为前景窗口

vbMsgBoxRight 524288 文本为右对齐

vbMsgBoxRtlReading 1048576 指定文本应为在希伯来和阿拉伯语系统中的从右

到左显示

vbSystemModal 4096 系统强制返回；全部应用程序都被挂起，直到用户

对消息框作出响应才继续工作。

Type参数由上表的四类数值组成，原则是：从每一类中选择一个值（仅仅一个值，不

得重复），把这几个值加在一起就是Type参数的值（一般情况下，只需要使用前三类）。

示例：

MsgBox “是否暂停打印!”,16,”提示”

Type参数为16分解成：

16=0+16+0 显示“确定”按钮（0）+“暂停”图标（16）+默认按钮为“确定”（0）

3

MsgBox”是否退出程序。”,35,”退出”

Type参数为35分解成：

35=3+32+0 显示“是、否、取消”3个按钮（3）+“？”图标（32）+ 默认按钮（0）

③Title是一个字符串，用来显示对话框的标题。

④HelpFile、Context ：HelpFile是一个字符串变量或字符串表达式，用来表示帮助文

件的名字，Context是一个数值变量或表达式，用来表示相关帮助主题的帮助目录号。

MsgBox函数的返回值是一个整数，这个整数与所选择的命令按钮相关。

返回值参数表：

常数 值 描述

vbOK 1 OK

vbCancel 2 Cancel

vbAbort 3 Abort

vbRetry 4 Retry

vbIgnore 5 Ignore

vbYes 6 Yes

vbNo 7 No

示例：

Dim Tmp as long

Tmp=MsgBox（”是否退出程序。”,35,”退出”）

Msgbox “你选择的按钮值是：”&Tmp