VB函数汇总.doc

VB函数汇总2008-06-25 08:31常用内部函数: (资料来源：eNet网络学院 整理人:”冰+.河 .,附带例子，无语法，只限新手） 经初步检查，改正一些bug,如果阅读时发现错误，请Q我 :274625988数学函数： fix(x)取整只截取小数部分 int(x) 求不大于指定值的最大整数 abs(x) 求绝对值 sgn(x) 判断整数，负数，还是零整数，负数，零 sqr(x) 求平方根 log(x) 自然对数 sin(x),tan(x),cos(x),atn(x)注意：三角函数括号内数值为弧度！ 例子:(上面几个函数用法相同) dim a as string private sub command1_click() a = val(text1.text) msgbox 函数值为： & Fix(a) 字符串函数：(用于字符串的处理) Trim(x)删除空格 LTrim(x) 删除左端空格 RTrim(x) 删除右端空格 left(x) 从左端开始截取N个字节的字符串 right(x) 从右端开始截取N个字节的字符串 mid(x) 从N个位置开始截取N个字节的字符串 例子： dim a as string private sub command1_click() a=text1.text msgbox 函数值为： & left(a,6)/mid(a,2,6)/right(s,6) len(x) 字符串的长度 space(x) 空格 Ucase(x) 大写 Ucase(x) 小写 val(x) 文本转换成数值 例子： private sub command1_click() a = val(text1.text) b = val(text2.text) msgbox结果为: & a+b - str(x) 数值转换成字符串 例子： dim a as variant private sub command1_click() a=val(text1.text) msgbox 转换后的 & str(a) - instr(x) 在第一个字符串中找第二个字符串，如果找到了说明第二个字符串是第一个字符串的子串，那么将返回第二个字符串在第一个字符串首次出现的位置(返回)，但是如果没有找到，则返回，因为第二个字符串并不是第一个字符串的子串。 例子： private sub command1_click() a = text1.text b = text2.text msgbox结果为: & instr(a,b) - asc(x) 得到字符串首字符的ascii码 例子： dim a as variant private sub command1_click() a=text1.text msgbox Ascii码为： & Asc(a) - chr(x)得到以数值为acsii码的字符 例子： dim a as variant private sub command1_click() a=val(text1.text) msgbox 字符为： & chr(a) - rnd(x) 随机函数，用于产生一个随机数，随机数产生时，需要一个随机种子，随机种子不同，产生的随 机数也就不同,本函数产生的单精度随机数 例子： private sub command1_click() dim a as string a=val(text1.text) msgbox 产生的随机数是： & rnd(a) 注意：数值不改，随机数也不变！ 数据类型转换函数： cint(x)将数值表达式的值转换成integer类型的，如果表达式的值为小数，就将小数部分的第一位进 行四舍五入 例子： private sub command1_click() dim a as string a = val(text1.text) msgbox 转换后的结果是： & cint(a) - ccur(x) 将数值表达试的值转换成货币类型，如果表达式的小数位数多于四位，则转换后只保留四位小 数，且自动讲第五位小数进行四舍五入 作者： 冰河玩VB 2008-2-21 14:31 回复此发言 -2 我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看啦） 例子同cint(x) - cdbl(x) 将文本框中的数据转换成双精度数据 例子同cint(x) - clng(x) 将文本框中的数据转换成长整型数据 例子同cint(x) - csng(x) 将文本框中的数据转换成单精度数据 例子同cint(x) - cvar(x) 将文本框中的数据转换成变体型(variant)数据 例子同cint(x) - cstr(x) 将文本框中的数据转换成字符串数据 例子同cint(x) - cdate(x) 将文本框中的数据转换成日期型数据 例子同cint(x) 日期和时间函数：(对日期和时间的操作) now()返回当前系统的日期和时间字符串（格式为：年月日，时分秒） 例子： msgbox 当前日期时间为： & now() - date()返回当前系统的日期字符串（格式为：年月日) 例子同now() - time() 返回当前系统的时间字符串（时分秒） 例子同now() - year(x)返回日期字符串中的年份（结果为整型） 例子： private sub command1_click() dim a as string a = cdate(text1.text) msgbox 当前年份为： & year(a) - month(x)返回日期字符串中的月份（结果为整型） 例子同year(x) - day(x)返回日期字符串中的日子（结果为整型） 例子同year(x) - weekday(x) 求日期中的星期，返回结果为整型（1-星期日,2-星期一,） 例子同year(x) - hour(x) 求时间中的小时返回结果为整型 例子同year(x)不需要cdate转换 - minute(x) 求时间中的分钟返回结果为整型 例子同year(x)不需要cdate转换 - second(x) 求时间中的秒的返回结果为整型 例子同year(x)不需要cdate转换 输入，输出函数： tab(x)在print方法中使用将输出的内容定位到指定的列上 例子： private sub form_click() print 姓名; tab(10): 籍贯 - spc(x)在print方法中使用，不能用于字符串的运算产生指定数量的空格 例子同tab(x) - space(x)在print方法中使用，可以用于字符串的运算产生指定数量的空格 例子同tab(x) - format在print方法中使用将表达式按照指定的形式进行输出 private sub form_click() print format(123456.365,#,#) end sub - inputbox 产生一个输入框 private sub form_click() dim a as string a =Inputbox(请输入内容,输入框,hello) print a end sub - msgbox 产生一个消息框5 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看 rnd(x) 随机函数，用于产生一个随机数，随机数产生时，需要一个随机种子，随机种子不同，产生的随 机数也就不同,本函数产生的单精度随机数 例子： private sub command1_click() dim a as string a=val(text1.text) msgbox 产生的随机数是： & rnd(a) 注意：数值不改，随机数也不变！ -谬也 Randomize是设定随机种子，Rnd(x)中的x是随机序列的位置。也就是说Rnd(1)生成下一个随机数，Rnd(0)则重新生成与前一次一样的数，Rnd(-1)生成前前随机数。 作者： pigpag 2008-2-21 20:01 回复此发言 -6 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看 视频教程里是那么写的，我照那个总结的，是他讲错了么？ 作者： 冰河玩VB 2008-2-21 20:02 回复此发言 -7 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看 学习了一个随机数还有那么深入的研究 作者： tzwsoho 2008-2-21 21:10 回复此发言 -8 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看 果然,测试后发觉小于等于零的?值生成的Rnd(?)每次都是一样的,大于零的每次都不同 pigpag 果然是高人 作者： tzwsoho 2008-2-21 21:13 回复此发言 -9 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看 To 6L: 实践出真知，你可以试试看吧，我也不确保自己是对的Randomize 1 Rnd -1? Rnd(1),Rnd(0),Rnd(1),Rnd(0),Rnd(-1)Randomize 2 换种子 Rnd -1? Rnd(1),Rnd(0),Rnd(1),Rnd(0),Rnd(-1)Randomize 1 换回来 Rnd -1? Rnd(1),Rnd(0),Rnd(1),Rnd(0),Rnd(-1)运行这一大段，看看效果如何 作者： pigpag 2008-2-21 21:14 回复此发言 -10 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看 按照八楼的说法我只说对了一半，也许，Rnd(-1)一般用来更新种子的初始化 因为 Randomize 种子 ? Rnd(1) 这两句不能保证同一个种子就是同一个值 譬如 Randomize 1 Print Rnd(1) Randomize 1 Print Rnd(1)两个值不同的。再如：Randomize 1 Rnd -1 Print Rnd(1) Randomize 1 Rnd -1 Print Rnd(1)应该就是一样的了 作者： pigpag 2008-2-21 21:16 回复此发言 -11 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看 哇，我现在就进行第一次修订，嘿嘿 特别鸣谢：pigpag 作者： 冰河玩VB 2008-2-21 21:35 回复此发言 -12 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看 第一次加精，好兴奋，我会继续努力的，嘿 作者： 冰河玩VB 2008-2-21 21:41 回复此发言 -13 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看 很好，鼓励一下，哈哈 作者： 尐虎 2008-2-21 21:55 回复此发言 -14 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看 这么好的帖子肯定会加精的啦_加油BTW我不是斑竹 作者： pigpag 2008-2-21 22:03 回复此发言 -15 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看 呀呀，里面谬误的地方还真不少还有 作者： pigpag 2008-2-21 22:05 回复此发言 -16 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看 mid(x) 从N个位置开始截取N个字节的字符串 这句有点不明确，不过一般都知道，没啥关系将文本框中的数据转换成双精度数据 这样说有点误导吧，不过这个也没太大问题问题最大的是CInt和CCur中对于舍去多余小数的操作。楼主试试： ? CInt(3.5) ? CInt(4.5) 你猜个答案，再运行看看结果 作者： pigpag 2008-2-21 22:09 回复此发言 -17 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看 蒙下 3.5 4.5 作者： 冰河玩VB 2008-2-21 22:13 回复此发言 -18 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看 3.5居然变成 4.5居然还是 我哭了 作者： 冰河玩VB 2008-2-21 22:15 回复此发言 -19 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看 pigpag解释下好么 还有什么问题，尽量提，我要进行第一次修订，以免我以后用的时候错，那个时候可是很烦的 作者： 冰河玩VB 2008-2-21 22:17 回复此发言 -20 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看 我能发现的就这些啦那个不是四舍五入，叫四舍六入五留双，是科学实验数据处理的方法。 作者： pigpag 2008-2-21 22:54 回复此发言 -21 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看 四舍六入五留双，即当舍或入位大于或小于五时按四舍五入来处理，而当舍或入位等于五时，就要看前面一位是什么，根据奇进偶不进，它总是返回一个偶数值。虽然16楼的答案我都知道，不过真不知道是这样得来的，原来世界上还有个叫“四舍六入五留双”的东西，又学到了谢谢pigpag 作者： tzwsoho 2008-2-22 00:05 回复此发言 -22 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看 我四舍五入是用formatnumber来实现的，虚无极 作者： 222.216.2.* 2008-2-22 00:42 回复此发言 -23 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看 Round函数可以 作者： pigpag 2008-2-22 01:19 回复此发言 -24 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看 第一次修订，已经完成，还有什么问题么？各位我正在检查 作者： 冰河玩VB 2008-2-22 08:51 回复此发言 -25 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看 formatnumber这是一个好函数. _ 作者： VB妮可 2008-2-22 08:52 回复此发言 -26 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看 那我把这个也写在里面好了 formatnumber是返回一个数字格式的表达式 好象应该属于数学函数中的吧 31 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看 常用内部函数:(第一次修订!) (资料来源：eNet网络学院(不咋地) 整理人:”冰+.河 .,附带例子，有些语法） 特别鸣谢:pigpag,tzwsoho ,尐虎,VB妮可,烟花飘飘数学函数： fix(x)取整只截取小数部分 int(x) 求不大于指定值的最大整数 abs(x) 求绝对值 sgn(x) 判断整数，负数，还是零整数，负数，零 sqr(x) 求平方根 log(x) 自然对数 sin(x),tan(x),cos(x),atn(x)注意：三角函数括号内数值为弧度！ 例子:(上面几个函数用法相同) dim a as string private sub command1_click() a = val(text1.text) msgbox 函数值为： & Fix(a) 字符串函数：(用于字符串的处理) Trim(x)删除空格 LTrim(x) 删除左端空格 RTrim(x) 删除右端空格 left(x) 从左端开始截取N个字节的字符串 right(x) 从右端开始截取N个字节的字符串 mid(x) 从某个位置开始截取N个字节的字符串 例子： dim a as string private sub command1_click() a=text1.text msgbox 函数值为： & left(a,6)/mid(a,2,6)/right(s,6) len(x) 字符串的长度 space(x) 空格 Ucase(x) 大写 Ucase(x) 小写 val(x) 文本转换成数值 例子： private sub command1_click() a = val(text1.text) b = val(text2.text) msgbox结果为: & a+b - 作者： 冰河玩VB 2008-2-24 20:17 回复此发言 -32 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看 常用内部函数:(第一次修订!) (资料来源：eNet网络学院(不咋地) 整理人:”冰+.河 .,附带例子，有些语法） 特别鸣谢:pigpag,tzwsoho ,尐虎,VB妮可,烟花飘飘数学函数： fix(x)取整只截取小数部分 int(x) 求不大于指定值的最大整数 abs(x) 求绝对值 sgn(x) 判断整数，负数，还是零整数，负数，零 sqr(x) 求平方根 log(x) 自然对数 sin(x),tan(x),cos(x),atn(x)注意：三角函数括号内数值为弧度！ 例子:(上面几个函数用法相同) dim a as string private sub command1_click() a = val(text1.text) msgbox 函数值为： & Fix(a) 字符串函数：(用于字符串的处理) Trim(x)删除空格 LTrim(x) 删除左端空格 RTrim(x) 删除右端空格 left(x) 从左端开始截取N个字节的字符串 right(x) 从右端开始截取N个字节的字符串 mid(x) 从某个位置开始截取N个字节的字符串 例子： dim a as string private sub command1_click() a=text1.text msgbox 函数值为： & left(a,6)/mid(a,2,6)/right(s,6) len(x) 字符串的长度 space(x) 空格 Ucase(x) 大写 Ucase(x) 小写 val(x) 文本转换成数值 例子： private sub command1_click() a = val(text1.text) b = val(text2.text) msgbox结果为: & a+b - str(x) 数值转换成字符串 例子： dim a as variant private sub command1_click() a=val(text1.text) msgbox 转换后的 & str(a) - instr(x) 在第一个字符串中找第二个字符串，如果找到了说明第二个字符串是第一个字符串的子串，那么将返回第二个字符串在第一个字符串首次出现的位置(返回)，但是如果没有找到，则返回，因为第二个字符串并不是第一个字符串的子串。 例子： private sub command1_click() a = text1.text b = text2.text msgbox结果为: & instr(a,b) - asc(x) 得到字符串首字符的ascii码 例子： dim a as variant private sub command1_click() a=text1.text msgbox Ascii码为： & Asc(a) - chr(x)得到以数值为acsii码的字符 例子： dim a as variant private sub command1_click() a=val(text1.text) msgbox 字符为： & chr(a) - Randomize是设定随机种子，Rnd(x)中的x是随机序列的位置。也就是说Rnd(1)生成下一个随机数，Rnd(0)则重新生成与前一次一样的数，Rnd(-1)生成前前随机数。 例子： Randomize 1 Rnd -1 ? Rnd(1),Rnd(0),Rnd(1),Rnd(0),Rnd(-1) Randomize 2 换种子 Rnd -1 ? Rnd(1),Rnd(0),Rnd(1),Rnd(0),Rnd(-1) Randomize 1 换回来 Rnd -1 ? Rnd(1),Rnd(0),Rnd(1),Rnd(0),Rnd(-1) 数据类型转换函数： cint(x)将数值表达式的值转换成integer类型的，如果表达式的值为小数，就将小数部分的第一位进行四舍六入五留双(类似的的还有Round) 例子： private sub command1_click() dim a as string a = val(text1.text) msgbox 转换后的结果是： & cint(a) - FormatNumber(原数字，小数点后的位数)四舍五入法 作者： 冰河玩VB 2008-2-24 20:18 回复此发言 -33 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看 - Round(原数字，小数点后的位数)四舍六入五留双,；类似的还有CInt - ccur(x) 将数值表达试的值转换成货币类型，如果表达式的小数位数多于四位，则转换后只保留四位小数，且自动将第五位小数进行四舍五入(四舍六入五留双) 例子同cint(x) - cdbl(x) 将文本框中的数据转换成双精度数据 例子同cint(x) - clng(x) 将文本框中的数据转换成长整型数据 例子同cint(x) - csng(x) 将文本框中的数据转换成单精度数据 例子同cint(x) - cvar(x) 将文本框中的数据转换成变体型(variant)数据 例子同cint(x) - cstr(x) 将文本框中的数据转换成字符串数据 例子同cint(x) - cdate(x) 将