VB编程常用代码大全参考模板

1、VB编程常用代码大全1.数值型函数：abs(num): 返回绝对值sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负hex(num): 返回十六进制值 直接表示：&Hxx 最大8位oct(num): 返回八进制值 直接表示：&Oxx 最大8位sqr(num): 返回平方根 num>0int(num): 取整 int(99.8)=99; int(-99.2)=100fix(num): 取整 fix(99.8)=99; fix(-99.2)=99round(num,n): 四舍五入取小数位 round(3.14159,3)=3.

2、142 中点数值四舍五入为近偶取整 round(3.25,1)=3.2log(num): 取以e为底的对数 num>0exp(n): 取e的n次幂 通常用 numnsin(num): 三角函数，以弧度为值计算 (角度*Pai)/180=弧度 con(num); tan(num); atn(num)2.字符串函数：len(str)：计算字符串长度 中文字符长度也计为一！mid(str,起始字符,读取长度)：截取字符串中间子字符串left(str,nlen)：从左边起截取nlen长度子字符串right(str,nlen)：从右边起截取nlen长度子字符串Lcase(str)：字符串转成小写U

3、case(str)：字符串转成大写trim(str)：去除字符串两端空格Ltrim(str)：去除字符串左侧空格Rtrim(str)：去除字符串右侧空格replace(str,查找字符串,替代字符串,起始字符,替代次数,比较方法)：替换字符串注：默认值：起始字符 1；替代次数 不限；比较方法 区分大小写（0）InStr(起始字符,str,查找字符串,比较方法)：检测是否包含子字符串 可选参数需同时选 返回起始位置InStrRev(str,查找字符串,起始字符,比较方法)：反向检测是否包含子字符串 返回起始位置space(n)：构造n个空格的字符串string(n,str)：构造由n个str第一

4、个字符组成的字符串StrReverse(str)：反转字符串split(str,分割字符串,次数,比较方法)：以分割字符串为分割标志将字符串转为字符数组 可选参数需同时选1 / 33.数据类型转换函数：Cint(str)：转换正数 True -1；False 0；日期 距离1899/12/31天数；时间 上午段 0；下午段 1；Cstr(str)：日期 输出格式 yyyy/mm/dd；时间 输出格式 Am/Pm hh:mm:ssClng(str)：与Cin()类似Cbool(num)：num不为零 True；反之 FalseCdate(str)：转换日期格式 0：#Am 12:00:00#；正

5、数 距离1899/12/31天数的日期；浮点数 日期小数时间Cbyte(num)：num<255 转换为字节Csng(str)：转换为单精度数值Cdbl(str)：转换为双精度数值Ccur(str)：转换为现金格式4.时间函数：date：取系统当前日期time：取系统当前时间now：取系统当前时间及日期值 Datetime类型timer：取当前时间距离零点秒值，计时器，可计算时间差DateAdd(间隔单位,间隔值,日期)：推算相邻日期DateDiff(间隔单位,日期一,日期二)：计算时间差 日期二-日期一Datepart(间隔单位,日期)：计算日期的间隔单位值Dateserial(dat

6、e)：输出日期值（按序列计算）Timeserial(time)：输出时间值（按序列计算）Datevalue(datetime)：取出字符串中日期值Timevalue(datetime)：取出字符串中时间值weekday(date)：计算星期几MonthName(date)：输出月分名year(datetime)：截取年份month(datetime)：截取月份day(datetime)：截取日hour(datetime)：截取小时minute(datetime)：截取分钟second(datetime)：截取秒5.其它函数：Array(unit,.)：动态生成数组Asc(str)：输出字符串第

7、一个字符的ASCII码Chr(asc)：转换ASCII为字符 Enter：Chr(13)&Chr(10)Filter(数组名称,关键字符串,包含,比较方法)：将字符串数组中含有关键字符串的元素存成新的数组（默认） 包含为false则取不包含的元素oin(ArrayName)：将数组中元素连成字符串Ubound(ArrayName,维数)：取得数组相应维数的上界Lbound(ArrayName,维数)：取得数组相应维数的下界 一般为0Randmize n：启动随机数种子Rnd(n)：取得随机数，n>0或为空，取序列下一随机值，n<0，随机值相同，n=0，生产与上一随机值相同的数取介于A和B之间的随机正数C，公式：C=Int(B-A+1)*Rnd+A) 条件（B>A）子程序和自定义函数Sub StrSubName Function StrFunName(arg1,.)子程序体 函数体Exit