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-->9

Fix(n) 返回数字的整数部分。8.4-->8

以上函数在VB6和VBScript中都适用，在。NET里面要在前面加上相应的命名空间，如()，()。

数据类型转换函数：

转换函数 将表达式转换成

CBool Boolean

CByte Byte

CCur Currency '只在VB7.0以下有效

CDate Date

CDbl Double

CInt Integer

CLng Long

CSng Single

CStr String

CVar Variant ‘只在VB7.0以下有效

CVErr Error '只在VB7.0以下有效

若想了解Visual Basic正在使用哪种变量类型，可使用 VarType 函数。

字符串处理函数

关键字 说明 示例

Ucase 将字符串中的字母改为大写 Ucase("Kim")返回KIM

Lcase 将字符串中的字母改为小写 Lcase("Kim")返回kim

Len 确定字符串的长度（以字符为单位） Len("Mississ")返回7

Right 返回字符串右部指定个数的字符 Right("Budapest",3)返回pes

Left 返回字符串左部指定个数的字符 Left("Budapest",4)返回Buda

Mid 从某一指定起始点开始返回字符串中指定个数的字符 Mid("Sommers", 4, 3) 返回mer

InStr 从一个较大字符串中查找另一个字符 start% =

InStr("bob","bobby")start%变量返回值1

String 重复指定字符串中的字符，返回新的字符串 String(8, "*")返回********

Asc 返回指定字母的ASCII代码 Asc("A") 返回65

Chr 返回指定ASCII代码对应的字符 Chr(65) 返回A

Xor 对两个数字执行“异或”操作，其返回值可用来对文本进行加密、解密 65

Xor 50 返回115 115 Xor 50 返回65

注意：Right和Left在.Net中使用时前面要加命名空间Basic；String在.Net中无效。

注册表读写函数：

GetSetting 检索注册表设置值

SaveSetting 保存或创建注册表设置值

GetAllSettings 返回一个包含多项注册表设置值的数组

DeleteSetting 删除注册表设置值

(此乃个人整理而得，如果发现有错漏请提出，谢谢。^_^)

Visual Basic不是强类型语言，但提供了强制用户对变量进行显式声明的措施。在工具——选项——编辑器中，勾选要求变量声明选项，就会在Visual Basic

6.0程序中的每个新建的窗体、模块中自动加上Option Explicit语句，强制程序中的变量先声明再使用。

VB常用内部函数

1.转换函数

函数 功能说明 示例 结果

Int(x) 求不大于x的最大整数 Int(4.8) 4

Int(-4.3) -5

Fix(x) 截尾取整 Fix(-4.8) -4

Hex$(x) 把十进制转换成十六进制 Hex(100) “64″

Oct$(x) 把十进制转换成八进制 Oct(100) “144″

Asc（x$) 返回x$中第一个字符的ASCII码 Asc(“ABC”) 65

Chr$(x) 把x的值转换成ASCII码 Chr（64） “A”

Str$(x) 把x的值转换成字符串 Str(12.34) “12.34″

Val(x) 把字符串x转换成数值 Val(“12.34″) 12.34

CInt(x) 把x的值四舍五入取整 CInt(12.53) 13

CCur(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

2.数学函数

函数 功能说明 示例 结果

Sin(x) 返回x的正弦值 Sin(0) 0

Cos(x) 返回x的余弦值 Cos(0) 0

Tan(x) 返回x的正切值 Tan(0) 0

Atn(x) 返回x的反正切值 Atn(0) 0

Abs(x) 返回x的绝对值 Abs(-2.8) 2.8

Sgn(x) 返回x的符号：x为负数时 -1 Sgn(-2) -1

x为0时 0 Sgn(0) 0

x为正数时 1 Sgn(3) 1

Sqr(x) 返回x的平方根 Sqr(25) 5

Exp(x) 求e的x次方 Exp(2) 7.389

Rnd[(x)] 产生随机数 Rnd 0~1之间的数

3.日期和时间

函数 功能说明 示例 结果

Now 返回系统日期/时间 Now 2009-1-12 1:01

Day(d) 返回当前的日期 Day(Now) 12

WeekDay(d) 返回当前的星期 WeekDay(Now) 1

Month(d) 返回当前的月份 Month(Now) 1

Year(d) 返回当前的年份 Year(Now) 2009

Hour(t) 返回当前的小时 Hour(Now) 14

Minute(t) 返回当前分钟 Minute(Now) 51

Second(t) 返回当前秒 Second(Now) 33

Timer 返回从0点开始已过的秒数 Timer 35385.5

Time 返回当前时间 Time 14:53:22

VB中处理字符串的函数

1.删除空白字符串函数

LTrim$(字符串） ：去掉字符串左边的空白字符

RTrim$(字符串）：去掉字符串右边的空白字符

Trim$(字符串）：去掉字符串两边的空白字符，这个函数在处理字符串中使用很频繁，尤其在有输入操作时。

2.字符串截取函数

Left$(字符串，n) ：返回字符串中前n个字符

示例：a$=”abcdef” print Left$(a$,3) abc

Mid$(字符串，p，n）：从第p个字符开始，向后截取n个字符，注意从1开始计数。如果第三个参数n省略，则截取到字符串的末尾

示例：a$=”abcdefg” print Mid$(a$,3,4) cdef

Right$(字符串，n）：返回字符串最后的n个字符，或者说从后数n个字符

示例：a$=”abcdefg” print Right$(a$,3) efg

中字符串长度测试函数

Len(字符串） Len（变量名）：测试取得字符串的长度

示例：a$=”abcdefg” print Len(a$) 7 ？Len(testvar#) 结果为 8 ？Len(testvar！) 结果为 4 ？Len(testvar%) 结果为 2

4. String$函数

String$（n，ASCII码） String$（n，字符串） ：返回由n个指定字符组成的字符串。第二个变量可以是ASCII码，也可以搜字符串。当为ASCII码时，返回对应的n个字符；当为字符串时，返回由该字符串第一个字符组成的n个字符的字符串

示例：a$=string$（5，65） b$=string$（5，”-”） c$=string$（5，”abcde”） print a$，b$，c$ AAAAA—–aaaaa

5. 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

x 11

说明：字符串2中首字符V在字符串1中的位置为11。字符串2的长度必须小于65535个字符。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) 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程序设计”) 6

LenB(S) 字符串S的字节长度 LenB(“VB程序设计”) 12

String$(n,S) 返回n个S的首字符 String$(3,”abc”) aaa

Space$(n,S) 返回n个空格 Space$(3) “___”

InStr(n,S1,S2,m) 在S1中查找S2 InStr(“abcdef”,”ef”) 5

Ucase$(S) 把S换成大写 Ucase$(“abc”) “ABC”

Lcase$(S) 把S换成小写 Lcase$(“ABC”) “abc”