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)
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
－－－－－－－－
日期和时间函数：(对日期和时间的操作)
now() 返回当前系统的日期和时间字符串（格式为：年－月－日，时－分－秒）例子：
msgbox "当前日期时间为：" & now()
-----------------------------
date() 返回当前系统的日期字符串（格式为：年－月－日)
例子同now()
------------------------------
time() 返回当前系统的时间字符串（时－分－秒）
例子同now()
------------------------------
year(x) 返回日期字符串中的年份（结果为整型）
例子：
private sub command1_click()
dim a as string
a = cdate(text1.text)
msgbox "当前年份为：" & year(a)
-------------------------------
month(x) 返回日期字符串中的月份（结果为整型）
例子同year(x)
-------------------------------
day(x) 返回日期字符串中的日子（结果为整型）
例子同year(x)
-------------------------------
weekday(x) 求日期中的星期，返回结果为整型（1-星期日,2-星期一,……）
例子同year(x)
-------------------------------
hour(x) 求时间中的小时返回结果为整型
例子同year(x)〔不需要cdate转换〕
--------------------------------
minute(x) 求时间中的分钟返回结果为整型
例子同year(x)〔不需要cdate转换〕
--------------------------------
second(x) 求时间中的秒的返回结果为整型
例子同year(x)〔不需要cdate转换〕
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
输入，输出函数：
tab(x)[在print方法中使用]将输出的内容定位到指定的列上
例子：
private sub form_click()
print "姓名"; tab(10): "籍贯"
-----------------------------
spc(x)[在print方法中使用，不能用于字符串的运算]产生指定数量的空格
例子同tab(x)
------------------------------
space(x)[在print方法中使用，可以用于字符串的运算]产生指定数量的空格例子同tab(x)
-------------------------------
format [在print方法中使用]将表达式按照指定的形式进行输出
private sub form_click()
print format(123456.365,"######,##")
end sub
--------------------------------
inputbox 产生一个输入框
private sub form_click()
dim a as string
a =Inputbox("请输入内容","输入框","hello")
print a
end sub
--------------------------------
msgbox 产生一个消息框
5 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看
rnd(x) 随机函数，用于产生一个随机数，随机数产生时，需要一个随机种子，随机种子不同，产生的随机数也就不同,本函数产生０～１的单精度随机数
例子：
private sub command1_click()
dim a as string
a=val(text1.text)
msgbox "产生的随机数是：" & rnd(a)
注意：数值不改，随机数也不变！
----------------------------------
谬也~
Randomize是设定随机种子，Rnd(x)中的x是随机序列的位置。也就是说Rnd(1)生成下一个随机数，Rnd(0)则重新生成与前一次一样的数，Rnd(-1)生成前前随机数。
作者： pigpag 2008-2-21 20:01 回复此发言
---------------------------------------------------------------------
-----------
6 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看
视频教程里是那么写的，我照那个总结的，是他讲错了么？
作者：冰河玩VB 2008-2-21 20:02 回复此发言
--------------------------------------------------------------------------------
7 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看
学习了~~~~一个随机数还有那么深入的研究~~~~
作者： tzwsoho 2008-2-21 21:10 回复此发言
--------------------------------------------------------------------------------
8 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看
果然,测试后发觉小于等于零的?值生成的Rnd(?)每次都是一样的,大于零的每次都不同~~~~ pigpag 果然是高人~~~~
作者： tzwsoho 2008-2-21 21:13 回复此发言
--------------------------------------------------------------------------------
9 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看
To 6L: 实践出真知，你可以试试看吧，我也不确保自己是对的
Randomize 1
Rnd -1
? Rnd(1),Rnd(0),Rnd(1),Rnd(0),Rnd(-1)
Randomize 2 ' 换种子
Rnd -1
? Rnd(1),Rnd(0),Rnd(1),Rnd(0),Rnd(-1)
Randomize 1 ' 换回来
Rnd -1
? Rnd(1),Rnd(0),Rnd(1),Rnd(0),Rnd(-1)
运行这一大段，看看效果如何
作者： pigpag 2008-2-21 21:14 回复此发言
--------------------------------------------------------------------------------
10 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看
按照八楼的说法我只说对了一半，也许，Rnd(-1)一般用来更新种子的初始化因为
Randomize 种子
? Rnd(1)
这两句不能保证同一个种子就是同一个值
譬如
Randomize 1
Print Rnd(1)
Randomize 1
Print Rnd(1)
两个值不同的。再如：
Randomize 1
Rnd -1
Print Rnd(1)
Randomize 1
Rnd -1
Print Rnd(1)
应该就是一样的了
作者： pigpag 2008-2-21 21:16 回复此发言
--------------------------------------------------------------------------------
11 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看哇，我现在就进行第一次修订，嘿嘿～～
特别鸣谢：pigpag
作者：冰河玩VB 2008-2-21 21:35 回复此发言
--------------------------------------------------------------------------------
12 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看
第一次加精，好兴奋，我会继续努力的，嘿～
作者：冰河玩VB 2008-2-21 21:41 回复此发言
--------------------------------------------------------------------------------
13 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看
很好，鼓励一下，哈哈
作者：ッ尐虎じ 2008-2-21 21:55 回复此发言
--------------------------------------------------------------------------------
14 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看
这么好的帖子肯定会加精的啦^_^加油~
BTW我不是斑竹~
作者： pigpag 2008-2-21 22:03 回复此发言
--------------------------------------------------------------------------------
15 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看
呀呀，里面谬误的地方还真不少……
还有~
作者： pigpag 2008-2-21 22:05 回复此发言
--------------------------------------------------------------------------------
16 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看
mid(x) 从N个位置开始截取N个字节的字符串
这句有点不明确，不过一般都知道，没啥关系
将文本框中的数据转换成双精度数据
' ~~~~~~
这样说有点误导吧，不过这个也没太大问题
问题最大的是CInt和CCur中对于舍去多余小数的操作。楼主试试：
? CInt(3.5)
? CInt(4.5)
你猜个答案，再运行看看结果
作者： pigpag 2008-2-21 22:09 回复此发言
--------------------------------------------------------------------------------
17 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看
蒙下
3.5
4.5
作者：冰河玩VB 2008-2-21 22:13 回复此发言
--------------------------------------------------------------------------------
18 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看
3.5 居然变成４
4.5 居然还是４
我哭了
作者：冰河玩VB 2008-2-21 22:15 回复此发言
--------------------------------------------------------------------------------
19 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看
pigpag 解释下好么
还有什么问题，尽量提，我要进行第一次修订，以免我以后用的时候错，那个时候可是很烦的
作者：冰河玩VB 2008-2-21 22:17 回复此发言
--------------------------------------------------------------------------------
20 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看
我能发现的就这些啦
那个不是四舍五入，叫四舍六入五留双，是科学实验数据处理的方法。
作者： pigpag 2008-2-21 22:54 回复此发言
--------------------------------------------------------------------------------
21 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看
四舍六入五留双，即当舍或入位大于或小于五时按四舍五入来处理，而当舍或入位等于五时，就要看前面一位是什么，根据奇进偶不进，它总是返回一个偶数值。
虽然16楼的答案我都知道，不过真不知道是这样得来的，原来世界上还有个叫“四舍六入五留双”的东西，又学到了~~~谢谢pigpag~~~~
作者： tzwsoho 2008-2-22 00:05 回复此发言
--------------------------------------------------------------------------------
22 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看
我四舍五入是用formatnumber来实现的，
虚无极
作者： 222.216.2.* 2008-2-22 00:42 回复此发言
--------------------------------------------------------------------------------
23 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看Round函数可以
作者： pigpag 2008-2-22 01:19 回复此发言
--------------------------------------------------------------------------------
24 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看
第一次修订，已经完成，还有什么问题么？各位～我正在检查～～
作者：冰河玩VB 2008-2-22 08:51 回复此发言
--------------------------------------------------------------------------------
25 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看formatnumber这是一个好函数.. ^_^
作者： VB妮可 2008-2-22 08:52 回复此发言
--------------------------------------------------------------------------------
26 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看
那我把这个也写在里面好了
formatnumber是返回一个数字格式的表达式
好象应该属于数学函数中的吧
31 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看
常用内部函数:(第一次修订!!!)
(资料来源：eNet网络学院(不咋地) 整理人:”冰+..河` .,附带例子，有些语法）
[特别鸣谢:pigpag,tzwsoho ,ッ尐虎じ,VB妮可,…烟花飘飘…]
数学函数：
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个字节的字符串
例子：
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
----------------------------
作者：冰河玩VB 2008-2-24 20:17 回复此发言
--------------------------------------------------------------------------------
32 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看
常用内部函数:(第一次修订!!!)
(资料来源：eNet网络学院(不咋地) 整理人:”冰+..河` .,附带例子，有些语法）
[特别鸣谢:pigpag,tzwsoho ,ッ尐虎じ,VB妮可,…烟花飘飘…]
数学函数：
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个字节的字符串
例子：
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)
-----------------------------
Randomize是设定随机种子，Rnd(x)中的x是随机序列的位置。也就是说Rnd(1)生成下一个随机数，Rnd(0)则重新生成与前一次一样的数，Rnd(-1)生成前前随机数。
例子：
Randomize 1
Rnd -1
? Rnd(1),Rnd(0),Rnd(1),Rnd(0),Rnd(-1)
Randomize 2 ' 换种子
Rnd -1
? Rnd(1),Rnd(0),Rnd(1),Rnd(0),Rnd(-1)
Randomize 1 ' 换回来
Rnd -1
? Rnd(1),Rnd(0),Rnd(1),Rnd(0),Rnd(-1)
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
数据类型转换函数：
cint(x) 将数值表达式的值转换成integer类型的，如果表达式的值为小数，就将小数部分的第一位进行四舍六入五留双(类似的的还有Round)
例子：
private sub command1_click()
dim a as string
a = val(text1.text)
msgbox "转换后的结果是：" & cint(a)
------------------------
FormatNumber(原数字，[小数点后的位数])[四舍五入法]
作者：冰河玩VB 2008-2-24 20:18 回复此发言
--------------------------------------------------------------------------------
33 回复：我吐血整理的常用内部函数！（献给像我一样的鸟，高手不要看
------------------------
Round(原数字，[小数点后的位数])[四舍六入五留双,；类似的还有CInt]
-------------------------
ccur(x) 将数值表达试的值转换成货币类型，如果表达式的小数位数多于四位，则转换后只保留四位小数，且自动将第五位小数进行四舍五入'(四舍六入五留双)
例子同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)
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
日期和时间函数：(对日期和时间的操作)
now() 返回当前系统的日期和时间字符串（格式为：年－月－日，时－分－秒）例子：
msgbox "当前日期时间为：" & now()
-----------------------------
date() 返回当前系统的日期字符串（格式为：年－月－日)
例子同now()
------------------------------
time() 返回当前系统的时间字符串（时－分－秒）
例子同now()
------------------------------
year(x) 返回日期字符串中的年份（结果为整型）
例子：
private sub command1_click()
dim a as string
a = cdate(text1.text)
msgbox "当前年份为：" & year(a)
-------------------------------
month(x) 返回日期字符串中的月份（结果为整型）
例子同year(x)
-------------------------------
day(x) 返回日期字符串中的日子（结果为整型）
例子同year(x)
-------------------------------
weekday(x) 求日期中的星期，返回结果为整型（1-星期日,2-星期一,……）
例子同year(x)
-------------------------------
hour(x) 求时间中的小时返回结果为整型
例子同year(x)〔不需要cdate转换〕
--------------------------------
minute(x) 求时间中的分钟返回结果为整型
例子同year(x)〔不需要cdate转换〕
--------------------------------
second(x) 求时间中的秒的返回结果为整型
例子同year(x)〔不需要cdate转换〕
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
输入，输出函数：
tab(x)[在print方法中使用]将输出的内容定位到指定的列上
例子：
private sub form_click()
print "姓名"; tab(10): "籍贯"
-----------------------------
spc(x)[在print方法中使用，不能用于字符串的运算]产生指定数量的空格
例子同tab(x)
------------------------------
space(x)[在print方法中使用，可以用于字符串的运算]产生指定数量的空格例子同tab(x)
-------------------------------
format [在print方法中使用]将表达式按照指定的形式进行输出
private sub form_click()
print format(123456.365,"######,##")
end sub
--------------------------------
inputbox 产生一个输入框
private sub form_click()
dim a as string
a =Inputbox("请输入内容","输入框","hello")
print a
end sub
--------------------------------
msgbox 产生一个消息框
当我被上帝造出来时，上帝问我想在人间当一个怎样的人，我不假思索的说，我要做一个伟大的世人皆知的人。于是，我降临在了人间。
我出生在一个官僚知识分子之家，父亲在朝中做官，精读诗书，母亲知书答礼，温柔体贴，父母给我去了一个好听的名字：李清照。
小时侯，受父母影响的我饱读诗书，聪明伶俐，在朝中享有“神童”的称号。小时候的我天真活泼，才思敏捷，小河畔，花丛边撒满了我的诗我的笑，无可置疑，小时侯的我快乐无虑。
“兴尽晚回舟，误入藕花深处。争渡，争渡，惊起一滩鸥鹭。”青春的我如同一只小鸟，自由自在，没有约束，少女纯净的心灵常在朝阳小，流水也被自然洗礼，纤细的手指拈一束花，轻抛入水，随波荡漾，发髻上沾着晶莹的露水，双脚任水流轻抚。身影轻飘而过，留下一阵清风。
可是晚年的我却生活在一片黑暗之中，家庭的衰败，社会的改变，消磨着我那柔弱的心。我几乎对生活绝望，每天在痛苦中消磨时光，一切都好象是灰暗的。“寻寻觅觅冷冷清清凄凄惨惨戚戚”这千古叠词句就是我当时心情的写照。
最后，香消玉殒，我在痛苦和哀怨中凄凉的死去。
在天堂里，我又见到了上帝。上帝问我过的怎么样，我摇摇头又点点头，我的一生有欢乐也有坎坷，有笑声也有泪水，有鼎盛也有衰落。我始终无法客观的评价我的一生。我原以为做一个着名的人，一生应该是被欢乐荣誉所包围，可我发现我错了。于是在下一轮回中，我选择做一个平凡的人。
我来到人间，我是一个平凡的人，我既不着名也不出众，但我拥有一切的幸福：我有温馨的家，我有可亲可爱的同学和老师，我每天平凡而快乐的活着，这就够了。
天儿蓝蓝风儿轻轻，暖和的春风带着春的气息吹进明亮的教室，我坐在教室的窗前，望着我拥有的一切，我甜甜的笑了。我拿起手中的笔，不禁想起曾经作诗的李清照，我虽然没有横溢的才华，但我还是拿起手中的笔，用最朴实的语言，写下了一时的感受：
人生并不总是完美的，每个人都会有不如意的地方。这就需要我们静下心来阅读自己的人生，体会其中无尽的快乐和与众不同。
“富不读书富不久，穷不读书终究穷。”为什么从古到今都那么看重有学识之人？那是因为有学识之人可以为社会做出更大的贡献。那时因为读书能给人带来快乐。
自从看了《丑小鸭》这篇童话之后，我变了，变得开朗起来，变得乐意同别人交往，变得自信了……因为我知道：即使现在我是只“丑小鸭”，但只要有自信，总有一天我会变成“白天鹅”的，而且会是一只世界上最美丽的“白天鹅”……
我读完了这篇美丽的童话故事，深深被丑小鸭的自信和乐观所折服，并把故事讲给了外婆听，外婆也对童话带给我们的深刻道理而惊讶不已。还吵着闹着多看几本名着。于是我给外婆又买了几本名着故事，她起先自己读，读到不认识的字我就告诉她，如果这一面生字较多，我就读给她听整个一面。渐渐的，自己的语文阅读能力也提高了不少，与此同时我也发现一个人读书的乐趣远不及两个人读的乐趣大，而两个人读书的乐趣远不及全家一起读的乐趣大。于是，我便发展“业务”带动全家一起读书……现在，每每遇到好书大家也不分男女老少都一拥而上，争先恐后“抢书”，当我说起我最小应该让我的时候，却没有人搭理我。最后
还把书给撕坏了，我生气地哭了，妈妈一边安慰我一边对外婆说：“孩子小，应该让着点。”外婆却不服气的说：“我这一把年纪的了，怎么没人让我呀？”大家人你一言我一语，谁也不肯相让……读书让我明白了善恶美丑、悲欢离合，读一本好书，犹如同智者谈心、谈理想，教你辨别善恶，教你弘扬正义。读一本好书，如品一杯香茶，余香缭绕。读一本好书，能使人心灵得到净化。书是我的老师，把知识传递给了我；书是我的伙伴，跟我诉说心里话；书是一把钥匙，给我敞开了知识的大门；书更是一艘不会沉的船，引领我航行在人生的长河中。其实读书的真真乐趣也就在于此处，不是一个人闷头苦读书；也不是读到好处不与他人分享，独自品位；更不是一个人如痴如醉地沉浸在书的海洋中不能自拔。而是懂得与朋友，家人一起分享其中的乐趣。这才是读书真正之乐趣呢！这所有的一切，不正是我从书中受到的教益吗？
我阅读，故我美丽；我思考，故我存在。我从内心深处真切地感到：我从读书中受到了教益。当看见有些同学宁可买玩具亦不肯买书时，我便想到培根所说的话：“世界上最庸俗的人是不读书的人，最吝啬的人是不买书的人，最可怜的人是与书无缘的人。”许许多多的作家、伟人都十分喜欢看书，例如毛泽东主席，他半边床上都是书，一读起书来便进入忘我的境界。
书是我生活中的好朋友，是我人生道路上的航标，读书，读好书，是我无怨无悔的追求。
VB函数大全_基本函数大全 Abs 函数返回数的绝对值。 And 运算符执行两个表达式的逻辑连接。 Array 函数返回含一数组的变体。 Asc 函数返回字符串首字母的ANSI 字符代码。 赋值运算符(=) 给变量或属性赋值。 Atn 函数返回数的反正切值。 调用语句将控制移交Sub 或Function 过程。 CBool 函数返回已被转换为Boolean 子类型的变体的表达式。 CByte 函数返回已被转换为字节子类型的变体的表达式。 CCur 函数返回已被转换为货币子类型的变体的表达式。 CDate 函数返回已被转换为日期子类型的变体的表达式。 CDbl 函数返回已被转换为双精度子类型的变体的表达式。 Chr 函数返回指定ANSI 字符码的字符。 CInt 函数返回已被转换为整数子类型的变体的表达式。 Class 对象提供对已创建的类的事件的访问。 Class 语句声明类名 Clear 方法清除Err 对象的所有属性设置。 CLng 函数返回已被转换为Long 子类型的变体的表达式。 颜色常数颜色常数列表。 比较常数用于比较运算的常数列表。 连接运算符(&) 强制两个表达式的字符串连接。 Const 语句声明用于字母值的常数。 Cos 函数返回角度的余弦值。 CreateObject 函数创建并返回对“自动”对象的引用。 CSng 函数返回已被转换为单精度子类型的变体的表达式。 CStr 函数返回已被转换为字符串子类型的变体的表达式。 日期和时间常数在日期和时间运算中用来定义星期几和其他常数的常数列表。日期格式常数用于日期和时间格式的常数列表。 Date 函数返回当前系统日期。 DateAdd 函数返回加上了指定的时间间隔的日期。 DateDiff 函数返回两个日期之间的间隔。 DatePart 函数返回给定日期的指定部分。 DateSerial 函数返回指定年月日的日期子类型的变体。 DateValue 函数返回日期子类型的变体。 Day 函数返回日期，取值范围为1 至31。 Description 属性返回或者设置说明某个错误的字符串。 Dictionary 对象存储数据键、项目对的对象。 Dim 语句声明变量并分配存储空间。 除法运算符(/) 两数相除并以浮点数格式返回商。 Do...Loop 语句当条件为True 或者当条件变为True 时，重复一语句块。Empty 表示尚未初始化的变量值。 Eqv 运算符使两个表达式相等。 Erase 语句重新初始化固定数组的元素并重新分配动态数组的存储空间。 Err 对象含有关于运行时错误的信息。 Eval 函数计算并返回表达式的值。 Execute 方法根据指定的字符串，执行正则表达式的搜索。 Execute 语句执行单个或更多的指定语句。 Exit 语句退出Do...Loop、For...Next、Function 或Sub 代码块。 Exp 函数返回e （自然对数的底）的多少次方。 自乘运算符(^) 指数函数，幂为自变量。 False 关键字，其值为零。
Abs 函数返回数的绝对值。 And 运算符执行两个表达式的逻辑连接。 Array 函数返回含一数组的变体。 Asc 函数返回字符串首字母的ANSI 字符代码。 赋值运算符(=) 给变量或属性赋值。 Atn 函数返回数的反正切值。 调用语句将控制移交Sub 或Function 过程。 CBool 函数返回已被转换为Boolean 子类型的变体的表达式。 CByte 函数返回已被转换为字节子类型的变体的表达式。 CCur 函数返回已被转换为货币子类型的变体的表达式。 CDate 函数返回已被转换为日期子类型的变体的表达式。 CDbl 函数返回已被转换为双精度子类型的变体的表达式。 Chr 函数返回指定ANSI 字符码的字符。 CInt 函数返回已被转换为整数子类型的变体的表达式。 Class 对象提供对已创建的类的事件的访问。 Class 语句声明类名 Clear 方法清除Err 对象的所有属性设置。 CLng 函数返回已被转换为Long 子类型的变体的表达式。 颜色常数颜色常数列表。 比较常数用于比较运算的常数列表。 连接运算符(&) 强制两个表达式的字符串连接。 Const 语句声明用于字母值的常数。 Cos 函数返回角度的余弦值。 CreateObject 函数创建并返回对“自动”对象的引用。 CSng 函数返回已被转换为单精度子类型的变体的表达式。 CStr 函数返回已被转换为字符串子类型的变体的表达式。 日期和时间常数在日期和时间运算中用来定义星期几和其他常数的常数列表。日期格式常数用于日期和时间格式的常数列表。 Date 函数返回当前系统日期。 DateAdd 函数返回加上了指定的时间间隔的日期。 DateDiff 函数返回两个日期之间的间隔。 DatePart 函数返回给定日期的指定部分。 DateSerial 函数返回指定年月日的日期子类型的变体。 DateValue 函数返回日期子类型的变体。 Day 函数返回日期，取值范围为1 至31。 Description 属性返回或者设置说明某个错误的字符串。 Dictionary 对象存储数据键、项目对的对象。 Dim 语句声明变量并分配存储空间。 除法运算符(/) 两数相除并以浮点数格式返回商。 Do...Loop 语句当条件为True 或者当条件变为True 时，重复一语句块。Empty 表示尚未初始化的变量值。 Eqv 运算符使两个表达式相等。 Erase 语句重新初始化固定数组的元素并重新分配动态数组的存储空间。 Err 对象含有关于运行时错误的信息。
VB常用字符串操作函数2009/11/25 18:321. ASC(X，Chr(X：转换字符字符码[格式]： P=Asc(X 返回字符串X的第一个字符的字符码 P=Chr(X 返回字符码等于X的字符 [范例]：(1P=Chr(65 ‘ 输出字符A,因为A的ASCII码等于65 (2P=Asc(“A” ‘ 输出65 2. Len(X：计算字符串X的长度 [格式]： P=Len(X [说明]：空字符串长度为0，空格符也算一个字符，一个中文字虽然占用2 Bytes，但也算 一个字符。 [范例]： (1 令X=”” (空字符串 Len(X 输出结果为0 (2 令X=”abcd” Len(X 输出结果为4 (3 令X=”VB教程” Len(X 输出结果为4 3. Mid(X函数：读取字符串X中间的字符 [格式]： P=Mid(X,n 由X的第n个字符读起，读取后面的所有字符。 P=Mid(X,n,m 由X的第n个字符读起，读取后面的m个字符。 [范例]： (1 X=”abcdefg” P=Mid(X,5 结果为：P=”efg” (2 X=”abcdefg” P=Mid(X,2,4 结果为 P=”bcde” 4. R eplace: 将字符串中的某些特定字符串替换为其他字符串 [格式]： P=Replace(X,S,R [说明]：将字符串X中的字符串S替换为字符串R，然后返回。[范例]：X=”VB is very good” P=Replace(X,good,nice 输出结果为：P=”VB is very nice” 5. StrReverse：反转字符串 [格式]： P=StrReverse(X [说明]：返回X参数反转后的字符串 [范例]：（1）X=”abc” P=StrReverse(X 输出结果：P=”cba” 6. Ucase(X，Lcase(X：转换英文字母的大小写 [格式]：P=Lcase(X ‘ 将X字符串中的大写字母转换成小写P=Ucase(X ‘ 将X字符串中的小写字母转换成大写 [说明]：除了英文字母外，其他字符或中文字都不会受到影响。 [范例]：（1）令X=”VB and VC” 则Lcase(X的结果为”vb and vc”，Ucase(X的结果为”VB AND VC” 7. InStr函数：寻找字符串 [格式]： P=InStr(X,Y 从X第一个字符起找出Y出现的位置 P=InStr(n,X,Y 从X第n个字符起找出Y出现的位置 [说明]：（1）若在X中找到Y，则返回值是Y第一个字符出现在X中的位置。（2） InStr(X,Y相当于 InStr(1,X,Y。（3）若字符串长度，或X为空字符串，或在X中找不到Y，则都 返回0。（4）若Y为空字符串，则返回0。 ---------------------------------------------------------------------------------------------- mid(字符串，从第几个开始，长度 ByRef 在[字符串]中[从第几个开始]取出[长度个字符串] 例如 mid("小欣无敌",1,3 则返回 "小欣无" instr(从第几个开始,字符串1,字符串2 ByVal 从规定的位置开始查找，返回字符
字符函数 函数名 功能 示例 ASC 返回一个Integer，代表字符串中首字母的字符代码。 Asc(string) CHR 返回String，其中包含有与指定的字符代码相关的字符 Chr(charcode) Format 返回Variant (String)，其中含有一个表达式，它是根据格式表达式中的指令来格式化的。 Format(expression[, format[, firstdayofweek[, firstweekofyear]]]) Hex 返回代表十六进制数值的String。 Hex(number) InStr 返回Variant (Long)，指定一字符串在另一字符串中最先出现的位置。 InStr([start, ]string1, string2[, compare]) InstrRev 返回一个字符串在另一个字符串中出现的位置，从字符串的末尾算起。 InstrRev(string1, string2[, start[, compare]]) Join 返回一个字符串，该字符串是通过连接某个数组中的多个子字符串而创建的。 Join(list[, delimiter]) LCase 返回转成小写的String。 LCase(string) Left 返回Variant (String)，其中包含字符串中从左边算起指定数量的字符。 Left(string, length) Len 返回Long，其中包含字符串内字符的数目，或是存储一变量所需的字节数。
Len(string | varname) Ltrim Rtrim Trim 返回Variant (String)，其中包含指定字符串的拷贝，没有前导空白(LTrim)、尾随空白(RTrim) 或前导和尾随空白(Trim)。 LTrim(string)RTrim(string)Trim(string) Mid 返回Variant (String)，其中包含字符串中指定数量的字符。 Mid(string, start[, length]) Partition 返回一个Variant (String)，指定一个范围，在一系列计算的范围中指定的数字出现在这个范围内。 Partition(number, start, stop, interval) Replace 返回一个字符串，该字符串中指定的子字符串已被替换成另一子字符串，且替换发生的次数也是指定的。 Replace(expression, find, replacewith[, start[, count[, compare]]]) Right 返回Variant (String)，其中包含从字符串右边取出的指定数量的字符。 Right(string, length) Space 返回特定数目空格的V ariant (String)。 Space(number) Split 返回一个下标从零开始的一维数组，它包含指定数目的子字符串。 Split(expression[, delimiter[, count[, compare]]]) StrComp 返回Variant (Integer)，为字符串比较的结果。 StrComp(string1, string2[, compare]) String 返回Variant (String)，其中包含指定长度重复字符的字符串。 String(number, character) StrReverse 返回一个字符串，其中一个指定子字符串的字符顺序是反向的。 StrReverse(string1)
VB函数大全 Calendar 常数 可在代码中的任何地方用下列常数代替实际值： 常数值描述 vbCalGreg 0 指出使用的是阳历。 vbCalHijri 1 指出使用的是伊斯兰历法。 -------------------------------------------------------------------------------- Color 常数 可在代码中的任何地方用下列常数代替实际值： 常数值描述 vbBlack 0x0 黑色 vbRed 0xFF 红色 vbGreen 0xFF00 绿色 vbYellow 0xFFFF 黄色 vbBlue 0xFF0000 蓝色 vbMagenta 0xFF00FF 紫红色 vbCyan 0xFFFF00 青色 vbWhite 0xFFFFFF 白色 -------------------------------------------------------------------------------- Comparison常数 下列常数由 Visual Basic for Applications 中的类型库定义，可用来在代码中的任何地方代替实际值： 常数值描述 VbUseCompareOption -1 使用Option Compare语句的设置进行比较。VbBinaryCompare 0 进行二进制的比较。 VbTextCompare 1 进行文字的比较。 vbDatabaseCompare 2 用于 Microsoft Access(仅限于Windows)，进行以数据库所含信息为基础的比较。 -------------------------------------------------------------------------------- Compiler 常数
ASP纯ASP VBscript常用函数： 1.数值型函数： abs(num): 返回绝对值 sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负 hex(num): 返回十六进制值直接表示：&Hxx 最大8位 oct(num): 返回八进制值直接表示：&Oxx 最大8位 sqr(num): 返回平方根num>0 int(num): 取整int(99.8)=99; int(-99.2)=100 fix(num): 取整fix(99.8)=99; fix(-99.2)=99 round(num,n): 四舍五入取小数位round(3.14159,3)=3.142 中点数值四舍五入为近偶取整round(3.25,1)=3.2 log(num): 取以e为底的对数num>0 exp(n): 取e的n次幂通常用num^n sin(num): 三角函数，以弧度为值计算(角度*Pai)/180=弧度con(num); tan(num); atn(num) 2.字符串函数： len(str)：计算字符串长度中文字符长度也计为一！ mid(str,起始字符,[读取长度])：截取字符串中间子字符串 left(str,nlen)：从左边起截取nlen长度子字符串 right(str,nlen)：从右边起截取nlen长度子字符串 Lcase(str)：字符串转成小写 Ucase(str)：字符串转成大写 trim(str)：去除字符串两端空格 Ltrim(str)：去除字符串左侧空格 Rtrim(str)：去除字符串右侧空格 replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串 注：默认值：起始字符1；替代次数不限；比较方法区分大小写（0）
VB常用函数大全 现在的编程软件像VB，C++等，大多自带功能很强的函数库，可以很省力得完成各种功能。很多时候，想不起来实现某个功能的函数或函数格式，导致编程大费周折。作为一个编程人员，我对此深有体会。因此，特地准备了几期VB常用函数的介绍，供大家学习或参考。有说的不当之处，也欢迎在本网站的论坛中提出，大家学习。 （一）类型转换类函数 1、CType(X) [格式]： P=CBool(X) 将X转换为“布尔”（Boolean）类型 P=CByte(X) 将X转换为“字节”（Byte）类型 P=CCur(X) 将X转换为“金额”（Currency）类型 P=CDate(X) 将X转换为“日期”（Date）类型 P=CDbl(X) 将X转换为“双精度”（Double）类型 P=CHr(X) 返回字符码对应的字符 P=CInt(X) 将X转换为“整型”（Integer）类型 P=CLng(X) 将X转换为“长整型”（Long）类型 P=CSng(X) 将X转换为“单精度”（Single）类型 P=CStr(X) 将X转换为“字符串”（String）类型 P=Cvar(X) 将X转换为“变体型”（Variant）类型 P=CVErr(X) 将X转换为Error值 [ 范例]：(1) CStr(13)+CStr(23) 数值转换成字符串后，用“+”号连接，结果：1323 (2) CInt("12")+12 字符串转换成整型后与12相加，结果：24 (3) P=CInt(True) 输出结果为-1，布尔值与数值的转换时要注意，布尔值只有True和False，其中True在内存中为-1，False存为0 (4) CBool(-0、001) 输出结果为True。将数值转换为布尔型时，等于0的数值将得到False，不等于0的数值得到True 2、Int(X)，Fix(X)：取X的整数值 [格式]： P=Int(X) 取<=X的最大整数值 P=Fix(X) 取X的整数部分，直接去掉小数 [范例]：(1) Int(-54、6) 结果为-55，取<=-54、6的最大整数 (2) Fix(54、6) 结果为54，取整数并直接去掉小数 （二）常用数学函数 [格式]： 1、Abs(N) 取绝对值 例：Abs(-3、5) 结果：3、5 2、Cos(N) 余弦函数 例：Cos(0) 结果：1 3、Exp(N) e为底的指数函数 例：Exp(3) 结果：20、068 4、Log(N) 以e为底的自然对数
VB函数与过程 教学目的： 1、熟悉VB中函数的含义及函数的分类。 2、掌握VB中用户函数的定义及应用。 3、掌握VB中通用过程的含义及使用方法。 教学重点： 1、VB中函数基本概念的理解。 2、VB中用户函数定义方法。 3、VB中变量的作用范围。 4、VB中通用过程的应用。 课时安排： 理论教学安排6课时，上机练习8课时 一、VB通用过程 1、重复使用的程序段独立定义为过程。 2、过程的分类 （1）事件过程（例如click,dblclick,……） （2）通用过程（由用户定义，可供VB过程来调用；用户定义的过程称为“子过程”）3、通用调用流程： 程序过程： （1）调用过程可以事件过程或者用户定义过程。调用过程按顺序执行时，遇到CALL命令则转向指定的子过程。 （2）子过程按顺序执行，遇到子过程的结束语句时，返回到调用过程的断点后一条语句（CALL的下一条语句）。
（3）调用过程接着执行，遇CALL命令重复（2）；否则执行到程序结束。 4、VB中的通用过程： （1）SUB（过程）------无返值 （2）FUNCTION（函数）-------有返值 二、SUB过程 上机练习： P165例7.1 Private Sub Form_Load() Show Call sub1(30) Call sub2 Call sub2 Call sub2 Call sub2 Call sub2 Call sub2 Call sub1(30) End Sub Private Sub sub1(n) Print String(n, "*") 'string函数用来重复出现n次"*" End Sub Private Sub sub2() Print "*"; T ab(30); "*" End Sub 1、Sub过程的定义 Private|public|static sub 过程名(形式参数列表) 过程语句块(可以含有Exit sub) End sub （1）Private表示过程只在当前模块有效，public则表示在整个程序范围都有效。 （2）Static表示过程的局部变量静态分配空间（局部变量保持到整个程序结束才释放，而动态变量则是过程退出就释放变量。） 2、Sub过程的建立 （1）窗体中打开代码窗口（.frm），选择通用过程，直接编写sub过程。 （2）在标准模块（.bas）中来创建sub过程。 第一步，在“工程”菜单或工程面板的快捷菜单中选择“添加模块”。 第二步，在“工具”菜单中选择“添加过程”，弹出“过程对话框”，输入过程名，录入过程代码；也可以直接在通用代码框中录入过程。 注意：在标准模块书写通用过程时，单独保存.bas的模块文件。如果过程中使用窗体等对象，不能省缺对象名。 3、Sub过程的调用 Call 过程名(实参数表) 过程名实参表 上机练习：
VB基础教程：第三章第三节VB的公共函数 3.3 VB的公共函数 1. 数学函数 VB中常用的数学函数 函数名 功能 示例 结果 Sqr（x） 求平方根 Sqr（9） 3 Log（x） 求自然对数，x>0 Log（10） 2.3 Exp（x）
求以e为底的幂值,即求ex Exp（3） 20.086 Abs（x） 求x的绝对值 Abs（-2.5） 2.5 Hex[$]（x） 求x的十六进制数，返回的是字符型值 Hex[$]（28） "1C" Oct[$]（x） 求x的八进制数，返回的是字符型值 Oct[$]（10） "12" Sgn(x) 求x的符号, 当x>0, 返回1 ；x=0, 返回0；x Sgn(15)
Rnd(x) 产生一个在（0，1）区间均匀分布的随机数，每次的值都不同；若x=0，则给出的是上一次本函数产生的随机数 Rnd(x) 0-1之间的数 Sin(x) 求x的正弦值，x的单位是弧度 Sin(0) Cos(x) 求x的余弦值，x的单位是弧度 Cos(1) 0.54 Tan(x) 求x的正切值，x的单位是弧度 Tan(1) 1.56
Atn(x) 求x的反正切值，x的单位是弧度，函数返回的是弧度值 Atn(1) 0.79 2. 字符函数 （1）字符串编码 在Windows采用的DBCS（Double Byte Character Set）编码方案中，一个汉字在计算机内存中占2个字节，一个西文字符（ASCII码）占1个字节，但在VB中采用的是Unicode（ISO字符标准）来存储字符的，所有字符都占2个字节。为方便使用，可以用StrConv函数来对Unicode 与DBCS进行转换，可以用函数Len（）函数求字符串的字符数，用LenB（）函数求字符串的字节数。 （2）常用的字符串函数 函数名 功能 示例 结果 Len（x） 求x字符串的字符长度(个数) Len("ab技术")
VB中各种数据类型转换函数 所属类别：VB 推荐指数：★★★★ 文档人气：23150 本周人气：118 发布日期：2006-3-14 在VB中,提供了很多数据类型转换的函数,特别是各种进制数据的转换以及字符串和数 字的转换函数,本文将对这些函数做一个简单的小结. 1. 各种进制转换函数 一般的数据进制包括十进制,二进制,十六进制.十进制就是我们日常生活用到的数据进制,因此也是我们最熟悉和清楚的;二进制是计算机的基础进制,主要是因为便于用物理器件实现二进制;八进制和十六进制因为和二进制的天然的亲密关系,并且表示比二进制更方便,因而也成为计算机的常用表示方法. VB中涉及到的数据进制之间的转换函数主要有如下几个: Hex 函数: 返回代表十六进制数值的String; Oct 函数: 返回代表一数值的八进制值的Variant (String); Cint函数: 强制将一个表达式转换成-32,768 至32,767的整型; CLng函数: 强制将一个表达式转换成-2,147,483,648 至2,147,483,647的长整型; Cdec函数: 强制将一个表达式转换成Decimal 数据类型; CDbl函数: 强制将一个表达式转换成Double 数据类型; 以上这些函数是最基本的几个数据进制之间的转换函数,其中以前三个函数最常用,也最有用.从上面几个函数我们可以看到,VB中没有为我们提供专门的函数供我们将表达式或是数据转换成十进制和二进制,不过十进制的转换我们可以通过Cint函数轻松完成,而二进制的实现我们可以通过二进制和八进制,十六进制的关 系轻松转换. 下面几个例子为Hex函数和Oct函数以及Cint函数的实例: (1). A= hex(5) 返回5; (2). B=hex(10) 返回A (3). C=hex(23) 返回17 (4). D=oct(5) 返回5 (5). E=oct(10) 返回12 (6). F=oct(23) 返回27 (7). G=Cint(&H17) 返回23 (8) . H=Cint(&O12) 返回10 以上这些函数的应用比较简单,就不多说了,值得一提的是Hex函数和Oct函数返回的都是字符串,如果是想将十六进制或是八进制的字符串变量转换成十进制,可以按如下方法进行: C=”17” 17为十六进制数值的String C=”&H” & C Ic=Cint(C) 返回23
function是函数，sub是子程序，都可以传递参数，但函数有返回值，子程序没有 function 可以用自身名字返回一个值，sub 需定义别的变量，用传址方式传回值。 Sub 过程与Function 过程的区别： 1．Sub 过程定义时无需定义返回值类型，而Function 过程一般需要用“As 数据类型”定义函数返回值类型。 2．Sub 过程中没有对过程名赋值的语句，而Function 过程中一定有对函数名赋值的语句。 3．调用过程：调用Sub 过程与Function 过程不同。调用Sub 过程的是一个独立的语句，而调用函数过程只是表达式的一部分。Sub 过程还有一点与函数不一样，它不会用名字返回一个值。但是，与Function过程一样，Sub 过程也可以修改传递给它们的任何变量的值。 4．调用Sub 过程有两种方法： 以下两个语句都调用了名为MyProc 的Sub 过程。 Call MyProc (FirstArgument, SecondArgument) MyProc FirstArgument, SecondArgument 注意当使用Call 语法时，参数必须在括号内。若省略Call 关键字，则也必须省略参数两边的括号。 在VB中，子过程与函数过程只有一处区别（要学好VB一定要记住），区别就是：子过程没有返回值，函数过程有返回值。 子过程用于编写一些代码的集合，函数过程用于建立函数。我兴个例吧。 例如，我要做多处要做如下事件，我只要编写一个子过程，在其它事件下，我只要把子过程的名称写下就行了。 Private Sub ABC(A As Integer, B As Integer, C As Integer) A = 1 B = 1 C = 1 End Sub Private Sub Command1_Click() ABC '按扭一就调用了该子过程了，而不用再写子过程的代码。 End Sub Private Sub Command2_Click() ABC '按扭二就调用了该子过程了，而不用再写子过程的代码。 End Sub
第五章常用内部函数 教学目的及要求： 使学生掌握函数的概念，函数的调用格式，VB中的常用内部函数。 重点与难点： 1、学会调用内部函数进行各种运算。 2、掌握调用各种函数时需要的参数、函数的参数类型和函数返回值类型，这也是本章的难点。 主要外语词汇： ANSI 、function randomize、 format 授课内容： 1、函数的分类：（1）内部函数 （2）外部函数（用户自定义函数、函数过程） 2、VB常用的内部函数有：数学函数、字符串函数、转换函数、日期与时间函数、其他函数。 3、函数的一般调用格式为：函数名([参数表]) 注：参数的类型和个数。 若参数类型或个数不匹配，则提示出错信息。 4、方法与函数的区别： （1）方法可以单独作为语句使用，函数不可以。 （2）方法没有返回值，函数有返回值。 （3）方法的格式：[对象名.]方法 [参数列表] 函数的格式：①变量名=函数名([参数列表]) ②[对象名.]属性=函数名([参数列表]) 5、一般将函数值进行输出或赋值给某个变量。 第一节常用函数 一、数学函数： 1、利用Log(N)/Log(10)得到Lg(N)的值。 2、注意函数Int(N)、Fix(N)、Cint(N)和Round(N)之间的区别。 例1：05_1.vbp 二、字符串函数： 1、常用的字符串函数： （1）Len(S)：测试字符串S的字符个数，中西文字符均算1个字符。 （2）LenB(S)：测试字符串S的字节数，中西文字符均占2个字节。
LenB(S)=2*Len(S) （3）Ucase(S)：将字符串S中的小写字母改为大写字母。 （4）Lcase(S)：将字符串S中的大写字母改为小写字母。 （5）String(N,S)：重复输出N个S单个字符 例：Print String(5,“a”) Print String(5,“abcd”) 结果相同 2、在字符串函数名后面可以加“$”符号。 例：Print String(5,“*”) Print String$(5,“*”) 等价 3、字符串的编码方案： （1）ANSI方式： 美国国家标准协会制定，西文字符占用1个字节，汉字占用2个字节。（2）UniCode方式： 国际标准化组织ISO制定，西文字符和汉字统一进行编码，占用2个字节。VB6.0内部采用UniCode编码形式来存储字符串。 4、字符处理函数：针对字符数，中西文字符均算1个字符。 字符处理函数+B：针对字节数，中西文字符均占2个字节。 5、StrConv函数： 格式：StrConv( S,指定格式 ) （1）S：要转换的字符串表达式。 （2）指定格式： ① vbUnicode（64）：ANSI格式 -> UniCode格式 ② vbFromUnicode（128）：UniCode格式 -> ANSI格式 ③ vbUpperCase（1）：将字符串S文字转换成大写 ④ vbLowerCase（2）：将字符串S文字转换成小写 ⑤ vbProperCase（3）：将字符串S每个字的开头字符转换成大写 总结： 1、小写 -> 大写 2、大写 -> 小写 （1）UCase(S) （1）LCase(S) （2）StrConv(S,vbUpperCase) （2）StrConv(S,vbLowerCase) 例：Private Sub Command1_Click( ) Dim x As String ,y As String x = Text1.Text y = UCase(x) ‘ y = StrConv(x,vbUpperCase) Text2.Text = y End Sub
VB常用函数： 1.数值型函数： int(num): 取整int(99.8)=99; int(-99.2)=-100 fix(num):取整fix(99.8)=99; fix(-99.2)=-99 round(num,n): 四舍五入取小数位round(3.14159,3)=3.142 中点数值四舍五入为近偶取整round(3.25,1)=3.3 sqr(num) 取根号 2.字符串函数： len(str)：计算字符串长度中文字符长度也计为一！mid(str,起始字符,[读取长度])：截取字符串中间子字符串 left(str,nlen)：从左边起截取nlen长度子字符串 right(str,nlen)：从右边起截取nlen长度子字符串 trim(str)：去除字符串两端空格 replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串 注：默认值：起始字符1；替代次数不限；比较方法区
分大小写（0） InStr([起始字符,]str,查找字符串[,比较方法])：检测是否包含子字符串可选参数需同时选返回起始位置InStrrev() split(str,分割字符串[,次数][,比较方法])：以分割字符串为分割标志将字符串转为字符数组可选参数需同时选CHR（num）通过ASCII值获取一个字符 chr(32) 空格 chr(13) 回车 Ucase(str)所有字符转成大写 Lcase(str)所有字符转成小写 3.数据类型转换函数： Cint(str)：转换正数True -1；False 0；日期距离1899/12/31天数；时间上午段0；下午段1； Cstr(str)：日期输出格式yyyy/mm/dd；时间输出格式Am/Pm hh:mm:ss Csng(str)：转换为单精度数值 Cdbl(str)：转换为双精度数值 Cdate() 4.时间函数： date：取系统当前日期
VB系统函数 Abs 函数返回数的绝对值。 And 运算符执行两个表达式的逻辑连接。 Array 函数返回含一数组的变体。 Asc 函数返回字符串首字母的ANSI 字符代码。 赋值运算符(=) 给变量或属性赋值。 Atn 函数返回数的反正切值。 调用语句将控制移交Sub 或Function 过程。 CBool 函数返回已被转换为Boolean 子类型的变体的表达式。 CByte 函数返回已被转换为字节子类型的变体的表达式。 CCur 函数返回已被转换为货币子类型的变体的表达式。 CDate 函数返回已被转换为日期子类型的变体的表达式。 CDbl 函数返回已被转换为双精度子类型的变体的表达式。 Chr 函数返回指定ANSI 字符码的字符。 CInt 函数返回已被转换为整数子类型的变体的表达式。 Class 对象提供对已创建的类的事件的访问。 Class 语句声明类名 Clear 方法清除Err 对象的所有属性设置。 CLng 函数返回已被转换为Long 子类型的变体的表达式。 颜色常数颜色常数列表。 比较常数用于比较运算的常数列表。 连接运算符(&) 强制两个表达式的字符串连接。 Const 语句声明用于字母值的常数。 Cos 函数返回角度的余弦值。 CreateObject 函数创建并返回对“自动”对象的引用。 CSng 函数返回已被转换为单精度子类型的变体的表达式。 CStr 函数返回已被转换为字符串子类型的变体的表达式。 日期和时间常数在日期和时间运算中用来定义星期几和其他常数的常数列表。日期格式常数用于日期和时间格式的常数列表。 Date 函数返回当前系统日期。 DateAdd 函数返回加上了指定的时间间隔的日期。 DateDiff 函数返回两个日期之间的间隔。 DatePart 函数返回给定日期的指定部分。 DateSerial 函数返回指定年月日的日期子类型的变体。 DateValue 函数返回日期子类型的变体。 Day 函数返回日期，取值范围为 1 至31。 Description 属性返回或者设置说明某个错误的字符串。 Dictionary 对象存储数据键、项目对的对象。 Dim 语句声明变量并分配存储空间。 除法运算符(/) 两数相除并以浮点数格式返回商。 Do...Loop 语句当条件为True 或者当条件变为True 时，重复一语句块。
VB内置函数大全 Abs(number) 返回参数的绝对值，其类型和参数相同。 必要的 number 参数是任何有效的数值表达式，如果 number 包含 Null，则返回 Null，如果 number 是未初始化的变量，则返回 0。 一个数的绝对值是将正负号去掉以后的值。例如，ABS(-1) 和 ABS(1) 都返回 1。 Array(arglist) 返回一个包含数组的 Variant。 所需的 arglist 参数是一个用逗号隔开的值表，这些值用于给 Variant 所包含的数组的各元素赋值。如果不提供参数，则创建一个长度为 0 的数组。 用来表示数组元素的符号由变量名、圆括号以及括号中的所需元素的索引号组成。在下面的示例中，第一条语句创建一个 Variant 的变量 A。第二条语句将一个数组赋给变量 A。最后一条语句将该数组的第二个元素的值赋给另一个变量。Dim A As Variant A = Array(10,20,30) B = A(2) 使用 Array 函数创建的数组的下界受 Option Base 语句指定的下界的决定, 除非 Array 是由类型库（例如 VBA.Array )名称限定。如果是由类型库名称限定，则 Array 不受 Option Base 的影响。 注意没有作为数组声明的 Variant 也可以表示数组。除了长度固定的字符串以及用户定义类型之外，Variant 变量可以表示任何类型的数组。尽管一个包含数组的 Variant 和一个元素为 Variant 类型的数组在概念上有所不同，但对数组元素的访问方式是相同的。 Asc(string) 返回一个 Integer，代表字符串中首字母的字符代码。 必要的 string 参数可以是任何有效的字符串表达式。如果 string 中没有包含任何
ＶＢ简单易学，如果有更多函数可以调用，会让ＶＢ使用起来更加方便．作者收集和自创了一些好用的函数在这里和大家交流一下。 一：很多运算要求输入必须是数字，否则运行程序就会出错，以下是判断字节是否为数字的函数。 Function CheckData(ByVal mydata) As Boolean For I = 1 To Len(mydata) If Asc(Mid(mydata, I, 1)) < 48 Or Asc(Mid(mydata, I, 1)) > 57 Then CheckData = False Exit For End If CheckData = True Next I End Function 二：网页下载的中文有多种编码，比如UTF-8、GB2312等等,用以下函数默认读取UTF-8，但是可以通过ReadFile(路径＋文件名, "GB2312")方式读取其它编码的文件。 Public Function ReadFile(ByVal FileName As String, Optional Codify As String = "UTF-8") As String Dim objStream As Object Set objStream = CreateObject("ADODB.Stream") With objStream .Type = 2 .Mode = 3 .Open .Charset = Codify '不同编码可以换 .LoadFromFile FileName ReadFile = .ReadText .Close End With End Function 三：VB经常需要运行外部命令和程序，但是这些程序是否已经运行完毕VB 不好判断，以下函数利用API和SHELL 命令函数判断运行的外部命令和程序是否运行完毕。 1.先在Form1中声明OpenProcess和CloseHandle 这两个Windows API 函数 Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long 2.然后编写下面的函数: Function IsRunning(ByVal ProgramID) As Boolean ' 传入进程标识ID Dim hProgram As Long '被检测的程序进程句柄
Left 函数 返回Variant (String)，其中包含字符串中从左边算起指定数量的字符。 语法 Left(string, length) Left函数的语法有下面的命名参数： 说明 欲知string 的字符数，使用Len函数。 注意LeftB函数作用于包含在字符串中的字节数据。所以length 指定的是字节数，而不是要返回的字符数。 Mid 函数 从字符串中返回指定数目的字符。 Mid(string, start[, length]) 参数 string 字符串表达式，从中返回字符。如果string包含Null，则返回Null。 Start string中被提取的字符部分的开始位置。如果start超过了string中字符的数目，Mid将返回零长度字符串("")。 Length 要返回的字符数。如果省略或length超过文本的字符数（包括start处的字符），将返回字符串中从start到字符串结束的所有字符。 说明 要判断string中字符的数目，可使用Len函数。 下面的示例利用Mid函数返回字符串中从第四个字符开始的六个字符： Dim MyVar MyVar = Mid("VB脚本is fun!", 4, 6) 'MyVar 包含"Script"。 注意 MidB函数与包含在字符串中的字节数据一起使用。其参数不是指定字符数，而是字节数。
返回字符串内字符的数目，或是存储一变量所需的字节数。 Len(string | varname) 参数 string 任意有效的字符串表达式。如果string参数包含Null，则返回Null。 Varname 任意有效的变量名。如果varname 参数包含Null，则返回Null。 说明 下面的示例利用Len函数返回字符串中的字符数目： Dim MyString MyString = Len("VBSCRIPT") 'MyString 包含8。 注意 LenB函数与包含在字符串中的字节数据一起使用。LenB不是返回字符串中的字符数，而是返回用于代表字符串的字节数。 Right 函数 从字符串右边返回指定数目的字符。 Right(string, length) 参数 string 字符串表达式，其最右边的字符被返回。如果string参数中包含Null，则返回Null。Length 数值表达式，指明要返回的字符数目。如果为0，返回零长度字符串；如果此数大于或等于string 参数中的所有字符数目，则返回整个字符串。 说明 要确定string参数中的字符数目，使用Len函数。 下面的示例利用Right函数从字符串右边返回指定数目的字符： Dim AnyString, MyStr AnyString = "Hello World" ' 定义字符串。 MyStr = Right(AnyString, 1)' 返回"d"。 MyStr = Right(AnyString, 6)' 返回" World"。 MyStr = Right(AnyString, 20)' 返回"Hello World"。 注意 RightB函数用于字符串中的字节数据，length参数指定返回的是字节数目，而不是字符数目。