vb6编程代码大全Word格式文档下载.docx
《vb6编程代码大全Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《vb6编程代码大全Word格式文档下载.docx（6页珍藏版）》请在冰点文库上搜索。
Tan（n）
返回n的正切值，以弧度为单位。
Val（n）
把字符串转换为数值值。
Int（n）
返回数字的整数部分。
8.4-->
9
Fix（n）
8
以上函数在VB6和VBScript中都适用，在。
NET里面要在前面加上相应的命名空间，如System.Math.Cos（），Microsoft.VisualBasic.Hour（）。
数据类型转换函数：
转换函数
将表达式转换成
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'
若想了解VisualBasic正在使用哪种变量类型，可使用VarType函数。
字符串处理函数
关键字
说明
示例
Ucase
将字符串中的字母改为大写
Ucase（"
Kim"
）返回KIM
Lcase
将字符串中的字母改为小写
Lcase（"
）返回kim
Len
确定字符串的长度（以字符为单位）
Len（"
Mississ"
）返回7
Right
返回字符串右部指定个数的字符
Right（"
Budapest"
3）返回pes
Left
返回字符串左部指定个数的字符
Left（"
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
对两个数字执行“异或”操作，其返回值可用来对文本进行加密、解密
65Xor50
返回115
115Xor50
注意：
Right和Left在.Net中使用时前面要加命名空间Microsoft.VisualBasic；
String在.Net中无效。
注册表读写函数：
GetSetting
检索注册表设置值
SaveSetting
保存或创建注册表设置值
GetAllSettings
返回一个包含多项注册表设置值的数组
DeleteSetting
删除注册表设置值
（此乃个人整理而得，如果发现有错漏请提出，谢谢。
^_^）
VisualBasic不是强类型语言，但提供了强制用户对变量进行显式声明的措施。
在工具——选项——编辑器中，勾选要求变量声明选项，就会在VisualBasic6.0程序中的每个新建的窗体、模块中自动加上OptionExplicit语句，强制程序中的变量先声明再使用。
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）
CLng（x）
把x的值四舍五入为长整型数
CLng（12.53）
CSng（x）
把x的值转换成单精度数
CSng（12.53）
CVar（x）
把x的值转换成变体类型值
CVar（12.53）
2.数学函数
Sin（x）
返回x的正弦值
Sin（0）
Cos（x）
返回x的余弦值
Cos（0）
Tan（x）
返回x的正切值
Tan（0）
Atn（x）
返回x的反正切值
Atn（0）
Abs（x）
返回x的绝对值
Abs（-2.8）
2.8
Sgn（x）
返回x的符号：
x为负数时-1
Sgn（-2）
-1
x为0时
0
Sgn（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.日期和时间
返回系统日期/时间
2009-1-121:
01
Day（d）
返回当前的日期
Day（Now）
12
WeekDay（d）
返回当前的星期
WeekDay（Now）
Month（d）
返回当前的月份
Month（Now）
Year（d）
返回当前的年份
Year（Now）
2009
Hour（t）
返回当前的小时
Hour（Now）
14
Minute（t）
返回当前分钟
Minute（Now）
51
Second（t）
返回当前秒
Second（Now）
33
Timer
返回从0点开始已过的秒数
35385.5
返回当前时间
14:
53:
22
VB中处理字符串的函数
1.删除空白字符串函数
LTrim$（字符串）：
去掉字符串左边的空白字符
RTrim$（字符串）：
去掉字符串右边的空白字符
Trim$（字符串）：
去掉字符串两边的空白字符，这个函数在处理字符串中使用很频繁，尤其在有输入操作时。
2.字符串截取函数
Left$（字符串，n）：
返回字符串中前n个字符
示例：
a$=”abcdef”<
CR>
printLeft$（a$,3）<
abc
Mid$（字符串，p，n）：
从第p个字符开始，向后截取n个字符，注意从1开始计数。
如果第三个参数n省略，则截取到字符串的末尾
a$=”abcdefg”<
printMid$（a$,3,4）<
cdef
Right$（字符串，n）：
返回字符串最后的n个字符，或者说从后数n个字符
printRight$（a$,3）<
efg
3.VB中字符串长度测试函数
Len（字符串）
Len（变量名）：
测试取得字符串的长度
printLen（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”）
printa$，b$，c$
AAAAA—–aaaaa
5.VB中的空格函数
Space$（n）
：
返回n个空格
a$=”a”+Space（4）+”b”
printa$
a____b
说明：
用_表示空格
6.字符串匹配函数
InStr（[首字符位置，]字符串1，字符串2[，n]）：
该函数在字符串1中查找字符串2，如果找到了，则返回字符串2的第一个字符在字符串2中的位置，字符串1的第一个字符的位置为1，即从1开始计数
a$=”MicrosoftVisualBasic”
x=InStr（a$,”Visual”）
printx
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_”）
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程序设计”）
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”）
Ucase$（S）
把S换成大写
Ucase$（“abc”）
“ABC”
Lcase$（S）
把S换成小写
Lcase$（“ABC”）
升级会员 