VB编程常用代码大全

1、VB编程常用代码大全1. 数值型函数：abs(num):返回绝对值sgn(num):num>01;num=00;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.142中点数值四舍五入为近偶取整round(

2、3.25,1)=3.2log(num):取以e为底的对数num>0exp(n):取e的n次幂通常用numAnsin(num):三角函数，以弧度为值计算(角度*Pai)/180=弧度con(num);tan(num);atn(num)2. 字符串函数：len(str)：计算字符串长度中文字符长度也计为一！mid(str起始字符，读取长度)：截取字符串中间子字符串left(str,nlen)：从左边起截取nlen长度子字符串right(strnlen)：从右边起截取nlen长度子字符串Lcase(str)：字符串转成小写Ucase(str):字符串转成大写trim(str)：去除字符串两端空

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

4、串，次数，比较方法)：以分割字符串为分割标志将字符串转为字符数组可选参数需同时选3. 数据类型转换函数：Cint(str)：转换正数True-1；False0；日期距离1899/12/31天数；时间上午段0；下午段1；Cstr(str)：日期输出格式yyyy/mm/dd；时间输出格式Am/Pmhh:mm:ssClng(str)：与Cin()类似Cbool(num)：num不为零True；反之FalseCdate(str)：转换日期格式0：#Am12:00:00#；正数距离1899/12/31天数的日期；浮点数日期小数时间Cbyte(num)：num<255转换为字节Csng(str)：转

5、换为单精度数值Cdbl(str)：转换为双精度数值Ccur(str)：转换为现金格式4. 时间函数：date：取系统当前日期time：取系统当前时间now：取系统当前时间及日期值Datetime类型timer：取当前时间距离零点秒值，计时器，可计算时间差DateAdd(间隔单位,间隔值，日期)：推算相邻日期DateDf(间隔单位,日期一，日期二)：计算时间差日期二-日期一Datepart(间隔单位，日期)：计算日期的间隔单位值Dateserial(date)：输出日期值(按序列计算)Timeserial(time)：输出时间值(按序列计算)Datevalue(datetime):取出字符串中日

6、期值Timevalue(datetime)：取出字符串中时间值weekday(date)：计算星期几MonthName(date)：输出月分名year(datetime)：截取年份month(datetime)：截取月份d町(datetime)：截取日hour(datetime)：截取小时minute(datetime)：截取分钟second(datetime)：截取秒5. 其它函数：Array(unit,.)：动态生成数组Asc(str)：输出字符串第一个字符的ASCII码Chr(asc)：转换ASCII为字符Enter：Chr(13)&Chr(10)Filter(数组名称，关键字符

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