vb6编程代码大全

1、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的反正切值，以弧度为单

2、位。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-9 Fix(n)返回数字的整数部分。8.4-8 以上函数在VB6和VBScript中都适用，在。NET里面要在前面加上相应的命名空间，如System.Math.Cos()，Microsoft.V

3、isualBasic.Hour()。数据类型转换函数：转换函数将表达式转换成CBoolBooleanCByteByteCCurCurrency 只在VB7.0以下有效CDateDateCDblDoubleCIntIntegerCLngLongCSngSingleCStrStringCVarVariant 只在VB7.0以下有效CVErrError 只在VB7.0以下有效若想了解Visual Basic正在使用哪种变量类型，可使用 VarType 函数。字符串处理函数关键字说明示例Ucase将字符串中的字母改为大写Ucase(Kim)返回KIMLcase将字符串中的字母改为小写Lcase(Kim

4、)返回kimLen确定字符串的长度（以字符为单位）Len(Mississ)返回7Right返回字符串右部指定个数的字符Right(Budapest,3)返回pesLeft返回字符串左部指定个数的字符Left(Budapest,4)返回BudaMid从某一指定起始点开始返回字符串中指定个数的字符Mid(Sommers, 4, 3) 返回merInStr从一个较大字符串中查找另一个字符 start% = InStr(bob,bobby)start%变量返回值1 String重复指定字符串中的字符，返回新的字符串String(8, *)返回*Asc返回指定字母的ASCII代码Asc(A) 返回65C

5、hr返回指定ASCII代码对应的字符Chr(65) 返回AXor对两个数字执行“异或”操作，其返回值可用来对文本进行加密、解密65 Xor 50 返回115 115 Xor 50 返回65注意：Right和Left在.Net中使用时前面要加命名空间Microsoft.VisualBasic；String在.Net中无效。注册表读写函数：GetSetting检索注册表设置值SaveSetting保存或创建注册表设置值GetAllSettings返回一个包含多项注册表设置值的数组DeleteSetting删除注册表设置值(此乃个人整理而得，如果发现有错漏请提出，谢谢。_)Visual Basic不

6、是强类型语言，但提供了强制用户对变量进行显式声明的措施。在工具选项编辑器中，勾选要求变量声明选项，就会在Visual Basic 6.0程序中的每个新建的窗体、模块中自动加上Option Explicit语句，强制程序中的变量先声明再使用。VB常用内部函数1.转换函数函数功能说明示例结果Int(x)求不大于x的最大整数Int(4.8)4Int(-4.3)-5Fix(x)截尾取整Fix(-4.8)-4Hex$(x)把十进制转换成十六进制Hex(100)“64Oct$(x)把十进制转换成八进制Oct(100)“144Asc（x$)返回x$中第一个字符的ASCII码Asc(“ABC”)65Chr$(

7、x)把x的值转换成ASCII码Chr（64）“A”Str$(x)把x的值转换成字符串Str(12.34)“12.34Val(x)把字符串x转换成数值Val(“12.34)12.34CInt(x)把x的值四舍五入取整CInt(12.53)13CCur(x)把x的值四舍五入为货币类型Ccur(12.53)12.53CDbl(x)把x的值转换成双精度数CDbl(12.53)12.53CLng(x)把x的值四舍五入为长整型数CLng(12.53)13CSng(x)把x的值转换成单精度数CSng(12.53)12.53CVar(x)把x的值转换成变体类型值CVar(12.53)12.532.数学函数函数

