=====Command1.SetFocus '移动控件焦点
====转换函数 目标类型
Cbool Boolean
Cbyte Byte
Cdate Date 日期型
Cstr String
Cvar Variant
cverr Error
Hex 十六进制数
Str 将字符串以数字返回
Val 返回字符串内的数字
====类型转换函数
1、 Int(x) :求不大于自变量x的最大整数
2、 Fix(x) :去掉一个浮点数的小数部分,保留其整数部分
3、 Hex$(x):把一个十进制数转换为十六进制数
4、 Oct$(x):把一个十进制数转换为八进制数
5、 Asc(x$):返回字符串x$中第一个字符的ASCII字符
6、 Chr$(x):把x的值转换为相应的ASCII字符
7、 Str$(x):把x的值转换为一个字符串
8、 Cint(x):把x的小数部分四舍五入,转换为整数
9、 Ccur(x):把x的值转换为货币类型值,小数部分最多保留4 位且自动四舍五入
10、 CDbl(x):把x值转换为双精度数Double
11、 CLng(x):把x的小数部分四舍五入转换为 长整数型数 long
12、 CSng(x):把x值转换为单精度数
13、 Cvar(x):把x值转换为变体类型值
14、 VarPtr(var):取得变量var的指针
========= 数学函数
数学函数功能表
函数名 功能
Atn 反正切函数
Cos 余弦函数
Fix 取整数,对负数取较大的
Int 取整数,对负数取较小的
Log 求对数
Rnd 产生一个0~1间的随机数
1、 Sin(x): 返回自变量x的正弦值
2、 Cos(x): 返回自变量x的余弦值
3、 Tan(x): 返回自变量x的正切值
4、 Atn(x): 返回自变量x的反正切值
5、 Abs(x): 返回自变量x的绝对值
6、 Sgn(x): 返回自变量x的数学符号,即当x为负数时,返回-1;当x为0时,返回0;当x为正数时,返回1
7、 Sqr(x):返回自变量x的平方根,x必须大于或等于0
8、 Exp(x):返回以e为底,以x为指数的值,即求e的x次方
===============日期与时间函数
Date 取得系统当前日期
Time 取得系统当前时间
Now 取得系统当前日期和时间
Year 返回指定日期中的年份
1、 Day(Now):返回当前的日期
2、 WeekDay(Now):返回当前的星期
3、 Month(Now):返回当前的月份
4、 Year(Now):返回当前的年份
5、 Hour(Now):返回小时(0~23)
6、 Minute(Now):返回分(0~59)
7、 Second(Now):返回秒 (0~59)
Month 返回指定日期中的月份(1-12)
Day 返回指定日期中天(1-31)
Weekday 返回指定日期为星期几
Hour 返回指定时间量中的小时
Minute 返回指定时间量中的分钟
Second 返回指定时间量中的秒
DateSerial 返回指定年月日的日期
TimeSerial 返回指定小时分秒的时间
DateValue 将字符串表示的日期转化为Variant日期
TimeValue 将字符串表示的时间转化为Variant时间
DateAdd 返回指定日期加上一定时间间隔后的日期
DateDiff 返回两个日期的时间间隔
DatePart 返回指定日期的特定部分
============== 随机数函数
1、 Rnd[(
x)]:产生一个0~1之间的单精度随机数
2、 Randmize[(x)]:功能同上,不过更好
=============字符串函数
字符串函数用来完成对字符串的操作和处理,如截取字符串、查和替换字符串、对字符串进行大小写处理等。VB6.0新添了许多字符串函数,加上原有的字符串函数,在对字符串的处理方面功能非常全面。
下面通过列表的方式简要介绍字符串处理函数(如表所示):
StrComp 两个字符串比较
Space,String 返回指定长度的字符串
Len 求字符串长度
Lset,Rset语句 给字符串变量赋值,赋在左边或右边
Ltrim,Rtrim,Trim 去掉字符串的前导空格、尾随空格
cstr ------将数据转化为字符串
0. TRIM(字符串) : 指定要删除首部和尾部空格的字符串返回值String
1、 LTrim$(字符串) :去掉字符串左边的空白字符
2、 Rtrim$(字符串) :去掉字符串右边的空白字符
3、 Left$(字符串,n) :取字符串左部的n个字符
4、 Right$(字符串,n):取字符串右部的n个字符
5、 Mid(字符串,p,n):从位置p开始取字符串的n个字符
6、 Len(字符串) :测试字符串的长度
7、 String$(n,字符串):返回由n个字符组成的字符串
8、 Space$(n) :返回n个空格
9、 InStr(字符串1,字符串2) :在从左到右字符串1中查字符串2 的位置
10、Ucase$(字符串) :把小写字母转换为大写字母
11、Lcase$(字符串) :把大写字母转换为小写字母
==============窗体输入输出函数
1、 Print(字符串):在窗体输出字符串,可以用”&”对变量进行连接后输出
2、 Tab(n) :把光标移到该行的n开始的位置
3、 Spc(n) :跳过n个空格
4、 Cls :清除当前窗体内的显示内容
5、 Move 左上角x,左上角y,宽度,高度:移动窗体或控件
6、 InputBox(prompt,…):跳出一个数据输入窗口,返回值为该窗口的输入值
7、 MsgBox(msg,[type]…):跳出一个提示窗口datediff是字符型函数
===============目录和文件函数
目录和文件函数属于文件系统函数。通过它们我们可以操作目录和文件,如创建目录、删除文件和读写文件等。
下面通过列表的形式简要介绍几个常见的文件系统函数(如表所示)
文件系统函数列表
函数或语句名 功能
ChDir 改变当前目录
ChDrive 改变当前驱动器
CurDir 返回当前目录
MkDir 创建目录
RmDir 删除目录
FileCopy 拷贝文件
Kill 删除文件
FileLen 取得文件的长度(字节数)
Dir 查指定的文件和目录
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
2 文件操作函数
1、 Open 文件名 [For方式] [Access存取类型] [锁定] AS [#]文件号 [Len=记录长度]
功能:为文件的输入输出分配缓冲区,并确定缓冲区所使用的存取方式
说明:
1) 方式:指定文件的输入输出方式,可选,默认是Random,可以是以下值
a、 Output:指定顺序输出方式,将覆盖原有内容
b、 Input:指定顺序输入方式
c、 Append:指定顺序输出方式,在文件未尾追加内容
d、 Random:指定随机存取方式,也是默认方式,在Random方式时,如果没有Access子句,则在执行Open语句时,VB将按下列顺序打开文件:读/写、只读、只写
e、 指定二进制文件。在这种方式下,可以用Get和Put语句对文件中任何字节位置的信息进行读写。在Binary方式中,如果没有Access子句,则打开文件的类型与Random方式相同
2)、存取类型:放在关键字Access之后,用来指定访问文件的类型。可以是下列类型之一
a、 Read:打开只读文件
b、 Write:打开只写文件
c、 Read Write:打开读写文件。这种类型只对随机文件、二进制文件及用Append方式打开的文件有效
3)、锁定:该子句只在多用户或多进和环境中使用,用来限制其他用户或其他进程对打开进行读写操作。锁定类型包括:
a、 默认:如不指定锁定类型,则本进程可以多次打开文件进行读写;在文件打开期间,其他进程不能对该文件执行读写操作
b、 Lock Shared:任何机器上的任何进程都可以对该文件进行读写操作
c、 Lock Read:不允许其他进程读该 文件。只在没有其他Read存取类型的进程访问该文件时,才允许这种锁定。
d、 Lock Write:不允许其他进程写这个文件。只在没有其他Write存取类型的进程访问该文件时,才允许这种锁定
e、 Lock Read Write:不允许其他进程读写这个文件
如果不使用lock子句,则默认为Lock Read write
4)、文件号:由用户自行指定一个由1~511之间
的整数,只要该文件号未被使用就合法;打开文件后,可以用该文件号进行读写等操作
5)、记录长度:是一个整型表达式。当选择该参量时,为随机存取文件设置记录长度。对于用随机访
问方式打开的文件,该值是记录长度;对于顺序文件,该值是缓冲字符数。”记录长度”不能超过32767字节。对于二进制文件,将忽略Len子句
举例:Open “price.dat” for Output as #1
Open “C:\abc.dat” for radom as #1 len=256
2、 Close [#文件号][,#文件号]……:关闭文件
3、 Seek #文件号,位置:文件指针跳到指定位置,以字节为单位。取值1~pow(2,31)-1
4、 Seek (文件号):返回当前文件指针的位置
5、 FreeFile():取得一个未使用的文件号
6、 Loc(文件号):返回指定文件的当前读写位置
7、 LOF(文件号):返回文件长度
8、 EOF(文件号):用来测试文件是否结束,结束返回true
9、 Print #文件号,变量1,变量2,…变量n:按顺序将各变量的值写入顺序文件
如果是print #文件号,则写入空行
10、 Write #文件号,表达式表…:作用同 Print
11、 Input #文件号,变量表….:读顺序文件,进行与Print相反的操作
12、 Line Input #文件号,字符串变量:从顺序文件中读入一行
13、 Input$(n,#文件号):从顺序文件读出 n个字符的字符串
14、 Put #文件号,[记录号],变量:把除对象变量和数组变量外的任何变量(包括号含有单个数组元素的下标变量)的内容写入随机文件。
例如:Put #2,,filebuff
15、 Get #文件号,[记录号],变量:读随机文件,执行与put相反的操作
16、 Get|put #文件号,[位置],变量:读写二制文件,位置是指下一次读写操作的位置。
17、 Kill 文件名:删除文件
18、 FileCopy 源文件名,目标文件名:复制文件
19、 Name原文件名 as 新文件名:重命令文件
3.4 常见标准函数
vb提供许多内建的函数和语句,这些函数和语句按功能可分为如下几类:
交互式函数
类型转换函数
数学函数
日期和时间函获得
字符串函数
目录和文件函数
=================交互式函数
交互式函数是用来和用户进行交互的函数。我们在这里主要介绍Msgbox函数和InputBox 函数。
Msgbox函数用来在对话框中显示消息,并等待用户作出判断。它的使用方法为:
Msgbox(消息,按纽,标题)
其中"消息"参数是我们要向用户显示的信息,"按纽"代表我们向用户提供的几种选择,一般是"是/否"、"确定/取消"等,"标题"参数则是对话框的标题。"按纽"和标题两个参数是可选的。 Msgbox函数还有一些其它参数,但它们不常用,在此不做介绍了。例如,我
们要征求用户的意见,显示询问图标,并判断用户所做的选择,可使用下面的这种形式:
Private Sub Form_QueryUnload(Cancel As Integer,UnloadMode As Integer)
'该程序段中vbCance、vbQuestion和vbOKCancel,为系统常量
' VbMsgBoxResult 为一数据类型
Dim ask as VbMsgBoxResult
Ask=MsgBox("真的要退出?",vbQuestion+vbOKCancel,"确认退出")
If ask=vbCancel Then Cancel=True
End Sub
这段程序用来在关闭窗体时让用户确认,显示的对话框向用户征求意见
InputBox 函数用来获取用户的输入。它的使用方法为:
InputBox(消息,标题,缺省值)
其中,"缺省值"参数是提供给用户的缺省输入内容。"标题"和"缺省值"两个参数都是可选的,该函数还有其它参数但不常用,在此就不做讲解了。
下面举例介绍函数InputBox的应用,比如下面的语句让用户输入一句问候语:
Str1=InputBox("请输入一句问候:","输入问候","Happy birthday to you!")
执行此语句对应显示的对话框用输入框获取用户的输入
当用户输入信息后,如果单击"确定"按纽,那么,输入信息将被赋给变量Str1,如果用户单击"取消"按纽,那么Str1的值为""。无论用户输入什么类型的信息,该函数只能将它作为字符串返回,因此,如果用户想要取得其它类型的信息,还要进行类型转换。
版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。
发表评论