VB函数汇总
2008-06-25 08:31
常用内部函数:
(资料来源：eNet网络学院整理人:”冰+..河` .,附带例子，无语法，只限新手）
[经初步检查，改正一些bug,如果阅读时发现错误，请Q我 :274625988]
数学函数：
fix(x) 取整只截取小数部分
int(x) 求不大于指定值的最大整数
abs(x) 求绝对值
sgn(x) 判断整数，负数，还是零整数＝１，负数＝－１，零＝０
sqr(x) 求平方根
log(x) 自然对数
sin(x),tan(x),cos(x),atn(x)〔注意：三角函数括号内数值为弧度！！！〕例子:(上面几个函数用法相同)
dim a as string
private sub command1_click()
a = val(text1.text)
msgbox "函数值为：" & Fix(a)
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
字符串函数：(用于字符串的处理)
Trim(x) 删除空格
LTrim(x) 删除左端空格
RTrim(x) 删除右端空格
left(x) 从左端开始截取N个字节的字符串
right(x) 从右端开始截取N个字节的字符串
mid(x) 从N个位置开始截取N个字节的字符串
例子：
dim a as string
private sub command1_click()
a=text1.text
msgbox "函数值为：" & left(a,6)/mid(a,2,6)/right(s,6)
－－－－－－－－－－－－－
len(x) 字符串的长度
space(x) 空格
Ucase(x) 大写
Ucase(x) 小写
val(x) 文本转换成数值
例子：
private sub command1_click()
a = val(text1.text)
b = val(text2.text)
msgbox"结果为:" & a+b
----------------------------
str(x) 数值转换成字符串
例子：
dim a as variant
private sub command1_click()
a=val(text1.text)
msgbox "转换后的" & str(a)
-----------------------------
instr(x) 在第一个字符串中找第二个字符串，如果找到了说明第二个字符串是第一个字符串的子串，那么将返回第二个字符串在第一个字符串首次出现的位置(返回１)，但是如果没有找到，则返回０，因为第二个字符串并不是第一个字符串的子串。
例子：
private sub command1_click()
a = text1.text
b = text2.text
msgbox"结果为:" & instr(a,b)
------------------------------
asc(x) 得到字符串首字符的ascii码
例子：
dim a as variant
private sub command1_click()
a=text1.text
msgbox "Ascii码为：" & Asc(a)
-------------------------------
chr(x) 得到以数值为acsii码的字符
例子：
dim a as variant
private sub command1_click()
a=val(text1.text)
msgbox "字符为：" & chr(a)
-----------------------------
rnd(x) 随机函数，用于产生一个随机数，随机数产生时，需要一个随机种子，随机种子不同，产生的随机数也就不同,本函数产生０～１的单精度随机数
例子：
private sub command1_click()
dim a as string
a=val(text1.text)
msgbox "产生的随机数是：" & rnd(a)
注意：数值不改，随机数也不变！
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
数据类型转换函数：
cint(x) 将数值表达式的值转换成integer类型的，如果表达式的值为小数，就将小数部分的第一位进行四舍五入
例子：
private sub command1_click()
dim a as string
a = val(text1.text)
msgbox "转换后的结果是：" & cint(a)
------------------------
ccur(x) 将数值表达试的值转换成货币类型，如果表达式的小数位数多于四位，则转换后只保留四位小数，且自动讲第五位小数进行四舍五入'
作者：冰河玩VB 2008-2-21 14:31 回复此发言
--------------------------------------------------------------------------------
2 我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看啦）
例子同cint(x)
------------------------
cdbl(x) 将文本框中的数据转换成双精度数据
例子同cint(x)
-------------------------
clng(x) 将文本框中的数据转换成长整型数据
例子同cint(x)
-------------------------
csng(x) 将文本框中的数据转换成单精度数据
例子同cint(x)
-------------------------
cvar(x) 将文本框中的数据转换成变体型(variant)数据
例子同cint(x)
-------------------------
cstr(x) 将文本框中的数据转换成字符串数据
例子同cint(x)
-------------------------
cdate(x) 将文本框中的数据转换成日期型数据
例子同cint(x)
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
