vb常用代码大全

vb常用代码大全 求VB编程常用代码大全?

求VB程序编写常见代码大全?

求VB编程常用代码大全?

1.数值型函数公式:

abs(num): 回到平方根

sgn(num): numgt0 1 num=0 0 numlt0 -1分辨标值正负极

hex(num): 回到十六进制值 立即表明:ampHxx 较大8位

oct(num): 回到八进制值 立即表明:ampOxx 较大8位

sqr(num): 回到平方根 numgt0

int(num): 取整 int(99.8)=99 int(-99.2)=100

fix(num): 取整 fix(99.8)=99 fix(-99.2)=99

round(num,n): 四舍五入取小数位 round(3.14159,3)=3.142 中心点标值四舍五入为近偶取整 round(3.25,1)=3.2

log(num): 取以e为底的多数 numgt0

exp(n): 取e的n次幂 通常用 num^n

sin(num): 三角函数,以倾斜度为值测算 (视角*Pai)/180=倾斜度 con(num) tan(num) atn(num)

2.字符串函数公式:

len(str):测算字符串长短 汉语字符长短也计为一!

mid(str,起始字符,[载入长短]):截取字符串正中间子字符串

left(str,nlen):从左侧起截取nlen长短子字符串

right(str,nlen):从右侧起截取nlen长短子字符串

Lcase(str):字符串转为小写字母

Ucase(str):字符串转为英文大写

trim(str):除去字符串两边空格

Ltrim(str):除去字符串左边空格

Rtrim(str):除去字符串右边空格

replace(str,搜索字符串,取代字符串,[起始字符,取代频次,比较方法]):更换字符串

注:初始值:起始字符 1;取代频次 不分;比较方法 区分大小写(0)

InStr([起始字符,]str,搜索字符串[,比较方法]):检验是否包含子字符串 可选择主要参数需与此同时选 回到起始部位

InStrRev(str,搜索字符串[,起始字符][,比较方法]):反方向检验是否包含子字符串 回到起始部位

space(n):结构n个空格的字符串

string(n,str):结构由n个str第一个字符构成的字符串

StrReverse(str):翻转字符串

split(str,切分字符串[,频次][,比较方法]):以切分字符串为分割标示将字符串变为字符二维数组 可选择主要参数需与此同时选

3.数据信息类型转换函数公式:

Cint(str):变换正数 True -1;False 0;日期 间距1899/12/31日数;时长 早上段 0;在下午段 1;

Cstr(str):日期 导出格式 yyyy/mm/dd;时长 导出格式 Am/Pm hh:mm:ss

Clng(str):与Cin()相近

Cbool(num):num不以零 True;相反 False

Cdate(str):变换日期格式 0:#Am 12:00:00#;正数 间距1899/12/31日数的日期;浮点数 日期+小数时长

Cbyte(num):numlt255 变换为字节数

Csng(str):变换为单精度标值

Cdbl(str):变换为双精度标值

Ccur(str):转化为现钱格式

4.时间函数:

date:取系统软件现阶段日期

time:取系统软件现在时间

now:取系统软件现在时间及日期值 Datetime类型

timer:取现阶段时间距离零点秒值,记时器,可测算时差

DateAdd(间距企业,间距值,日期):测算邻近日期

DateDiff(间距企业,日期一,日期二):测算时差 日期二-日期一

Datepart(间距企业,日期):测算日期的间距企业值

Dateserial(date):导出日期值(按编码序列测算)

Timeserial(time):导出时长值(按编码序列测算)

Datevalue(datetime):取下字符串中日期值

Timevalue(datetime):取下字符串中时长值

weekday(date):测算星期几

MonthName(date):导出月分名

year(datetime):截取年代

month(datetime):截取月份

day(datetime):截取日

hour(datetime):截取钟头

minute(datetime):截取min

second(datetime):截取秒

5.其他函数公式:

Array(unit,..):动态生成二维数组

Asc(str):导出字符串第一个字符的ASCII码

Chr(asc):变换ASCII为字符 Enter:Chr(13)ampChr(10)

Filter(二维数组名字,重要字符串,[,包括][,比较方法]):

将字符串二维数组中带有重要字符串的原素存成全新的二维数组(默认设置) [包括]为false则取不包含的原素

oin(ArrayName):将二维数组中元素连接成字符串

Ubound(ArrayName[,维数]):获得二维数组相对应维数的上界

Lbound(ArrayName[,维数]):获得二维数组相对应维数的下界 一般为0

Randmize n:运行随机数字种籽

Rnd(n):获得随机数字,ngt0或为空,取编码序列下一任意值,nlt0,任意值同样,n=0,生产制造与上一任意值同样的数

取处于A和B中间的任意正数C,公式计算:C=Int((B-A 1)*Rnd A) 标准(BgtA)

程序段和自定义函数

Sub StrSubName Function StrFunName(arg[1],..)

程序段体 函数体

Exit Sub 半途跳出来 Exit Function 半途跳出来

End Sub StrFunName=value 传参

End Function

[call] StrSubName 引入程序段 Var=StrFunName(arg[1],..) 引入函数公式