_vb常用内部函数

《_vb常用内部函数》由会员分享，可在线阅读，更多相关《_vb常用内部函数（14页珍藏版）》请在金锄头文库上搜索。

1、VB 我们准备了很多常用的内部函数，供我们在编程时使用。使用函数可以带来很大的方用函数有如下两种方法：(1)如果需要使用返回值，其格式为：变量名=函数名( 参数列表)(2)如果不需要使用返回值，其格式为：函数名 参数列表所谓参数，就是在调用函数时交给函数处理的数据。所渭返回值，就是函数经过一系列运面返回给调用者的值。一、输入输出函数输入输出函数也可以称为交互式函数，是用来输入数据和输出信息的。主要有输入函数 Input 和输出函数 Msgbox，下面将详细介绍这两个函数。Inputbox 函数用于接收用户从键盘输入的数据的函数。此函数的个优点在于：该函数使的是对话框界面，可以提供一个良好的交互

2、环境。其使用格式为：InputBox(提示信息， 标题 ，缺省值)其中，“提示信息”是指该函数弹出的对话框中向用户显示的信息，一般是用以提示用户输入什么内容；“标题”则是这个对话框的标题，它是可以省略的，如果缺省，该对话框的题默认为“工程 l”：“缺省值”则是提供给用户缺省输入的内容，它也是可以省略的。例如我们要输入自己的名字，可以使用如下代码：N = InputBox(请输入您的姓名 , 输入姓名, 张三)这行代码是使用 Inputbox 函数，让用户输入姓名，然后存到变量 N 中去。当用户输入姓名并单击“确定”后，输入的姓名将会被存到变量 N 中去；因为已经提供了缺省值，所以可以不输入任何

3、数据而直接单击“确定”，这时保存的将是“张三”；如果用户单击的是“取消”的话，变量 N 的值将为空。使用该函数输入的任何数据都将被认为是字符型的，如果想要得到其它类型的数据，还需要进行类型转换。Msgbox 函数是以对话框的形式输出信息的函数，它还可以让用户在对话框内进行相应的选择，然后将选择结果返回给程序。该函数的使用格式为：Msgbox(输出信息, 按钮,标题)其中，“输出信息”是要显示的内容或提示用户进行选择的信息；“按钮”是指向用户提供的选择，一般是由“是否”、“重试取消”、“确定取消”等组成的按钮组合，如果缺省，则只有一个“确定”按钮；“标题”则是对话框的标题，如果缺省的话，默认值也

4、为“工程 1。”按钮参数不仅包含提供用户选择的按钮，还可以包含一个用来表示对话框功能的图标以及缺省按钮。这些按钮、图标、缺省按钮都是 VB 的内部常量，有关按钮的常量如下表所示。常 量 名 值 按 钮bOKOnly 0 只 有 确 定 按 钮vbOKCancelvbAbortRetryIgnore12确 定 和 取 消 按 钮终 止 、 重 试 、 忽 略 按 钮VbYesNoCancelVbYesNo34是 、 否 和 取 消 按 钮是 和 否 按 钮vbRetryCancel 5 重 试 和 取 消 按 钮前面提到的图标共有四种，分别用来表示警告、询问批评、消息，右关这些图标的常量表所示。

5、常 量 名vbCritical值16图 标显 示 警 告 图 标VbQuestiOnvbExclamatiOn3248显 示 询 问 图 标 “?”显 示 批 评 图 标 “!”VbInformation 64 显 示 输 出 信 息 “i”另外，有关缺省按钮的常景如下表所示。常 量 名vbDefaultButton1值0作 用第 一 个 按 钮 为 缺 省 按 钮vbDefaultButton2vbDefaultButton3256512第 二 个 按 钮 为 缺 省 按 钮第 三 个 按 钮 为 缺 省 按 钮vbDefaultButton4 768 第 四 个 按 钮 为 缺 省 按 钮

