VB6常用函数大全
vb6.0函数大全分析
Abs 函数返回参数的绝对值,其类型和参数相同。
语法Abs(number)必要的number参数是任何有效的数值表达式,如果number 包含Null,则返回Null,如果number 是未初始化的变量,则返回0。
说明一个数的绝对值是将正负号去掉以后的值。
例如,ABS(-1) 和 ABS(1) 都返回 1。
Abs 函数示例本示例使用Abs函数计算数的绝对值。
Dim MyNumberMyNumber = Abs(50.3) ' 返回 50.3。
MyNumber = Abs(-50.3) ' 返回 50.3。
Array 函数返回一个包含数组的Variant。
语法Array(arglist)所需的arglist参数是一个用逗号隔开的值表,这些值用于给Variant所包含的数组的各元素赋值。
如果不提供参数,则创建一个长度为0 的数组。
说明用来表示数组元素的符号由变量名、圆括号以及括号中的所需元素的索引号组成。
在下面的示例中,第一条语句创建一个Variant 的变量 A。
第二条语句将一个数组赋给变量 A。
最后一条语句将该数组的第二个元素的值赋给另一个变量。
Dim A As VariantA = Array(10,20,30)B = A(2)使用Array函数创建的数组的下界受Option Base语句指定的下界的决定, 除非Array是由类型库(例如VBA.Array )名称限定。
如果是由类型库名称限定,则Array不受Option Base的影响。
注意没有作为数组声明的Variant 也可以表示数组。
除了长度固定的字符串以及用户定义类型之外,Variant 变量可以表示任何类型的数组。
尽管一个包含数组的Variant 和一个元素为Variant 类型的数组在概念上有所不同,但对数组元素的访问方式是相同的。
Array 函数示例该示例使用Array函数来返回一个包含Variant 的数组。
Dim MyWeek, MyDayMyWeek = Array("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun")'返回值假设下界的设置为 1(使用 Option Base' 语句)。
【VB6.0】VB常用术语内部函数
【VB6.0】VB常用术语/内部函数常用术语项目(Project):是用户创建的文件集合,这个集合包括用户的Windows 应用程序。
控件(Control):是Toolbox窗口中用户置于窗体上的工具,用于配合用户控制程序流程。
代码(Code):是所写的编程语句的另一个名字。
像素(Pixel):代表图形元素,表示监视器上最小的可寻址的图形点。
全局变量(Global Variable):就是在整个模块内或整个应用程序内均可使用的变量。
函数(Function):是一个例程,接受零个、一个或多个参数并根据这些参数返回一个结果。
死循环(Infinite Loop):是一个永不终止的循环。
语法错误(Syntax Error):是由于拼错一条命令或使用不正确的语法引起的一种错误。
消息框(Message Box):是为向用户提供信息而显示的对话框。
循环(Loop):就是一组重复执行的程序指令集。
赋值语句(Assignment Statement):是用来给控件、变量或其他对象赋值的程序语句。
结构化程序设计(Structured Programming):是一种程序设计方法,用它来把长程序分成几个小过程,尽可能分得详细一些。
调用过程(Calling Procedure):是触发其他过程执行的过程。
被调用过程(Called Procedure):是由其他过程调用的过程。
引用传递(By Reference):是一种传递值并允许被调用过程修改这些值的方法。
它也叫做通过地址传递(By Address)。
值传递(By Value):是一种传递值并保护调用过程的传递数据,因而被调用过程不能改变此数据的方法。
1 类型转换函数1、Int(x):求不大于自变量x的最大整数2、Fix(x):去掉一个浮点数的小数部分,保留其整数部分3、Hex$(x):把一个十进制数转换为十六进制数4、Oct$(x):把一个十进制数转换为八进制数5、Asc(x$):返回字符串x$中第一个字符的ASCII字符6、CHR$(x):把x的值转换为相应的ASCII字符7、Str$(x):把x的值转换为一个字符串8、Cint(x):把x的小数部分四舍五入,转换为整数9、Ccur(x):把x的值转换为货币类型值,小数部分最多保留4 位且自动四舍五入10、CDbl(x):把x值转换为双精度数11、CLng(x):把x的小数部分四舍五入转换为长整数型数12、CSng(x):把x值转换为单精度数13、Cvar(x):把x值转换为变体类型值14、VarPtr(var):取得变量var的指针²数学函数1、Sin(x):返回自变量x的正弦值2、Cos(x): 返回自变量x的余弦值3、Tan(x): 返回自变量x的正切值4、Atn(x): 返回自变量x的反正切值5、Abs(x): 返回自变量x的绝对值6、Sgn(x): 返回自变量x的符号,即当x为负数时,返回-1;当x为0时,返回0;当x为正数时,返回17、Sqr(x):返回自变量x的平方根,x必须大于或等于08、Exp(x):返回以e为底,以x为指数的值,即求e的x次方²日期与时间函数1、Day(Now):返回当前的日期2、WeekDay(Now):返回当前的星期3、Month(Now):返回当前的月份4、Year(Now):返回当前的年份5、Hour(Now):返回小时(0~23)6、Minute(Now):返回分(0~59)7、Second(Now):返回秒(0~59)²随机数函数1、Rnd[(x)]:产生一个0~1之间的单精度随机数2、Randomize:Rnd[(x)] 功能同上,不过更好²字符串函数1、LTrim$(字符串):去掉字符串左边的空白字符2、Rtrim$(字符串):去掉字符串右边的空白字符3、Left$(字符串,n):取字符串左部的n个字符4、Right$(字符串,n):取字符串右部的n个字符5、Mid$(字符串,p,n):从位置p开始取字符串的n个字符6、Len(字符串):测试字符串的长度7、String$(n,字符串):返回由n个字符组成的字符串8、Space$(n):返回n个空格9、InStr(字符串1,字符串2):在字符串1中查找字符串210、Ucase$(字符串):把小写字母转换为大写字母11、Lcase$(字符串):把大写字母转换为小写字母²窗体输入输出函数1、Print(字符串):在窗体输出字符串,可以用”&”对变量进行连接后输出2、Tab(n):把光标移到该行的n开始的位置3、Spc(n):跳过n个空格4、Cls:清除当前窗体内的显示内容5、Move 左上角x,左上角y,宽度,高度:移动窗体或控件6、InputBox(prompt,…):跳出一个数据输入窗口,返回值为该窗口的输入值7、MsgBox(msg,[type]…):跳出一个提示窗口²文件操作函数1、Open 文件名[For方式] [Access存取类型] [锁定] AS [#]文件号[Len=记录长度]功能:为文件的输入输出分配缓冲区,并确定缓冲区所使用的存取方式说明:1) 方式:指定文件的输入输出方式,可选,默认是Random,可以是以下值a、Output:指定顺序输出方式,将覆盖原有内容b、Input:指定顺序输入方式c、Append:指定顺序输出方式,在文件未尾追加内容d、Random:指定随机存取方式,也是默认方式,在Random方式时,如果没有Access 子句,则在执行Open语句时,VB将按下列顺序打开文件:读/写、只读、只写e、指定二进制文件。
VB6常用函数大全
VB常用函数大全现在的编程软件像VB,C++等,大多自带功能很强的函数库,可以很省力得完成各种功能。
很多时候,想不起来实现某个功能的函数或函数格式,导致编程大费周折。
作为一个编程人员,我对此深有体会。
因此,特地准备了几期VB常用函数的介绍,供大家学习或参考。
有说的不当之处,也欢迎在本网站的论坛中提出,大家学习。
(一)类型转换类函数1、CType(X)[格式]:P=CBool(X) 将X转换为“布尔”(Boolean)类型P=CByte(X) 将X转换为“字节”(Byte)类型P=CCur(X) 将X转换为“金额”(Currency)类型P=CDate(X) 将X转换为“日期”(Date)类型P=CDbl(X) 将X转换为“双精度”(Double)类型P=CHr(X) 返回字符码对应的字符P=CInt(X) 将X转换为“整型”(Integer)类型P=CLng(X) 将X转换为“长整型”(Long)类型P=CSng(X) 将X转换为“单精度”(Single)类型P=CStr(X) 将X转换为“字符串”(String)类型P=Cvar(X) 将X转换为“变体型”(Variant)类型P=CVErr(X) 将X转换为Error值[ 范例]:(1) CStr(13)+CStr(23) 数值转换成字符串后,用“+”号连接,结果:1323(2) CInt("12")+12 字符串转换成整型后与12相加,结果:24(3) P=CInt(True) 输出结果为-1,布尔值与数值的转换时要注意,布尔值只有True和False,其中True在内存中为-1,False存为0(4) CBool(-0、001) 输出结果为True。
将数值转换为布尔型时,等于0的数值将得到False,不等于0的数值得到True2、Int(X),Fix(X):取X的整数值[格式]:P=Int(X) 取<=X的最大整数值P=Fix(X) 取X的整数部分,直接去掉小数[范例]:(1) Int(-54、6) 结果为-55,取<=-54、6的最大整数(2) Fix(54、6) 结果为54,取整数并直接去掉小数(二)常用数学函数[格式]:1、Abs(N) 取绝对值例:Abs(-3、5) 结果:3、52、Cos(N) 余弦函数例:Cos(0) 结果:13、Exp(N) e为底的指数函数例:Exp(3) 结果:20、0684、Log(N) 以e为底的自然对数例:Log(10) 结果:2、35、Rnd[(N)] 产生随机数例:Rnd 结果:0--1之间的数6、Sin(N) 正弦函数例:Sin(0) 结果:07、Sgn(N) 符号函数说明:取正负号。
vb6.0入门代码
vb6.0入门代码qweasdzxc1.数值型函数: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.142 中点数值四舍五入为近偶取整 round(3.25,1)=3.2log(num): 取以e为底的对数 num>0exp(n): 取e的n次幂通常用 num^nsin(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:ssClng(str):与Cin()类似Cbool(num):num不为零 True;反之 FalseCdate(str):转换日期格式0:#Am 12:00:00#;正数距离1899/12/31天数的日期;浮点数日期+小数时间Cbyte(num):num<255 转换为字节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):截取分钟second(datetime):截取秒5.其它函数:Array(unit,..):动态生成数组Asc(str):输出字符串第一个字符的ASCII码Chr(asc):转换ASCII为字符 Enter:Chr(13)&Chr(10) Filter(数组名称,关键字符串,[,包含][,比较方法]):将字符串数组中含有关键字符串的元素存成新的数组(默认)[包含]为false则取不包含的元素oin(ArrayName):将数组中元素连成字符串Ubound(ArrayName[,维数]):取得数组相应维数的上界Lbound(ArrayName[,维数]):取得数组相应维数的下界一般为0 Randmize 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(arg[1],..)子程序体函数体Exit Sub 中途跳出 Exit Function 中途跳出End Sub StrFunName=value 返回值End Function[call] StrSubName 引用子程序 Var=StrFunName(arg[1],..) 引用函数。
VB6的绘图方法与常用函数
VB6的绘图方法与常用函数在VB6中,绘图是一项非常常见的操作。
它可以用于创建图形界面元素、绘制图表、设计游戏界面等各种应用场景。
本文将介绍VB6中的绘图方法和常用函数,以帮助您更好地理解和应用该技术。
绘图方法绘制直线在VB6中,可以使用Line函数绘制直线。
它的语法如下:Line (x1, y1)-(x2, y2), [color], [B]•(x1, y1)和(x2, y2)是直线的起点和终点坐标;•color是可选参数,用于指定直线的颜色;•B是可选参数,用于指定是否绘制虚线。
以下是一个示例:Private Sub Form_Pnt()Line (100, 100)-(200, 200), RGB(255, 0, 0), BFEnd Sub绘制矩形在VB6中,可以使用Rectangle函数绘制矩形。
它的语法如下:Rectangle (x1, y1)-(x2, y2), [color], [B], [BF]•(x1, y1)和(x2, y2)是矩形的左上角和右下角坐标;•color是可选参数,用于指定矩形的边框颜色;•B是可选参数,用于指定是否绘制虚线;•BF是可选参数,用于指定是否填充矩形内部。
以下是一个示例:Private Sub Form_Pnt()Rectangle (100, 100)-(200, 200), RGB(0, 255, 0), B,BFEnd Sub绘制圆形在VB6中,可以使用Circle函数绘制圆形。
它的语法如下:Circle (x, y), radius, [color], [B], [BF]•(x, y)是圆心的坐标;•radius是圆的半径;•color是可选参数,用于指定圆的颜色;•B是可选参数,用于指定是否绘制虚线;•BF是可选参数,用于指定是否填充圆的内部。
以下是一个示例:Private Sub Form_Pnt()Circle (150, 150), 50, RGB(0, 0, 255), , BFEnd Sub在VB6中,可以使用Ellipse函数绘制椭圆。
vb6编程代码大全
vb6编程代码大全Time 返回系统时钟的当前时间。
Date 返回系统时钟的当前日期。
Now 返回代表当前日期和时间的编码值。
该函数经常用作其它系统时钟函数的参数。
Hour(Time) 返回指定时间的小时部分(0到23)。
Minute(Time) 返回指定时间的分钟部分(0到59)。
Second(Time) 返回指定时间的秒部分(0到59)。
Day(Date) 返回月份中的日期数(1到31)。
Month(Date) 返回日期中的月份(1到12)。
Year(Date) 返回日期中的年度。
Weekday(Date) 返回日期中代表一周中的星期几。
Abs(n) 返回n的绝对值。
Atn(n) 返回n的反正切值,以弧度为单位。
Cos(n) 返回n的余弦值,以弧度为单位。
Exp(n) 返回e的n次方。
Rnd(n) 产生0到1之间的一个随机数。
Sgn(n) n小于0时返回-1,n等于0时返回0,n大于0时返回1。
Sin(n) 返回n的正弦值,以弧度为单位。
Sqr(n) 返回n的平方根。
Str(n) 把数值值转换成字符串。
Tan(n) 返回n的正切值,以弧度为单位。
Val(n) 把字符串转换为数值值。
Int(n) 返回数字的整数部分。
8.4-->9Fix(n) 返回数字的整数部分。
8.4-->8以上函数在VB6和VBScript中都适用,在。
NET里面要在前面加上相应的命名空间,如System.Math.Cos(),Microsoft.VisualBasic.Hour()。
数据类型转换函数:转换函数将表达式转换成CBool BooleanCByte ByteCCur Currency '只在VB7.0以下有效CDate DateCDbl DoubleCInt IntegerCLng LongCSng SingleCStr StringCVar Variant ‘只在VB7.0以下有效CVErr Error '只在VB7.0以下有效若想了解Visual Basic正在使用哪种变量类型,可使用VarType 函数。
vb6.0函数和语句大全
Val 函数示例
本示例使用 Val 函数返回字符串中所含的数值。
Dim MyValue
MyValue = Val("2457") ' 返回 2457。
MyValue = Val(" 2 45 7") ' 返回 2457。
MyValue = Val("24 and 57") ' 返回 24。
[格式]:
P=InStr(X,Y)
从X第一个字符起找出Y出现的位置
P=InStr(n,X,Y)
从X第n个字符起找出Y出现的位置
[说明]:
(1) 若在X中找到Y,则返回值是Y第一个字符出现在X中的位置。
(2) InStr(X,Y)相当于InStr(1,X,Y)。
(3) 若字符串长度,或X为空字符串,或在X中找不到Y,则都返回0。
例:Rnd 结果:0--1之间的数
6. Sin(N) 正弦函数
例:Sin(0) 结果:0
7. Sgn(N) 符号函数
' 说明:取正负号。Y=Sgn(X) 既 X>0 则Y=1;X=0 则Y=0;X<0 则Y= -1
8. Sqr(N) 平方根
例:Sqr(9) 结果:3
9. Tan(N) 正切函数
[范例]:
若当前时间为2003年8月29日晚上19点26分45秒,则
P=Now()
结果为:P=2003-08-29 19:26:45
6.MonthName:返回月份名称
[格式]:P=MonthName(X)
[说明]:X参数可传入1---12,则返回值为“一月”、“二月”……,但是在英文Windows环境下,返回的是”January”,”February”……
VB常用函数(很全)
Abs 函数返回数的绝对值。
And 运算符执行两个表达式的逻辑连接。
Array 函数返回含一数组的变体。
Asc 函数返回字符串首字母的ANSI 字符代码。
赋值运算符(=) 给变量或属性赋值。
Atn 函数返回数的反正切值。
调用语句将控制移交Sub 或Function 过程。
CBool 函数返回已被转换为Boolean 子类型的变体的表达式。
CByte 函数返回已被转换为字节子类型的变体的表达式。
CCur 函数返回已被转换为货币子类型的变体的表达式。
CDate 函数返回已被转换为日期子类型的变体的表达式。
CDbl 函数返回已被转换为双精度子类型的变体的表达式。
Chr 函数返回指定ANSI 字符码的字符。
CInt 函数返回已被转换为整数子类型的变体的表达式。
Class 对象提供对已创建的类的事件的访问。
Class 语句声明类名Clear 方法清除Err 对象的所有属性设置。
CLng 函数返回已被转换为Long 子类型的变体的表达式。
颜色常数颜色常数列表。
比较常数用于比较运算的常数列表。
连接运算符(&) 强制两个表达式的字符串连接。
Const 语句声明用于字母值的常数。
Cos 函数返回角度的余弦值。
CreateObject 函数创建并返回对“自动”对象的引用。
CSng 函数返回已被转换为单精度子类型的变体的表达式。
CStr 函数返回已被转换为字符串子类型的变体的表达式。
日期和时间常数在日期和时间运算中用来定义星期几和其他常数的常数列表。
日期格式常数用于日期和时间格式的常数列表。
Date 函数返回当前系统日期。
DateAdd 函数返回加上了指定的时间间隔的日期。
DateDiff 函数返回两个日期之间的间隔。
DatePart 函数返回给定日期的指定部分。
DateSerial 函数返回指定年月日的日期子类型的变体。
DateValue 函数返回日期子类型的变体。
Day 函数返回日期,取值范围为1 至31。
VB6.0 字符串 用法
trim(字符串) Byval 返回去掉了前、后之后的[字符串]
例如 trim(" 小 欣 无敌 ") 则返回 "小 欣 无敌" ,中间的空格不受任何影响
string(个数,字符) Byval 返回[个数]个[字符]
例如 string(3,"小") 则返回 "小小小" , 而 string(3,"小欣无敌") 也返回 "小",只有首字符才有效
space(个数) Byval 返回[个数]个空格
例如 space(5) 则返回 " "
strconv(字符串,转换的类型) Byval 将字符串转成指定的类型。常用的类型只有两个,vbwide 半角转成全角,vbNarrow 全角转成半角
例如 strconv("xiao",vbwide) 则返回 "XIAO",而strconv("XIAO",vbnarrow) 则返回 "XIAO"
VB 常用字符串 操作函数
1. ASC(X),Chr(X):转换字符字符码
[格式]:
P=Asc(X) 返回字符串X的第一个字符的字符码
P=Chr(X) 返回字符码等于X的字符
[范例]:
(1)P=Chr(65)
‘ 输出字符A,因为A的ASCII码等于65
(2)P=Asc(“A”)
例如 ucase("xiaoXINwuDi") 则返回 "XIAOXINWUDI"
lcase(字符串) ByVal 返回[字符串]的小写形式,只对英文字符有效
vb6.0函数大全
Abs 函数返回参数的绝对值,其类型和参数相同。
语法Abs(number)必要的number参数是任何有效的数值表达式,如果number 包含Null,则返回Null,如果number 是未初始化的变量,则返回 0。
说明一个数的绝对值是将正负号去掉以后的值。
例如,ABS(-1) 和 ABS(1) 都返回 1。
Abs 函数示例本示例使用Abs函数计算数的绝对值。
Dim MyNumberMyNumber = Abs(50.3) ' 返回 50.3。
MyNumber = Abs(-50.3) ' 返回 50.3。
Array 函数返回一个包含数组的Variant。
语法Array(arglist)所需的arglist参数是一个用逗号隔开的值表,这些值用于给Variant所包含的数组的各元素赋值。
如果不提供参数,则创建一个长度为 0 的数组。
说明用来表示数组元素的符号由变量名、圆括号以及括号中的所需元素的索引号组成。
在下面的示例中,第一条语句创建一个Variant 的变量 A。
第二条语句将一个数组赋给变量 A。
最后一条语句将该数组的第二个元素的值赋给另一个变量。
Dim A As VariantA = Array(10,20,30)B = A(2)使用Array函数创建的数组的下界受Option Base语句指定的下界的决定, 除非Array是由类型库(例如VBA.Array )名称限定。
如果是由类型库名称限定,则Array不受Option Base的影响。
注意没有作为数组声明的Variant 也可以表示数组。
除了长度固定的字符串以及用户定义类型之外,Variant 变量可以表示任何类型的数组。
尽管一个包含数组的Variant 和一个元素为Variant 类型的数组在概念上有所不同,但对数组元素的访问方式是相同的。
Array 函数示例该示例使用Array函数来返回一个包含Variant 的数组。
vb常用函数大全和公式
vb常用函数大全和公式以下是一些VBA常用的函数和公式:## 函数### 整型函数- Asc() - 将一个整数转换为字符长整数- Chr() - 将一个字符长整数转换为字符整数- Conv() - 将一个浮点数转换为字符长整数- Dis() - 将一个字符串分解成子字符串- Len() - 返回一个字符串的长度- Num() - 返回一个整数值### 浮点型函数- Asc() - 将一个浮点数转换为字符长整数- Chr() - 将一个浮点数转换为字符整数- Conv() - 将一个浮点数转换为字符长整数- Dis() - 将一个浮点数转换为字符串- Len() - 返回一个浮点数字符串的长度- Num() - 返回一个浮点数的数值### 布尔型函数- IsTrue() - 返回一个布尔值的真假- IsFalse() - 返回一个布尔值的真假- And() - 将两个布尔值合并为一个新的布尔值- Or() - 将两个布尔值合并为一个新的布尔值,如果它们均为假则返回False- Not() - 返回一个布尔值的真假## 公式### 代数公式- + 表示两个数相加- - 表示两个数相减- * 表示两个数相乘- / 表示两个数相除- % 表示两个数的取模### 几何公式- + 表示两个向量相加- - 表示两个向量相减- * 表示两个向量相乘- / 表示两个向量相除- *x 表示向量x乘以另一个向量x- /x 表示向量x除以另一个向量x- sin(angle) 表示向量x在坐标系中沿着方向angle的sin函数值- cos(angle) 表示向量x在坐标系中沿着方向angle的cos函数值- tan(angle) 表示向量x在坐标系中沿着方向angle的tan函数值### 三角函数公式- sin(angle) 表示向量x在坐标系中沿着方向angle的sin函数值- cos(angle) 表示向量x在坐标系中沿着方向angle的cos函数值- tan(angle) 表示向量x在坐标系中沿着方向angle的tan函数值- asin(x) 表示x在实数范围内取sin函数值- acos(x) 表示x在实数范围内取cos函数值- ceil(x) - 向上取整,返回x的最小值-floor(x) - 向下取整,返回x的最大值- log10(x) 表示将x乘以10的指数幂,返回其百分数### 统计学公式- 方差(Standard Deviation) 表示一组数值的平均平方和与标准差的差值- 标准差(Standard Error) 表示一组数值的标准差。
vb6.0函数大全
Abs 函数返回参数的绝对值,其类型和参数相同。
语法Abs(number)必要的number参数是任何有效的数值表达式,如果number 包含Null,则返回Null,如果number 是未初始化的变量,则返回 0。
说明一个数的绝对值是将正负号去掉以后的值。
例如,ABS(-1) 和 ABS(1) 都返回 1。
Abs 函数示例本示例使用Abs函数计算数的绝对值。
Dim MyNumberMyNumber = Abs(50.3) ' 返回 50.3。
MyNumber = Abs(-50.3) ' 返回 50.3。
Array 函数返回一个包含数组的Variant。
语法Array(arglist)所需的arglist参数是一个用逗号隔开的值表,这些值用于给Variant所包含的数组的各元素赋值。
如果不提供参数,则创建一个长度为 0 的数组。
说明用来表示数组元素的符号由变量名、圆括号以及括号中的所需元素的索引号组成。
在下面的示例中,第一条语句创建一个Variant 的变量 A。
第二条语句将一个数组赋给变量 A。
最后一条语句将该数组的第二个元素的值赋给另一个变量。
Dim A As VariantA = Array(10,20,30)B = A(2)使用Array函数创建的数组的下界受Option Base语句指定的下界的决定, 除非Array是由类型库(例如VBA.Array )名称限定。
如果是由类型库名称限定,则Array不受Option Base的影响。
注意没有作为数组声明的Variant 也可以表示数组。
除了长度固定的字符串以及用户定义类型之外,Variant 变量可以表示任何类型的数组。
尽管一个包含数组的Variant 和一个元素为Variant 类型的数组在概念上有所不同,但对数组元素的访问方式是相同的。
Array 函数示例该示例使用Array函数来返回一个包含Variant 的数组。
VB6中字符串编码及转换常用函数
VB6中字符串编码及转换常⽤函数VB6中字符串转换常⽤函数对于VB的字符串,⼏个专门“武器”⼤概有:StrConv() 'unicode与ansi的互换 , 常量vbUnicode,vbFromUnicodeVarPtr() '-- 获得字符串变量的地址StrPtr() '-- 获得字符串缓冲区的地址Asc(), AscB(), AscW()Chr(), ChrB(), ChrW()Len(), LenB()vbNullString, vbNullChar以Asc、AscB、AscW为例,其区别如下。
Asc(string) 返回与字符串的第⼀个字母对应的 ANSI 字符代码。
返回值:英⽂ >0,中⽂ <0。
AscB(binstr) 适⽤于⼆进制数据。
AscB 不是返回第⼀个字符的字符代码,⽽是返回⾸字节。
AscW(string) 是为使⽤ Unicode 字符的 32 位平台提供的。
它返回 Unicode (宽型)字符代码,因此可以避免从 ANSI 到 Unicode 的代码转换。
它的返回值与JavaScript 中的 charCodeAt 相同。
返回值:英⽂ >0,中⽂ >255可以下⾯的例⼦:Sub Test2_StrFunc()Dim str1 As String, str2 As Stringstr1 = "想你So"str2 = "So想你"Debug.Print Asc(str1), AscB(str1), AscW(str1) '-12309 243 24819Debug.Print Asc(str2), AscB(str2), AscW(str2) ' 83 83 83Debug.Print Chr(-12309) & "*", ChrB(243) & "*", ChrW(24819) & "*" '想* ? 想*Debug.Print Chr(83) & "*", ChrB(83) & "*", ChrW(83) & "*" 'S* ? S*str2 = ChrB(83) & ChrB(0) '"S"由⼆进制83和⼆进制0表⽰Debug.Print str2 'SEnd Sub。
VB6.0 开发积累(函数库)
VB6常用方法汇编一基本语法和编程方法检查文件夹是否存在Function FileExists(FileName As String) As BooleanIf Dir$(FileName, vbDirectory) <> "" ThenFileExists = TrueElseFileExists = FalseEnd IfEnd Function自动注册控件Function AutoRegFile(FileName As String)Dim reged As BooleanDim RegFile As StringDim RegFile1 As StringDim RegFile2 As StringDim BeReg As StringDim RetValBeReg=Dir(FileName)If BeReg<>"" thenRegFile1 = Environ("windir") & "\system\regsvr32.exe "RegFile2 = Environ("windir") & "\system32\regsvr32.exe "RegFile=IIF(Dir(RegFile1) <> "", Dir(RegFile1), Dir(RegFile2))If Dir(RegFile) <> "" ThenRegFile = RegFile & "/s" & " " & BeRegRetVal = Shell(RegFile, 1)ElseMsgBox "找不到regsvr32.exe文件,你可能无法使用本软件!", vbCritical, "无法注册控件"End IfElseMsgBox "找不到控件文件!", vbCritical, "无法自动注册控件"End IfEnd Function使用静态变量放置控件: Form1:Label1,Command1属性设置: cLabel1.Autosize= true代码:Private Sub Command1_Click()Static stflag As Boolean '使用静态变量来保存变量值If stflag = False ThenLabel1.Font.Size = 14stflag = TrueElseLabel1.Font.Size = 9stflag = FalseEnd IfEnd SubSQL防注入过滤函数Function Checkstr(Str)If Isnull(Str) ThenCheckStr = ""Exit FunctionEnd IfStr = Replace(Str,Chr(0),"", 1, -1, 1)Str = Replace(Str, """", """, 1, -1, 1)Str = Replace(Str,"<","<", 1, -1, 1)Str = Replace(Str,">",">", 1, -1, 1)Str = Replace(Str, "script", "script", 1, -1, 0)Str = Replace(Str, "SCRIPT", "SCRIPT", 1, -1, 0) Str = Replace(Str, "Script", "Script", 1, -1, 0)Str = Replace(Str, "script", "Script", 1, -1, 1)Str = Replace(Str, "object", "object", 1, -1, 0)Str = Replace(Str, "OBJECT", "OBJECT", 1, -1, 0) Str = Replace(Str, "Object", "Object", 1, -1, 0) Str = Replace(Str, "object", "Object", 1, -1, 1)Str = Replace(Str, "applet", "applet", 1, -1, 0) Str = Replace(Str, "APPLET", "APPLET", 1, -1, 0) Str = Replace(Str, "Applet", "Applet", 1, -1, 0) Str = Replace(Str, "applet", "Applet", 1, -1, 1) Str = Replace(Str, "[", "[")Str = Replace(Str, "]", "]")Str = Replace(Str, """", "", 1, -1, 1)Str = Replace(Str, "=", "=", 1, -1, 1)Str = Replace(Str, "'", "''", 1, -1, 1)Str = Replace(Str, "select", "select", 1, -1, 1)Str = Replace(Str, "execute", "execute", 1, -1, 1)Str = Replace(Str, "exec", "exec", 1, -1, 1)Str = Replace(Str, "join", "join", 1, -1, 1)Str = Replace(Str, "union", "union", 1, -1, 1)Str = Replace(Str, "where", "where", 1, -1, 1)Str = Replace(Str, "insert", "insert", 1, -1, 1)Str = Replace(Str, "delete", "delete", 1, -1, 1)Str = Replace(Str, "update", "update", 1, -1, 1)Str = Replace(Str, "like", "like", 1, -1, 1)Str = Replace(Str, "drop", "drop", 1, -1, 1)Str = Replace(Str, "create", "create", 1, -1, 1)Str = Replace(Str, "rename", "rename", 1, -1, 1)Str = Replace(Str, "count", "count", 1, -1, 1)Str = Replace(Str, "chr", "chr", 1, -1, 1)Str = Replace(Str, "mid", "mid", 1, -1, 1)Str = Replace(Str, "truncate", "truncate", 1, -1, 1)Str = Replace(Str, "nchar", "nchar", 1, -1, 1)Str = Replace(Str, "char", "char", 1, -1, 1)Str = Replace(Str, "alter", "alter", 1, -1, 1)Str = Replace(Str, "cast", "cast", 1, -1, 1)Str = Replace(Str, "exists", "exists", 1, -1, 1)Str = Replace(Str,Chr(13),"<br>", 1, -1, 1)CheckStr = Replace(Str,"'","''", 1, -1, 1)End Function正规表达式:/^(([A-Z]*|[a-z]*|\d*|[-_\~!@#\$%\^&\*\.\(\)\[\]\{\}<>\?\\\/\'\"]*)|.{0,5})$| \s/创建对象放置控件: Form1:Command1,text1代码:Private Sub Command1_Click()Dim t1 As TextBoxSet t1 = Form1.Text1If t1.Text = 0 Thent1.BackColor = 0t1.ForeColor = 255End IfEnd Sub运行时,只要在Text1中写入0,点击Command1,Text1框就变色了。
VB6.0常用函数
False
CBool(2)
True
CByte(x)
将0~255之间的数值转换成字节型
CByte(202)
202
CDate(x)
将有效的日期字符串转化成日期
CDate(#2016,2,16#)
2016-2-16
CCur(x)
将数值数据x转换成货币型
CCur(2CDbl(12.345678)
12.345678
6
LenB(Stirng)
求string字符串的字节个数
LenB(”Lester”)
12
Left(String,n)
从string字符串左边取n个字符
Left(”lester”,3)
“les”
Right(string,n)
从string字符串右边取n个字符
Right(“lester”,3)
“ter”
“lester”
Ltrim(string)
去掉string左边空格
Ltrim(”ABC”)
“ABC”
Rtrim(string)
去掉string右边空格
Rtrim(“ABC”)
“ABC”
Trim(string)
去掉两边的空格
Trim(”ABC”)
“ABC”
Instr(string,”字符”,M)
在string中查找”字符”,返回其位置,M=1不区分大小写,省略区分
Hex(30)
“1E”
Oct(Num)
求Num的八进制,返回的是字符型值
Oct(20)
“24”
Sgn(Num)
求Num的符号,当Num>0,返回1;Num=0,返回0;Num<0,返回-1
VB6.0函数介绍
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;int(-99.2)=-99round(num,n) ‘四舍五入取小数位round(3.14159,3)=3.142 中数值四舍五入并取偶数值整round(3.25,1)=3.2log(num): ‘取e的n次幂通用num>0exp(n): ‘取e的n次幂通用num^nsin(num): ‘三角函数,以弧度为值计算(角度*Pai)/180=弧度con(num);tan(num);atn()2.字符串函数:len(str): ‘计算字符串长度中文字符长度也计为一mid(str,起始字符,[读取长度]):‘left(str,nlen): ‘从左边起截取nlen长度字符串right( , ): ‘从右边……………Lcase(str); ‘字符串转为小写Ucase(str); ‘字符串转为大写trim(str); ‘去除字符串两端(首尾)空格Ltrim(str); ‘去除字符串左侧空格Rtrim(str); ‘去除字符串右侧空格replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法]);‘替代字符串注:默认值:起始字符1;替代次数不限;比较方法区分大小写(0)inStr([起始字符],str,查找字符串,[比较方法]);‘查找的字符串在字符串的位置从左侧开始查注:比较方法中,compare 参数设置为:常数值vbUseCompareOption -1 说明:使用Option Compare 语句设置执行一个比较。
VB6的绘图方法与常用函数
T_str=Trim(Str)
• 傳回Str字串左右兩邊不含空白字元的字串
R_str=RTrim(Str)
• 傳回Str字串右邊不含空白字元的字串
Str=“ ABCD ” sss=LTrim(Str)
sss=“ABCD ”
Str=“ ABCD ” sss=RTrim(Str)
sss=“ ABCD”
將字串陣列組合成一個字串,d代表分隔字元
常用的數學函數
Abs(X) 求絕對值 Sin(X) Cos(X)
三角函數
Tan(X) Atn(X) Exp(X) 指數函數 Log(X) 自然對數 Rnd(X)亂數函數
Sgn(X) 符號函數 CInt(X) 轉為整數函數 Clog(X) 轉為長整數函數 Int(X)
對應的Ascii字元
Str=“ABCD” sss=Asc(Str)
sss=65
Str=65 sss=Chr(Str)
sss=“A”
常用的字串函數(續)
Tab()
定位函數
語法
• Tab(n) • 目前游標所在行的
最前面開始,向右 邊移動n個位置
與Print指令搭配使 用
Spc()
移位函數
語法
• Spc(n) • 目前游標所在位置
Str=“ABCD” sss=String(4,Str)
sss=“AAAA”
常用的字串函數(續)
Asc()
字元轉成Ascii碼 語法
• Asc_str=Asc(Str) • 傳回Str字串的第一
個字元轉成Ascii碼
Chr()
Ascii碼轉成字元 語法
• Chr_str=Chr(Str) • 將數值資料轉成相
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
VB常用函数大全
现在的编程软件像VB,C++等,大多自带功能很强的函数库,可以很省力得完成各种功能。
很多时候,想不起来实现某个功能的函数或函数格式,导致编程大费周折。
作为一个编程人员,我对此深有体会。
因此,特地准备了几期VB常用函数的介绍,供大家学习或参考。
有说的不当之处,也欢迎在本网站的论坛中提出,大家学习。
(一)类型转换类函数
1、CType(X)
[格式]:
P=CBool(X) 将X转换为“布尔”(Boolean)类型
P=CByte(X) 将X转换为“字节”(Byte)类型
P=CCur(X) 将X转换为“金额”(Currency)类型
P=CDate(X) 将X转换为“日期”(Date)类型
P=CDbl(X) 将X转换为“双精度”(Double)类型
P=CHr(X) 返回字符码对应的字符
P=CInt(X) 将X转换为“整型”(Integer)类型
P=CLng(X) 将X转换为“长整型”(Long)类型
P=CSng(X) 将X转换为“单精度”(Single)类型
P=CStr(X) 将X转换为“字符串”(String)类型
P=Cvar(X) 将X转换为“变体型”(Variant)类型
P=CVErr(X) 将X转换为Error值
[ 范例]:(1) CStr(13)+CStr(23) 数值转换成字符串后,用“+”号连接,结果:1323
(2) CInt("12")+12 字符串转换成整型后与12相加,结果:24
(3) P=CInt(True) 输出结果为-1,布尔值与数值的转换时要注意,布尔值只有True和False,其中True在内存中为-1,False存为0
(4) CBool(-0、001) 输出结果为True。
将数值转换为布尔型时,等于0的数值将得到False,不等于0的数值得到True
2、Int(X),Fix(X):取X的整数值
[格式]:
P=Int(X) 取<=X的最大整数值
P=Fix(X) 取X的整数部分,直接去掉小数
[范例]:(1) Int(-54、6) 结果为-55,取<=-54、6的最大整数
(2) Fix(54、6) 结果为54,取整数并直接去掉小数
(二)常用数学函数
[格式]:
1、Abs(N) 取绝对值
例:Abs(-3、5) 结果:3、5
2、Cos(N) 余弦函数
例:Cos(0) 结果:1
3、Exp(N) e为底的指数函数
例:Exp(3) 结果:20、068
4、Log(N) 以e为底的自然对数
例:Log(10) 结果:2、3
5、Rnd[(N)] 产生随机数
例:Rnd 结果:0--1之间的数
6、Sin(N) 正弦函数
例:Sin(0) 结果:0
7、Sgn(N) 符号函数
说明:取正负号。
Y=Sgn(X) 既X>0 则Y=1;X=0 则Y=0;X<0 则Y= -1
8、Sqr(N) 平方根
例:Sqr(9) 结果:3
9、Tan(N) 正切函数
例:Tan(0) 结果:0
10、Atn(N) 反切函数
例:Atn(0) 结果:0
[注意]:在三角函数中,以弧度表示。
(一)字符串类函数:
1、ASC(X),Chr(X):转换字符字符码
[格式]:
P=Asc(X) 返回字符串X的第一个字符的字符码
P=Chr(X) 返回字符码等于X的字符
[范例]:(1)P=Chr(65) 输出字符A,因为A的ASCII码等于65
(2)P=Asc(“A”)输出65
2、Len(X):计算字符串X的长度
[格式]:
P=Len(X)
[说明]:空字符串长度为0,空格符也算一个字符,一个中文字虽然占用2 Bytes,但也算一个字符。
[范例]:(1) 令X=”” (空字符串)
Len(X) 输出结果为0
(2) 令X=”abcd”
Len(X) 输出结果为4
(3) 令X=”VB教程”
Len(X) 输出结果为4
3、Mid(X)函数:读取字符串X中间的字符
[格式]:
P=Mid(X,n) 由X的第n个字符读起,读取后面的所有字符。
P=Mid(X,n,m) 由X的第n个字符读起,读取后面的m个字符。
[范例]:
(1) X=”abcdefg”
P=Mid(X,5)
结果为:P=”efg”
(2) X=”abcdefg”
P=Mid(X,2,4) 结果为P=”bcde”
4、Replace: 将字符串中的某些特定字符串替换为其他字符串
[格式]:
P=Replace(X,S,R)
[说明]:将字符串X中的字符串S替换为字符串R,然后返回。
[范例]:
X=”VB is very good”
P=Replace(X,good,nice)
输出结果为:P=”VB is very nice”
5、StrReverse:反转字符串
[格式]:
P=StrReverse(X)
[说明]:返回X参数反转后的字符串
[范例]:
(1)X=”abc”
P=StrReverse(X) 输出结果:P=”cba”
6、Ucase(X),Lcase(X):转换英文字母的大小写
[格式]:
P=Lcase(X) 将X字符串中的大写字母转换成小写
P=Ucase(X) 将X字符串中的小写字母转换成大写
[说明]:除了英文字母外,其他字符或中文字都不会受到影响。
[范例]:
(1)令X=”VB and VC”则Lcase(X)的结果为”vb and vc”,Ucase(X)的结果为”VB AND VC”
7、InStr函数:寻找字符串
[格式]:
P=InStr(X,Y)
从X第一个字符起找出Y出现的位置
P=InStr(n,X,Y)
从X第n个字符起找出Y出现的位置
[说明]:
(1)若在X中找到Y,则返回值是Y第一个字符出现在X中的位置。
(2)InStr(X,Y)相当于InStr(1,X,Y)。
(3)若字符串长度,或X为空字符串,或在X中找不到Y,则都返回0。
(4)若Y为空字符串,则返回0。
(二)日期时间类函数:
1、Year(X),Month(X),Day(X):取出年,月,日
[格式]:
P=Year(X) 取出X“年”部分的数值
P=Month(X) 取出X“月”部分的数值
P=Day(X) 取出X“日”部分的数值
[说明]:Year返回的是公元年,若X里只有时间,没有日期,则日期视为#1899/12/30#
2、Hour,Minute,Second函数:取出时,分,或秒
[格式]:
P=Hour(X) 取出X“时”部分的数值
P=Minute(X) 取出X“分”部分的数值
P=Second(X) 取出X“秒”部分的数值
[说明]:Hour的返回值是0---23之间
[范例]:
X=10:34:23
P=Hour(X)
Q=Minute(X)
R=Second(X)
则输出结果:P=10,Q=34,R=23
3、DateSerial函数:合并年,月,日成为日期
[格式]:DateSerial(Y,M,D) 其中Y是年份,M为月份,D为日期
[说明]:
(1)M值若大于12,则月份从12月起向后推算M-12个月;若小于1,则月份从1月起向后推算1-M个月。
(2)若日期D大于当月的日数,则日期从当月的日数起,向后推算D-当月日数;若小于1,则日期从1日起向前推算1-D日。
[范例]:
P=DateSerial(2000,02,02) 则结果为P=2000/02/02
4.TimeSerial函数:合并时,分,秒成为时间
[格式]:P=TimeSerial(H,M,S) 其中H为小时数,M为分钟数,S为秒数
[说明]:推算原理同上面的DateSerial
[范例]:
P=TimeSerial(6,32,45) 结果为:P=6:32:45
5.Date,Time,Now函数:读取系统的日期时间
[格式]:
P=Date()
P=Time()
P=Now()
[说明]:这三个函数都无参数
[范例]:
若当前时间为2003年8月29日晚上19点26分45秒,则P=Now() 结果为:P=2003-08-29 19:26:45
6.MonthName:返回月份名称
[格式]:P=MonthName(X)
[说明]:X参数可传入1---12,则返回值为“一月”、“二月”……,但是在英文Windows 环境下,返回的是”January”,”February”……
[范例]:
P=MonthName(1) 则P=“一月”
7.WeekdayName:返回星期名称
[格式]:P=WeekdayName(X)
[说明]:X参数可传入1—7,则返回值为“星期日”,“星期一”……,但是在英文windows 环境下,返回的是”Sunday”,”Monday”……
[范例]:
P=WeekdayName(1) 结果为:P=”星期日”。