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(nnAtn(nnCos

2、(nnenRnd(n) 产生 0 到 1 之间的一个随机数。Sgn(nn01，n00，n0。Sin(nnSqr(nnStr(n)Tan(nnVal(n) 把字符串转换为数值值。Int(n) 返回数字的整数部分。8.4-9 Fix(n) 返回数字的整数部分。8.4-8以上函数在 VB6 和 VBScript 中都适用，在。NET 里面要在前面加上相应的命名空间，如 System.Math.Cos()，Microsoft.VisualBasic.Hour()。数据类型转换函数：转换函数 将表达式转换成CBool BooleanCByte ByteCCur Currency 只在 VB7.0 以下有

3、效CDate DateCDbl Double CInt Integer CLng Long CSng Single CStr StringCVar Variant 只在 VB7.0 以下有效CVErr Error 只在 VB7.0 以下有效若想了解 Visual Basic 正在使用哪种变量类型，可使用 VarType 函数。字符串处理函数关键字 说明 示例Ucase 将字符串中的字母改为大写 Ucase(Kim)返回 KIM Lcase 将字符串中的字母改为小写 Lcase(Kim)返回 kimLen 确定字符串的长度（以字符为单位） Len(Mississ)返回 7Right 返回字符串右

4、部指定个数的字符 Right(Budapest,3)返回 pes Left 返回字符串左部指定个数的字符 Left(Budapest,4)返回 BudaMid 从 某 一 指 定 起 始 点 开 始 返 回 字 符 串 中 指 定 个 数 的 字符 Mid(Sommers, 4, 3) 返 回 merInStr从 一 个 较 大 字 符 串 中 查 找 另 一 个 字 符start%InStr(bob,bobby)start%变量返回值1String 重复指定字符串中的字符，返回新的字符串String(8, *)返 回*Asc返回指定字母的ASCII代码Asc(A)返 回 65 Chr 返回指

5、定ASCII代码对应的字符Chr(65) 返回AXor65Xor50返回115115Xor50返回65注 意 ： Right和Left在 .Net中 使 用 时 前 面 要 加 命 名 空 Microsoft.VisualBasic；String在.Net中无效。注册表读写函数：GetSetting 检索注册表设置值SaveSetting 保存或创建注册表设置值GetAllSettings 返回一个包含多项注册表设置值的数组DeleteSetting 删除注册表设置值(此乃个人整理而得，如果发现有错漏请提出，谢谢。_)Visual BasicVisual Basic程序中的每个新建的窗体、模块

6、中自动加上 Option Explicit 语句，强制程序中的变量先声明再使用。VB 常用内部函数1.转换函数函数 功能说明 示例 结果Int(x) 求不大于 x 的最大整数 Int(4.8) 4 Int(-4.3) -5Fix(x) 截尾取整 Fix(-4.8) -4Hex$(x) 把十进制转换成十六进制 Hex(100) “64 Oct$(x) 把十进制转换成八进制 Oct(100) “144Asc（x$x$ASCIIAsc(“ABC”) 65 Chr$(xxASCIIChr（64）A”Str$(xxStr(12.34) “12.34 Val(xxVal(“12.3412.34 CInt(

7、xxCInt(12.5313CCur(x) 把 x 的值四舍五入为货币类型 Ccur(12.53) 12.53 CDbl(x) 把 x 的值转换成双精度数 CDbl(12.53) 12.53 CLng(x) 把 x 的值四舍五入为长整型数 CLng(12.53) 13 CSng(x) 把 x 的值转换成单精度数 CSng(12.53) 12.53 CVar(x) 把 x 的值转换成变体类型值 CVar(12.53) 12.53数学函数函数 功能说明 示例 结果Sin(x) 返回 x 的正弦值 Sin(0) 0Cos(x) 返回 x 的余弦值 Cos(0) 0 Tan(x) 返回 x 的正切值

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

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

10、$(字符串）：去掉字符串右边的空白字符Trim$(字符串2.字符串截取函数Left$(字符串，n) ：返回字符串中前 n 个字符示例：a$=”abcdef”printLeft$(a$,3)abcMid$(字符串，p，n）：从第p 个字符开始，向后截取n 个字符，注意从1 开始计数。如果第三个参数 n 省略，则截取到字符串的末尾示例：a$=”abcdefg”printMid$(a$,3,4)cdefRight$(字符串，n）：返回字符串最后的 n 个字符，或者说从后数 n 个字符示例：a$=”abcdefg”printRight$(a$,3)3.VB中字符串长度测试函数Len(字符串）Len（变

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

12、：a$=”a”+Space(4)+”b” print a$ a b 说明：用_表示空格字符串匹配函数InStr(首字符位置，字符串 1，字符串 2，n）：该函数在字符串 1 中查222字符串 1 的第一个字符的位置为 1，即从 1 开始计数示 例 ： Visual ”) print x 112V111265535InStrVBUcase$(字符串）：把字符串全部转换成大写字Lcase$（字符串）：把字符串全部换成小写字母VB 中 插 入 字 符 串 语 句 Mid$ Mid$（字符串，位置，L）L符串替换原字符串中的字符。4.字符串函数函数 功能说明 示例 结果LTrim$(S) 去掉 S 左

13、边的空格 LTrim$(“_abc_”) “abc_” Rtrim$(S) 去掉 S 右边的空格 Rtrim$(“_abc_”) “abc_” Trim$(S) 去 掉 S 两 边 的 空 格 Trim$(“_abc_”) “abc” Left$(S,n) 取 S 左 边 n 个 字 符 Left$(“abc”,2) ab Right$(S,n) 取 S 右 边 n 个 字 符 Right$(“abc”,2) bc Mid$(S,p,n) 从 p 开始取n 个字符 Mid$(“abcde”,2,3) bcd Len(S) 字符串 S 的长度 Len(“VB 程序设计”) 6LenB(S) 字符串 S 的字节长度 LenB(“V