6、在设置“按钮”参数时。只需在以三类中分别选出合适的数值或相应的常量，将数值直接或者将常量用加号连接即可得到“按钮”参数的值。在每一类中选择不同的值会产生不效果，一般情况下最好使常量相加的形式表示，这可以提高程序的可读性。当用户选择对话框中的某个按钮时，MsgBox 函数将返回一个值，以供程序根据用户的选择来进行相应的操作。这个返回值也是 VB 的内部常量。常 量 名VbOK值1按 钮选 择 了 “确 定 ”按 钮vbCancelvbAbort VbRetry234选 择 了 “取 消 ”按 钮选 择 了 “终 止 ”按 钮选 择 了 “重 试 ”按 钮VbIgnore 0 选 择 了 “忽 略

7、 ”按 钮VbYesvbNo67选 择 了 “是 ”按 钮选 择 了 “否 ”按 钮下面我们来看这样一段程序代码：Private Sub Form Load()On Error GoTo XXDim a As String,b AS IntegerA=Dir(“a:abc.Txt”)Exit Sub Xx:b=MsgBox(读取软盘时出错，请插入软盘后重试 , vbCritical + vbAbortRetryIgnore + vbDefaultButton2, 错误提示 )If b=vbAbort ThenEndElseif b=vbRetry ThenResumeElseResume Ne

8、xtEndIfEnd Sub在上面这个程序中，“On Error GoTo XX是错误捕获语句，它的含义是当出现错误时程序将转到行标号指定的语句处去执行，关于错误捕获将会在第五章的最后一节中详细介绍；“Dir”是一个查找文件的函数，这将在后面的内容中介绍；“Exit Sub”是跳出过程的语句；“End”是退出程序的语句；“Resume”是用于返回出错的地方继续执行程序；“Resume Next”是返回出错语句的下一个语句处继续执行。运行这个程序时，若软驱中没有软盘，将会出现“错误提示”对话框，这时程序将根据用户选择进行下一步操作。由上面的代码可以看出，当选择“终止”按钮时，将会结束程序运行；若

9、选择的是“重试”按钮，则再次读取软盘：否则的活，则执于读取软盘后面的语句。二、类型转换函数当我们要对不同类型的变量进行操作时，就需要先进行类型转换。主要的类型转换函数可下表。函 数 名CInt作 用将 表 达 式 转 换 为 整 型 的CLngCSng将 表 达 式 转 换 为 长 整 型 的将 表 达 式 转 换 为 单 精 度 浮 点 型 的CDblCdate将 表 达 式 转 换 为 双 精 度 浮 点 型 的将 表 达 式 转 换 为 日 期 型 的CStrCBool将 表 达 式 转 换 为 字 符 型 的将 表 达 式 转 换 为 布 尔 型 的CVar 将 表 达 式 转 换 为

10、 变 体 型 的三、数学函数这里所说的数学函数是用来完成特定数学运算的函数，与实际上数学里的函数有些类似。所有的数学函数的参数和返回值部是数值型的。主要的数学函数参见下表。函数名Abs作 用返 回 绝 对 值 SqrRound返 回 平 方 根返 回 参 数 四 舍 五 入 后 的 值FixInt若 参 数 是 正 数 ， 则 返 回 该 数 的 整 数 总 数 ； 若 参 数 是 负 数 ， 则 返 回 一 个 不小 于 参 数 的 最 小 整 数若 参 数 是 正 数 ， 则 返 回 该 数 的 整 数 总 数 ； 若 参 数 是 负 数 ， 则 返 回 个 不 大于 参 数 的 最 大