8、功能说明示例结果Sin(x)返回x的正弦值Sin(0)0Cos(x)返回x的余弦值Cos(0)0Tan(x)返回x的正切值Tan(0)0Atn(x)返回x的反正切值Atn(0)0Abs(x)返回x的绝对值Abs(-2.8)2.8Sgn(x)返回x的符号：x为负数时 -1Sgn(-2)-1x为0时 0Sgn(0)0 x为正数时 1Sgn(3)1Sqr(x)返回x的平方根Sqr(25)5Exp(x)求e的x次方Exp(2)7.389Rnd(x)产生随机数Rnd01之间的数3.日期和时间函数功能说明示例结果Now返回系统日期/时间Now2009-1-12 1:01Day(d)返回当前的日期Day(N

9、ow)12WeekDay(d)返回当前的星期WeekDay(Now)1Month(d)返回当前的月份Month(Now)1Year(d)返回当前的年份Year(Now)2009Hour(t)返回当前的小时Hour(Now)14Minute(t)返回当前分钟Minute(Now)51Second(t)返回当前秒Second(Now)33Timer返回从0点开始已过的秒数Timer35385.5Time返回当前时间Time14:53:22VB中处理字符串的函数1.删除空白字符串函数LTrim$(字符串） ：去掉字符串左边的空白字符RTrim$(字符串）：去掉字符串右边的空白字符Trim$(字符串）

10、：去掉字符串两边的空白字符，这个函数在处理字符串中使用很频繁，尤其在有输入操作时。2.字符串截取函数Left$(字符串，n) ：返回字符串中前n个字符示例：a$=”abcdef”print Left$(a$,3)abcMid$(字符串，p，n）：从第p个字符开始，向后截取n个字符，注意从1开始计数。如果第三个参数n省略，则截取到字符串的末尾示例：a$=”abcdefg”print Mid$(a$,3,4)cdefRight$(字符串，n）：返回字符串最后的n个字符，或者说从后数n个字符示例：a$=”abcdefg”print Right$(a$,3)efg3.VB中字符串长度测试函数Len(字

11、符串） Len（变量名）：测试取得字符串的长度示例：a$=”abcdefg”print Len(a$)7？Len(testvar#)结果为 8？Len(testvar！)结果为 4？Len(testvar%)结果为 24. String$函数String$（n，ASCII码）String$（n，字符串） ：返回由n个指定字符组成的字符串。第二个变量可以是ASCII码，也可以搜字符串。当为ASCII码时，返回对应的n个字符；当为字符串时，返回由该字符串第一个字符组成的n个字符的字符串示例：a$=string$（5，65）b$=string$（5，”-”）c$=string$（5，”abcde”）

12、print a$，b$，c$AAAAAaaaaa5. VB中的空格函数Space$（n） ：返回n个空格示例：a$=”a”+Space(4)+”b”print a$a b 说明：用_表示空格6. 字符串匹配函数InStr(首字符位置，字符串1，字符串2，n）：该函数在字符串1中查找字符串2，如果找到了，则返回字符串2的第一个字符在字符串2中的位置，字符串1的第一个字符的位置为1，即从1开始计数示例： a$=”Microsoft Visual Basic”x=InStr(a$,”Visual”)print x11说明：字符串2中首字符V在字符串1中的位置为11。字符串2的长度必须小于65535个

13、字符。InStr的返回值是一个长整型数，不同情况下返回值不尽相同。这个函数用来查找某个字符是否包含于另外一个字符串时非常有效。7. VB中字母大小写转换函数Ucase$(字符串） ：把字符串全部转换成大写字母Lcase$（字符串）：把字符串全部换成小写字母8. VB中插入字符串语句 Mid$Mid$（字符串，位置，L）=子字符串该函数把字符串中从位置开始的字符用子字符串代替，即从L位开始用子字符串替换原字符串中的字符。 4.字符串函数 函数功能说明示例结果LTrim$(S)去掉S左边的空格LTrim$(“_abc_”)“abc_”Rtrim$(S)去掉S右边的空格Rtrim$(“_abc_”)“abc_”Trim$(S)去掉S两边的空格Trim$(“_abc_”)“abc”Left$(S,n)取S左边n个字符Left$(“abc”,2)abRight$(S,n)取S右边n个字符Right$(“abc”,2)bcMid$(S,p,n)从p开始取n个字符Mid$(“abcde”,2,3)bcdLen(S)字符串S的长度Len(“VB程序设计”