11、整 数sgn 返 回 参 数 的 符 号 ExpLog返 回 以 e 为 底 的 指 数 的 值返 回 以 e 为 底 的 对 数 的 值SinCos返 回 参 数 的 正 弦 值返 回 参 数 的 余 弦 值TanAtn返 回 参 数 的 正 切 值返 回 参 数 的 余 切 值Rnd 返 回 一 个 0 至 1 之 间 的 随 机 数 下面详细说明一下各数学函数。以上各数学函数除“Round”函数可以有两个参数，其它函数只需一个参数。其中，“Round”函数的第一个参数是要四舍五人的小数，第二个参数是可选的，用来指定保留到小数点后面几位，若缺省此项，则不保留小数部分。例如：Round(9.

12、1415926，3)的值为 9.142，Round(7.8)的值为 8，Round(-6.3)的值为-6，Round-6.8)的值为-7。如果参数是正数，函数“Fix”和“Int”的返回值是样的；如果参数是负数，对于相同的参数这两个函数的返回值相差 1。例如：Fix(7.4)、Int(7.4)、Fix(7.8)、Int(7.8)的值都是 7；而 Fix(-7.4)、Int(-7.4) 、Fix(-7.8) 、Int(-7.8)的值分别是-7、-8、-7、-8。对于“Sgn”函数，若参数是正数，则返回 1；若参数是负数，则返回1；若参数为 0，则返回 0。例如：Sgn(8)、Sgn(-8)、Sg

13、n(0)的值分别是 1、-1、0。这里的“Log”并不是数学里的对数函数，而是自然对数函数。如果要求以 x为底 y 的对数，则需要用换底公式以 Log(y)Log(x) 的形式去求。例如求以 20 为底 3 的对数，要写成 Log(3)Log(20) 的形式。对“Sin、Cos、Tan 、Atn”这四个三角函数，它们的参数是弧度制的，使用时要注意把角度化为弧度。“Rnd”是产生随机数的函数。所谓随机数，就是随机产生的无实际意义的数。在实际编程中，我们通常需要产生一组某个范围内的随机整数，但“Rnd”函数本身只能产生 0 至 l 之间的随机数，这时我们可以通过如下方法取得。例如要产生 x 至 y

14、 之间的随机整数，可用 Int(Rnd*(b-a+1)+a 的形式来产生。例如要在窗体上显示 10 个 7 至 25 之间的随机整数，可用如下代码：for i=1 to 10print Int(rnd*25-7+1)+7;next i另外还要注意，如果要使用“Rnd”函数，则必须在程序的启动部分(一般是启动窗体的 Load 过程或 Sub Main 子程序) 使用“Randomize”函数来初始化随机数发生器。否则，每次程序时产生的都是相同的随机数列四、字符串函数字符串函数将串函数是用来对字符串进行处理或操作的函数。主要有如下这些：（1） Len：用来返回字符串的长度(即字符串中字符的个数)。

15、例如：Len(“format)、Len (“Internet)的值分别为 6 和 8。（2） Left：从某字符串的左边截取子字符串。其使用格式为：Left(原字符串，截取长度)该函数有两个参数，第一个是被截取的原字符串，第二个是截取的字符个数。例如：Left “format”,3)是从字符串 “format”左边截取 3 个字符，返回值是“for”。（3）Right：与 Left 正好相反，它是从字符串的右边截取子字符串，使用方法与 Left 一样。 Right(“format”,3)的值为“mat。（4）Mid：是从中间截取子字符串，是 Left 函数和 Right 函数的综合。该函数的使

16、用格式为：Mid(字符串，启始位置，截取个数) 例如：Mid(“format”,3,2)，表示从该字符串的第三个字符处截取 2 个字符，其值为“rm” (5)StrReverse：返回与原字符串反向的字符串。例如：StrReverse( “format)的值为“tamrof”。(6)LTrim：清除字符串左边的空格。例如：LTrim(“ format”)的值为“format”(7)RTrim：清除字符串右边的空格。例如：LTrim(“ format “)的值为“ format(8)Trim：清除字符串两边的空格。例如：LTrim( “ format ”)的值为“format”(9)Space：返回一个由指定空格组成的字符串。注意该返回值与空字符串(“”)并不相同前者是由空格组成的字符串，而后者中不包含任何内容。例如：Space(“ 5”)的值为“ ”(10)String：返回一个由指定字符组成