VB 函数参考三（P-Z）
Paint
PathChange
PatternChange
QueryUnload
Resize
Right
Rnd
RTrim
Scroll
Seek
Sgn
Shell
Sin
Space
Sqr
Str
StrComp
String
Tan
Terminate
Time
Timer
Trim
TypeName
UCase
Unload
Val
Validate
VarType
Weekday
Year
=======
【名称】
Paint
【类别】
事件过程
【原形】
Private Sub Form_Paint( )
Private Sub object_Paint([index As Integer])
【参数】
Paint 事件语法包括下列部分：
部分
【描述】
object
一个对象表达式，其值是“应用于”列表中的一个对象。
index
一个整数，用来唯一地标识一个在控件数组中的控件。
【描述】
在一个对象被移动或放大之后，或在一个覆盖该对象的窗体被移开之后，该对象部分或全部暴露时，此事件发生。
【示例】
本例将画出一个与一个窗体各边的中点相交的菱形，并且当窗体的大小改变时，菱型也随着自动调整。要尝试这个例子，可将代码粘贴到一个窗体的声明部分，然后按 F5 键并调整窗体的大小。
Private Sub Form_Paint ()
Dim HalfX, HalfY ' 声明变量.
HalfX = ScaleLeft + ScaleWidth / 2 ' 设置到宽度的一半。
HalfY = ScaleTop + ScaleHeight / 2 ' 设置到高度的一半。
' 画一个菱形。
Line (ScaleLeft, HalfY) - (HalfX, ScaleTop)
Line -(ScaleWidth + ScaleLeft, HalfY)
Line -(HalfX, ScaleHeight + ScaleTop)
Line -(ScaleLeft, HalfY)
End Sub
Private Sub Form_Resize
Refresh
End Sub
【备注】
在应用程序运行时，若出现下列情况，就会自动产生Paint事件。
（1）窗体窗口被最小化成图标，然后又恢复正常显示状态。
（2）原本遮挡着该窗体的窗体被移开并使该窗体全部或部分显露出来。
（3）该窗体因其他窗体的移动而被全部或部分遮挡时。
（4）窗体的大小改变和移动。
（5）使用Refresh（刷新）方法。
为了使应用程序在运行时不致于因某些原因使窗体内容失真，通常用Paint事件过程来重绘窗体内容。
产生Paint事件后可以进行窗体的重绘。对于一个简单的Windows应用程序而言，如果发生窗体部分内容消失，那么也许可以比较容易地设计一个Paint事件过程来恢复窗体的内容；但如果应用程序很复杂，要设计这样一个Paint事件就不那么容易了。这时，用户可以利用Visual Basic提供的AutoRedraw属性(前面已有介绍)，将其设置成True，即可自动完成窗体重绘。如果窗体的ClipControls属性设置为False时，重绘窗体刚刚显露的部分；否则重绘整个窗体内容。
如果需要代码中各种图形方法的输出，则 Paint 事件过程就很有用。使用 Paint 过程，可以确保这样的输出在必要时能被重绘。
使用 Refresh 方法时，Paint 事件即被调用。如果 AutoRedraw 属性被设置为 True，重新绘图会自动进行，于是就不需要 Paint 事件。
如果 ClipControls 属性被设置为 False，在 Paint 事件过程中的绘图方法仅影响该窗体中新暴露的区域；否则，绘图方法将在该窗体未被控件覆盖的所有区域。（ Image、Label、Line 和 Shape 控件除外。）
在 Resize 事件过程中使用 Refresh 方法可在每次调整窗体大小时强制对整个对象进行。
注意 对某些任务使用 Paint 事件过程能导致一个层叠事件。通常来说，在下列情况下，要避免用 Paint 事件过程：
移动一个窗体或控件，或者是调整其大小。
对影响大小或外观的任何变量进行改变，如：设置对象的 BackColor 属性等。
调用 Refresh 方法。
对上述这些任务来说，Resize 事件可能更为合适。
=======
【名称】
PathChange
【类别】
事件过程
【原形】
Private Sub object_PathChange([index As Integer])
【参数】
PathChange 事件语法包括下列部分：
部分
【描述】
object
一个对象表达式，其值是“应用于”列表中的一个对象。
index
一个整数，用来唯一地标识一个在控件数组中的控件。
【描述】
当路径被代码中 FileName 或 Path 属性的设置所改变时，此事件发生。
【示例】
本例演示如何更新一个 Label 控件以显示一个 FileListBox 控件的当前路径。 在 FileListBox 中双击一个目录名可在 FileListBox 中显示该目录文件的列表，同时也在 Label 控件中显示目录的全路径。要尝试这个例子，可将代码粘贴到一个包含一个 Label 控件、一个 DirListBox 控件和一个 FileListBox 控件的窗体的声明部分，然后按 F5 键。
双击目录改变路径。
Private Sub File1_PathChange ()
Label1.Caption = "Path: " & Dir1.Path '在 Label 中显示路径。
End Sub
Private Sub Dir1_Change ()
File1.Path = Dir1.Path ' 设置文件路径。
End Sub
Private Sub Form_Load ()
Label1.Caption = "Path: " & Dir1.Path ' 在 Label 中显示路径。
End Sub
【备注】
可使用 PathChange 事件过程来响应 FileListBox 控件中路径的改变。当将包含新路径的字符串给 FileName 属性赋值时，FileListBox 控件就调用 PathChange 事件。
=======
【名称】
PatternChange
【类别】
事件过程
【原形】
Private Sub object_PatternChange([index As Integer])
【参数】
PatternChange 事件参数包括下列部分：
部分
【描述】
object
一个对象表达式，其值是“应用于”列表中的一个对象。
index
一个整数，用来唯一地标识一个在控件数组中控件。
【描述】
当文件的列表样式，如："*.*"，被代码中对 FileName 或 Path 属性的设置所改变时，此事件发生。
【示例】
本例更新一个带有与一个 TextBox 控件中输入的模式的匹配的各类文件的 FileListBox 控件。如果在 TextBox 中输入一个完整路径，比如C:\Bin\*.exe，文字被自动分解为路径和模式组件。 要尝试这个例子，可将代码粘贴到一个包含一个 TextBox 控件、一个 Label 控件、一个 FileListBox 控件和一个 CommandButton 控件窗体的声明部分，然后按 F5 键并在 TextBox 中输入一个有效的文件模式。
Private Sub Form_Load ()
Command1.Default = True ' 设置缺省属性。
Command1.Caption = "OK" ' 设置标题。
End Sub
Private Sub Command1_Click () ' 单击 OK 按钮。
' 文字分解为路径和模式组件。
File1.FileName = Text1.Text
Label1.Caption = "Path: " & File1.Path
End Sub
Private Sub File1_PatternChange ()
Text1.Text = File1.Pattern ' 将文字设置到新的模式。
End Sub
【备注】
可使用 PatternChange 事件过程来响应在 FileListBox 控件中样式的改变。当将包含新样式的字符串给 FileName 属性赋值时，FileListBox 控件将调用 PathChange 事件。
=======
【名称】
QueryUnload
【类别】
事件过程
【原形】
Private Sub Form_QueryUnload(cancel As Integer, unloadmode As Integer)
Private Sub MDIForm_QueryUnload(cancel As Integer, unloadmode As Integer)
【参数】
QueryUnload 事件参数包括下列部分：
部分
【描述】
cancel
一个整数。将此参数设定为除 0 以外的任何值，可在所有已装载的窗体中停止 QueryUnload 事件，并阻止该窗体和应用程序的关闭。
unloadmode
一个值或一个常数，如返回值中所描述的，它指示引起 QueryUnload 事件的原因。
（1）Cancel参数：表示一个整数。如果该参数的取值被设定为一个非零值，可以在任何已装载的窗体中终止QueryUnload事件，以便阻止该窗体和应用程序的关闭。如果取值为0，则该窗体将被关闭。
（2）unloadmode参数：返回一个整数或一个常数，该参数取值可以指明触发QueryUnload事件的原因。取值含义如下表所示。这些常数是在对象浏览器中的 Visual Basic (VB) 对象库中列出。
表 unloadmode参数取值及其含义
常数
整数
含义(触发QueryUnload事件的原因)
vbFormControlMenu
0
单击标题栏控制菜单中的[关闭]命令，或双击该标题栏控制菜单图标或单击标题栏右边的[×]按钮
VbFormCode
1
在代码中调用Unload(卸载)语句
VbAppWindows
2
当前的Microsoft Windows操作环境会话完毕
VbAppTaskManager
3
Microsoft Windows任务管理器正在关闭应用程序
VbFormMDIForm
4
MDI(多文档界面)子窗体随着MDI窗体正在关闭
VbFormOwner
5
窗体随着其所有者的关闭而关闭
【描述】
在一个窗体或应用程序关闭之前发生。当一个 MDIForm 对象关闭时，QueryUnload 事件先在 MDI 窗体发生，然后在所有 MDI 子窗体中发生。如果没有窗体取消 QueryUnload 事件，该 Unload 事件首先发生在所有其它窗体中，然后再发生在 MDI 窗体中。当一个子窗体或一个 Form 对象关闭时，在那个窗体中的 QueryUnload 事件先于该窗体的 Unload 事件发生。
【示例】
本例使用一个包含两个 MDI 子窗体的 MDIForm 对象。 当从 Control 菜单中选择 Close 命令关闭一个窗体时，所显示的信息与从 File 菜单中选择 Exit 命令是不同的。 要尝试这个例子，可以先创建一个 MDIForm，然后使用菜单编辑器创建 File 菜单，该菜单中包含名为 FileExit 的 Exit 命令。 确信这个菜单项可用。在 Form1上，将 MDIChild 属性设置为 True。 将代码粘贴到相应窗体的声明部分，然后按 F5 键执行程序。
'粘贴到 MDIForm1 的声明部分。
Private Sub MDIForm_Load ()
Dim NewForm As New Form1 ' Form1 的新实例。
NewForm.Caption = "Form2" ' 设置标题并显示。
End Sub
Private Sub FileExit_Click ()
Unload MDIForm1 ' 退出应用。
End Sub
Private Sub MDIForm_QueryUnload (Cancel As Integer, UnloadMode As Integer)
Dim Msg ' 声明变量。
' 设置信息文本。
Msg = "Do you really want to exit the application?"
' 如果用户单击 No 按钮，则停止QueryUnload。
If MsgBox(Msg, vbQuestion + vbYesNo, Me.Caption) = vbNo Then Cancel = True
End Sub
' 粘贴到 Form1的声明部分。
Private Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
Dim Msg ' 声明变量。
If UnloadMode > 0 Then
' 如果正在退出应用。
Msg = "Do you really want to exit the application?"
Else
' 如果正好在关闭窗体。
Msg = "Do you really want to close the form?"
End If
' 如果用户单击No按钮，则停止QueryUnload。
If MsgBox(Msg, vbQuestion + vbYesNo, Me.Caption) = vbNo Then Cancel = True
End Sub
【备注】
此事件的典型用法是在关闭一个应用程序之前用来确保包含在该应用程序中的窗体中没有未完成的任务。例如，如果还未保存某一窗体中的新数据，则应用程序会提示保存该数据。
当一个应用程序关闭时，可使用 QueryUnload 或 Unload 事件过程将 Cancel 属性设置为 True 来阻止关闭过程。但是，QueryUnload 事件是在任一个卸载之前在所有窗体中发生，而 Unload 是在每个窗体卸载时发生。
当窗体将要关闭时或在结束应用程序之前，该事件被触发。
（1）QueryUnload事件经常用在关闭一个应用程序之前，确认该应用程序中的某个窗体是否含有未完成的任务。例如，如果某一窗体中有尚未保存的数据，则可以在QueryUnload事件过程中加入相应代码以提示保存该数据。
（2）QueryUnload事件在窗体卸载之前发生，而Unload(卸载)事件在窗体卸载时发生。所以，窗体的QuelyUnload事件发生在该窗体的Unload事件之前。
=======
【名称】
Resize
【类别】
事件过程
【原形】
Private Sub Form_Resize( )
Private Sub object_Resize(height As Single, width As Single)
【参数】
Resize 事件语法包括下列部分：
部分
【描述】
object
一个对象表达式，其值是“应用于”列表中的一个对象。
height
指定控件新高度的数。
width
指定控件新宽度的数。
【描述】
当一个对象第一次显示或当一个对象的窗口状态改变时该事件发生。（例如，一个窗体被最大化、最小化或被还原。）
【示例】
本例在任何调整窗体大小时的时候，都将自动调整一个 TextBox 控件的大小以填充该窗体。要尝试这个例子，可以将代码粘贴到包含 TextBox 的窗体声明部分。 设置 TextBox 控件的 MultiLine 属性为 True，ScrollBars 属性为 3，BorderStyle 属性为 0，然后按F5键并调整窗体大小。
Private Sub Form_Load ()
Text1.Text = "" ' 清除文本。
End Sub
Private Sub Form_Resize ()
Text1.Move 0,0, ScaleWidth, ScaleHeight
End Sub
【备注】
当父窗体调整大小时，可用 Resize 事件过程来移动控件或调整其大小。也可用此事件过程来重新计算那些变量或属性，如：ScaleHeight 和 ScaleWidth 等，它们取决于该窗体的尺寸。如果在调整大小时想要保持图形的大小与窗体的大小成比例，可在一个 Resize 事件中通过使用 Refresh 方法调用 Paint 事件。
任何时候只要 AutoRedraw 属性被设置为 False 而且窗体被调整大小，Visual Basic 也会按 Resize 和 Paint 的顺序调用相关的事件。当给这些相关事件附加过程时，要确保它们的操作不会互相冲突。
当一个 OLE 容器控件的 SizeMode 属性被设置为 2（自动调大小）时，该控件自动根据所显示的包含于该控件之中的对象的大小来调整其大小。如果所显示的对象的大小发生变化，则该控件自动重调其大小以适应该对象的变化。当这种情况出现时，为该对象调用 Resize 事件会在 OLE 容器控件被重调大小之前发生。height 和 width 部分指示该对象显示的最佳大小（这个尺寸由创建该对象的应用程序决定）。可通过在 Resize 事件中改变 height 和 width 部分的值来按不同的尺寸设定控件的大小。
应用程序运行时，调整窗体的大小，就会产生Resize事件，此时必须重绘窗体。
若将窗体的AutoRedraw属性设置为True，那么当窗体大小改变时就可以自动完成窗体内容的重绘。在Resize事件中使用Refresh方法调用Paint事件，可以在调整窗体大小时保持图形的大小与窗体大小成比例
=======
【名称】
Right
【类别】
字符串函数
【原形】
Right(string, length)
【参数】
Right函数的语法有下面的命名参数：
部分
说明
string
必要参数。字符串表达式，从中最右边的字符将被返回。如果 string 包含 Null，将返回 Null。
length
必要参数；为 Variant (Long)。为数值表达式，指出想返回多少字符。如果为 0，返回零长度字符串 ("")。如果大于或等于 string 的字符数，则返回整个字符串。
【返回值】
返回 Variant (String)型数据类型。
【异常/错误】
无
【描述】
返回从字符串string的最右边开始，截取 length个字符。
【示例】
本示例使用 Right 函数来返回某字符串右边算起的几个字符。
Dim AnyString, MyStr
AnyString = "Hello World" ' 定义字符串。
MyStr = Right(AnyString, 1) ' 返回 "d"。
MyStr = Right(AnyString, 6) ' 返回 " World"。
MyStr = Right(AnyString, 20) ' 返回 "Hello World"。
【备注】
欲知 string 的字符数，用 Len 函数。
注意：RightB 函数作用于包含在字符串中的字节数据。所以 length 指定的是字节数，而不是指定返回的字符数。
函数值类型和函数功能如下表所示。
字符串函数
函数名
函数值类型
功能
举例
Chr$(N)
String
求以N为ASCII码的字符
Chr(65)=“A”
Str$(N)
String
将N转换为字符串，如果N>0，则返回的字符串中包含一个前导空格，暗示有一个正号
Str$(-12345)=“-12345”
Str(12345)= “ 12345”
Len(C)
Long
求字符串C中包含的字符个数
Len(“Abab字符串4")=8
Ucase$(C)
String
将字符串C中的小写英文字母转换成大写英文字母
Ucase(“abABabc")="ABABABC"
Lcase$(C)
String
将字符串C中的大写英文字母转换成小写英文字母
Ucase(“abABabc")="abababc"
Space$(N)
String
产生N个空格组成的字符串
Len(Space(6))=6
String$(N，C)
String
产生N个由C指定的第一个字符组成的字符串，C可以是ASCII码数
String(6，”ABC”)=“AAAAAA”
String(6，65)=“AAAAAA”
Left(C，N)
String
从字符串C的最左边开始，截取N个字符
Left$(“ABCDEF"，3)="ABC”
Right$(C，N)
String
从字符串C的最右边开始，截取N个字符
Right$ (“ABCDEF"，3)="DEF”
Mid$(C，N1 [，N2 ])
String
从字符串C中N1指定的起始位置处开始，截取N2个字符
Mid(“ABCDEF”，2，3)=”BCD”
Mid(“ABCDEF”，2)=”BCDEF”
Ltrim$(C)
String
删除字符串C中的前导空格
Ltrim(“ ABCD ”)="ABCD ”
Rtrim$(C)
String
删除字符串C中的尾部空格
Ltrim(“ ABCD ”)=" ABCD”
Trim$(C)
String
删除字符串参数中的前导和尾部空格
Ltrim(“ ABCD ”)="ABCD”
StrComp(C1,C2[,N])
Integer
比较字符串C1和字符串C2的大小，N是比较类型，取值0、1或2
StrComp(“ABC"，”abc"，1)=0
StrComp(“ABC"，”abc"，0)=-1
StrComp(“abc "，” ABC "，0)=1
InStr([N1,]C1,C2[,N2])
Integer
在字符串C1中，从N1开始到N2位置，开始找C2，省略N1时从C1头开始找，省略N2时找到C1尾止。找不到时，函数值为0
InStr(2,”ABCDE”,”C”,4)=3
InStr(2,”ABCDEF”,”CDE”)=3
InStr(”ABCDEFGH”,”CDE”)=3
InStr(”ABCDEFGH”,”XY”)=0
说明：（1）表中的C表示是字符串表达式，表中的N表示是数值表达式
（2）对于数值函数Val(C)，逗号“，”和美圆符号“$”，都不能被识别；空格、制表符和换行符都将从参数中去掉；当遇到字母E或D 时，将其按单精度或双精度实型浮点数处理。
（3）LenB(C)函数与Len(C)函数功能相近，只不过LenB函数求的是字符串的字节数，而不是字符串中字符的个数。例如：LenB(“ABCabc123")=18，LenB(“字符串”)=6。
（4）对于产生字符串函数String$(N，C)，其中，C参数可以为任何有效的数值表达式或字符串表达式，如果为数值表达式，则表示组成字符串的字符的ASCII码；如果为字符串表达式，则其第一个字符将用于产生字符串。
（5）对于字符串左截函数Left(C,N），N参数为数值表达式，其值指出函数值中包含多少个字符，如果其值为0，则函数值是长度为零的字符串(即空串)；如果其值大于或等于字符串C中的字符数，则函数值为整个字符串。
LeftB函数与Left函数功能相近，只不过LeftB函数求的是字符串的字节数，而不是字符串中字符的个数。LeftB(“ABCDE”,6)=”ABC”。
(6) 对于字符串右截取函数Right(C，N)，N参数为数值表达式，其值指出函数值中包含多少个字符。如果其值为0，则函数值为空串；如果其值大于或等于字符串C中的字符个数，则函数值为整个字符串。
RightB函数与Right函数功能相近，只不过RightB函数求的是字符串的字节数，而不是字符串中字符的个数。RightB(“ABCDE”,6)=”CDE”。
（7）N1是数值表达式，其值表示开始截取字符的起始位置。如果该数值超过字符串C中的字符数，则函数值为空串。N2是数值表达式，其值表示要截取的字符数。如果省略该参数，则函数值将包含字符串C中从起始位置到字符串末尾的所有字符。
MidB函数与Mid函数功能相近，只不过MidB函数求的是字符串的字节数，而不是字符串中字符的个数。例如：MidB(“ABCDEFG”,5,8)=”CDEF”。
（8）因为将一字符串赋值给一定长字符串变量时，如字符串变量的长度大于字符串的长度，则用空格填充该字符串变量尾部多余的部分，所以在处理定长字符串变量时，删除空格的Ltrim和Rtrim函数是非常有用的。
（9）对于字符串比较函数StrComp(C1,C2[,N] )，N是指定字符串的比较类型。比较类型可以是0、1或2，若比较类型为0，则执行二进制比较，此时英文字母区分大小写；若比较类型为1，则执行文本比较，此时英文字母不区分大小写；若比较类型为2，则是执行基于数据库信息的比较，仅对Microsoft Access起作用。若省略该参数，则默认比较类型为0。
当字符串C1小于字符串C2时，函数值为—1；当字符串C1等于字符串C2时，函数值为0：当字符串C1大于字符串C2时，函数值为1。
=======
【名称】
Rnd
【类别】
数学函数
【原形】
Rnd[(number)]
【参数】
必选的，number 参数是 Single 或任何有效的数值表达式。
【返回值】
如果 number 的值是
Rnd 生成
小于 0
每次都使用 number 作为随机数种子得到的相同结果。
大于 0
序列中的下一个随机数。
等于 0
最近生成的数。
省略
序列中的下一个随机数。
【异常/错误】
无
【描述】
返回一个包含随机数值的 Single。Rnd 函数返回小于 1 但大于或等于 0 的值。number 的值决定了 Rnd 生成随机数的方式。
对最初给定的种子都会生成相同的数列，因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。
在调用 Rnd 之前，先使用无参数的 Randomize 语句初始化随机数生成器，该生成器具有根据系统计时器得到的种子。
为了生成某个范围内的随机整数，可使用以下公式：
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。
注意 若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。
【示例】
本示例使用 Rnd 函数随机生成一个 1 到 6 的随机整数。
Dim MyValue
MyValue = Int((6 * Rnd) + 1) ' 生成 1 到 6 之间的随机数值。
【备注】
无
=======
【名称】
RTrim
【类别】
字符串函数
【原形】
RTrim(string)
【参数】
必选的，string 参数可以是任何有效的字符串表达式。如果 string 包含 Null，将返回 Null。
【返回值】
返回 Variant (String)型数据类型。
【异常/错误】
无
【描述】
返回String指定字符串的拷贝，没有尾随空白 (RTrim)。
【示例】
本示例使用RTrim 函数将某字符串的结尾的空格全部去除。
Dim MyString, TrimString
MyString = " <-trim-> " ' 设置字符串初值。
TrimString = RTrim(MyString) ' TrimString = " <-trim->"。
【备注】
函数值类型和函数功能如下表所示。
字符串函数
函数名
函数值类型
功能
举例
Chr$(N)
String
求以N为ASCII码的字符
Chr(65)=“A”
Str$(N)
String
将N转换为字符串，如果N>0，则返回的字符串中包含一个前导空格，暗示有一个正号
Str$(-12345)=“-12345”
Str(12345)= “ 12345”
Len(C)
Long
求字符串C中包含的字符个数
Len(“Abab字符串4")=8
Ucase$(C)
String
将字符串C中的小写英文字母转换成大写英文字母
Ucase(“abABabc")="ABABABC"
Lcase$(C)
String
将字符串C中的大写英文字母转换成小写英文字母
Ucase(“abABabc")="abababc"
Space$(N)
String
产生N个空格组成的字符串
Len(Space(6))=6
String$(N，C)
String
产生N个由C指定的第一个字符组成的字符串，C可以是ASCII码数
String(6，”ABC”)=“AAAAAA”
String(6，65)=“AAAAAA”
Left(C，N)
String
从字符串C的最左边开始，截取N个字符
Left$(“ABCDEF"，3)="ABC”
Right$(C，N)
String
从字符串C的最右边开始，截取N个字符
Right$ (“ABCDEF"，3)="DEF”
Mid$(C，N1 [，N2 ])
String
从字符串C中N1指定的起始位置处开始，截取N2个字符
Mid(“ABCDEF”，2，3)=”BCD”
Mid(“ABCDEF”，2)=”BCDEF”
Ltrim$(C)
String
删除字符串C中的前导空格
Ltrim(“ ABCD ”)="ABCD ”
Rtrim$(C)
String
删除字符串C中的尾部空格
Ltrim(“ ABCD ”)=" ABCD”
Trim$(C)
String
删除字符串参数中的前导和尾部空格
Ltrim(“ ABCD ”)="ABCD”
StrComp(C1,C2[,N])
Integer
比较字符串C1和字符串C2的大小，N是比较类型，取值0、1或2
StrComp(“ABC"，”abc"，1)=0
StrComp(“ABC"，”abc"，0)=-1
StrComp(“abc "，” ABC "，0)=1
InStr([N1,]C1,C2[,N2])
Integer
在字符串C1中，从N1开始到N2位置，开始找C2，省略N1时从C1头开始找，省略N2时找到C1尾止。找不到时，函数值为0
InStr(2,”ABCDE”,”C”,4)=3
InStr(2,”ABCDEF”,”CDE”)=3
InStr(”ABCDEFGH”,”CDE”)=3
InStr(”ABCDEFGH”,”XY”)=0
说明：（1）表中的C表示是字符串表达式，表中的N表示是数值表达式
（2）对于数值函数Val(C)，逗号“，”和美圆符号“$”，都不能被识别；空格、制表符和换行符都将从参数中去掉；当遇到字母E或D 时，将其按单精度或双精度实型浮点数处理。
（3）LenB(C)函数与Len(C)函数功能相近，只不过LenB函数求的是字符串的字节数，而不是字符串中字符的个数。例如：LenB(“ABCabc123")=18，LenB(“字符串”)=6。
（4）对于产生字符串函数String$(N，C)，其中，C参数可以为任何有效的数值表达式或字符串表达式，如果为数值表达式，则表示组成字符串的字符的ASCII码；如果为字符串表达式，则其第一个字符将用于产生字符串。
（5）对于字符串左截函数Left(C,N），N参数为数值表达式，其值指出函数值中包含多少个字符，如果其值为0，则函数值是长度为零的字符串(即空串)；如果其值大于或等于字符串C中的字符数，则函数值为整个字符串。
LeftB函数与Left函数功能相近，只不过LeftB函数求的是字符串的字节数，而不是字符串中字符的个数。LeftB(“ABCDE”,6)=”ABC”。
(6) 对于字符串右截取函数Right(C，N)，N参数为数值表达式，其值指出函数值中包含多少个字符。如果其值为0，则函数值为空串；如果其值大于或等于字符串C中的字符个数，则函数值为整个字符串。
RightB函数与Right函数功能相近，只不过RightB函数求的是字符串的字节数，而不是字符串中字符的个数。RightB(“ABCDE”,6)=”CDE”。
（7）N1是数值表达式，其值表示开始截取字符的起始位置。如果该数值超过字符串C中的字符数，则函数值为空串。N2是数值表达式，其值表示要截取的字符数。如果省略该参数，则函数值将包含字符串C中从起始位置到字符串末尾的所有字符。
MidB函数与Mid函数功能相近，只不过MidB函数求的是字符串的字节数，而不是字符串中字符的个数。例如：MidB(“ABCDEFG”,5,8)=”CDEF”。
（8）因为将一字符串赋值给一定长字符串变量时，如字符串变量的长度大于字符串的长度，则用空格填充该字符串变量尾部多余的部分，所以在处理定长字符串变量时，删除空格的Ltrim和Rtrim函数是非常有用的。
（9）对于字符串比较函数StrComp(C1,C2[,N] )，N是指定字符串的比较类型。比较类型可以是0、1或2，若比较类型为0，则执行二进制比较，此时英文字母区分大小写；若比较类型为1，则执行文本比较，此时英文字母不区分大小写；若比较类型为2，则是执行基于数据库信息的比较，仅对Microsoft Access起作用。若省略该参数，则默认比较类型为0。
当字符串C1小于字符串C2时，函数值为—1；当字符串C1等于字符串C2时，函数值为0：当字符串C1大于字符串C2时，函数值为1。
=======
【名称】
Scroll
【类别】
事件过程
【原形】
Private Sub DataGrid_Scroll([cancel As Integer])
Private Sub object_Scroll( )
【参数】
Scroll 事件参数包括下列部分：
部分
【描述】
object
一个对象表达式，其值是“应用于”列表中的一个对象。
cancel
如在说明中所描述的，它决定滚动操作是否成功以及 ScrollBar 或 DataGrid 是否被重绘。
【描述】
当 ScrollBar 控件上的或包含一个滚动条的对象的滚动框被重新定位，或按水平方向或垂直方向滚动时，此事件发生。
【示例】
本例在滚动条上拖动滚动框时，改变 Shape 控件的大小来响应一个水平滚动条 (HScrollBar) 的值。要尝试这个例子，可以将代码粘贴到包含一个 Shape 控件、一个 Label 控件和一个 HScrollBar 控件窗体的声明部分。将 Shape 控件 Index 属性设置为 0 以创建一个控件数组。 然后按 F5 键并移动滚动条。
Private Sub Form_Load ()
' 移动第一个 Shape 控件并其大小。
Shape1(0).Move HScroll1.Left, HScroll1.Top * 1.5, HScroll1.Width, HScroll1.Height
Label1.Caption = "" ' 设置 Label 的标题。
Load Shape1(1) ' 创建第二个Shape。
' 移动第二个Shape控件并定制其大小。
Shape1(1).Move Shape1(0).Left, Shape1(0).Top, 1, Shape1(0).Height
Shape1(1).BackStyle = 1 '设置BackStyle为Opaque。
Shape1(1).Visible = True ' 显示第二个Shape。
HScroll1.Min = 1 ' 设置滚动条的值。
HScroll1.Max = HScroll1.Width
End Sub
Private Sub HScroll1_Change ()
Label1.Caption = "Changed" ' 显示改变后的信息。
End Sub
Private Sub HScroll1_Scroll ()
Shape1(1).BackColor = &HFF0000 ' 设置Shape的颜色为蓝色。
Label1.Caption = "Changing" ' 显示滚动时的信息。
Shape1(1).Width = HScroll1.Value ' 按Scroll Value调整Shape的尺寸。
End Sub
【备注】
对一个 DataGrid 控件来说，此事件当将网格水平或垂直地滚动，但在该网格被重绘之前发生。它用来显示滚动操作的结果。
对于一个 ComboBox 控件来说，此事件仅在位于该控件的下拉部分的滚动条被操作时发生。
将 cancel 设置为 True 会导致 DataGrid 滚动操作失败，并且不出现重绘操作。如果在此事件中调用 Refresh 方法则即使 cancel 被设置为 True，该网格也按其新的（滚动的）位置进行。然而，在这种情况下，由于滚动操作失败使它快速退回到它原来的位置，该网格被再一次。
可用此事件进行计算或操纵必须与滚动条中所进行的变动同步的控件。反之，当在 ScrollBar 控件变动之后想让更新只出现一次，可使用 Change 事件。
注意：在此事件中应避免使用 MsgBox 语句或函数。
=======
【名称】
Seek
【类别】
磁盘、文件、目录函数
【原形】
Seek(filenumber)
或 Seek(文件号)
【参数】
必选的。filenumber 参数是一个包含有效文件号的 Integer。
【返回值】
返回一个 Long类型。在 Open 语句打开的文件中指定当前的读/写位置。
Seek 函数返回介于 1 和 2，147，483，647（相当于 2^31?–?1）之间的值。
对各种文件访问方式的返回值如下表所示。
方式
【返回值】
Random
下一个读出或写入的记录号。
Binary,
Output,
Append,
Input
下一个操作将要发生时所在的字节位置。文件中的第一个字节位于位置 1，第二个字节位于位置 2，依此类推。
【异常/错误】
无
【描述】
获取由[文件号]参数指定的已打开文件中文件指针的当前位置。获取值为1到2147483647(231-1)之间的整数。该指针位置用来指定下一次读/写操作的数据位置。对于随机文件，则获取可供读/写的下一个记录号；对于顺序文件和二进制文件，则获取下一个操作要执行的字节位置。函数值是长整型数据。
【示例】
本示例使用 Seek 函数来返回当前文件位置。示例中假设 TESTFILE 文件内含有用户自定义数据类型 Record 的记录。
Type Record ' 定义用户自定义数据类型。
ID As Integer
Name As String * 20
End Type
如果以随机方式打开文件，Seek 返回下一个记录的编号。
Dim MyRecord As Record ' 声明变量。
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
Do While Not EOF(1) ' 循环至文件尾。
Get #1, , MyRecord ' 读入下一个记录。
Debug.Print Seek(1) ' 在立即窗口中显示记录号。
Loop
Close #1 ' 关闭文件。
如果不以 Random 方式打开文件，则 Seek 返回下一个操作会发生的位置。假设 TESTFILE 文件内含有文本数据。
Dim MyChar
Open "TESTFILE" For Input As #1 ' 打开输入文件。
Do While Not EOF(1) ' 循环至文件尾。
MyChar = Input(1, #1) ' 读入下一个字符。
Debug.Print Seek(1) ' 将下一字符的位置显示在立即窗口。
Loop
Close #1 ' 关闭文件。
【备注】
=======
【名称】
Sgn
【类别】
数学函数
【原形】
Sgn(number)
【参数】
必选的，number 参数是一个 任何有效的数值表达式
【返回值】
如果 number 为
Sgn 返回
大于 0
1
等于 0
0
小于 0
-1
【异常/错误】
无
【描述】
返回一个 Variant (Integer)，指出参数的正负号。number 参数的符号决定了 Sgn 函数的返回值。
【示例】
本示例使用 Sgn 函数来判断某数的正负号。
Dim MyVar1, MyVar2, MyVar3, MySign
MyVar1 = 12: MyVar2 = -2.4: MyVar3 = 0
MySign = Sgn(MyVar1) ' 返回 1。
MySign = Sgn(MyVar2) ' 返回 -1。
MySign = Sgn(MyVar3) ' 返回 0。
【备注】
无
=======
【名称】
Shell
【类别】
调用外部应用程序函数
【原形】
Shell(pathname[,windowstyle])
或 Shell（字符串，窗口类型）
【参数】
Shell 函数的语法含有下面这些命名参数：
部分
描述
pathname
必要参数。Variant (String)，要执行的程序名，以及任何必需的参数或命令行变量，可能还包括目录或文件夹，以及驱动器。
Windowstyle
可选参数。Variant (Integer)，表示在程序运行时窗口的样式。如果 windowstyle 省略，则程序是以具有焦点的最小化窗口来执行的。
windowstyle 命名参数有以下这些值：
常量
值
描述
vbHide
0
窗口被隐藏，且焦点会移到隐式窗口。
VbNormalFocus
1
窗口具有焦点，且会还原到它原来的大小和位置。
VbMinimizedFocus
2
窗口会以一个具有焦点的图标来显示。
VbMaximizedFocus
3
窗口是一个具有焦点的最大化窗口。
VbNormalNoFocus
4
窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。
VbMinimizedNoFocus
6
窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。
【返回值】
执行一个可执行文件，返回一个 Variant (Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。
【异常/错误】
无
【描述】
按照指定的窗口类型调出指定的外部可执行程序。同时还可以在外部可执行程序中打开指定的文件，例如：在打开记事本的同时打开一个文本文件。
说明：（1）字符串是要调用的外部文件的路径和文件名称，文件必须是可执行文件，其扩展名为：.EXE、.COM、.PIF和.BAT。例如：”D:\VB\实例\pider.exe”。 如果所调用的外部应用程序与VB本身的程序在同一个文件夹内，则可以省略路径。
（2）如果要在外部可执行程序中打开指定的文件，则字符串格式为：
外部文件的路径和文件名称+“ ”+打开文件的路径和文件名称
例如：在窗体中加入一个按钮，按钮的单击事件响应程序如下：
Private Sub Command1_Click()
N=Shell("F:\VB\应用程序\NOTEPAD.exe" + " " + "F:\VB\WORD\TEXT1.TXT", 1)
End Sub
（3）窗口类型表示执行应用程序的窗口大小，为整型数据，如表2.15所示。
表2.15 窗口类型及含义
窗口类型
含义
窗口类型
含义
0
窗口不显示
4
正常窗口，无指针
1
正常窗口，有指针
5
最小窗口，无指针
2
最小窗口，有指针
6
最大窗口，无指针
3
最大窗口，有指针
（3）函数的返回值是一个任务标识ID，它是运行程序的惟一标识。
【示例】
本示例使用 Shell 函数来完成一个用户指定的应用程序。
' 将第二个参数值设成 1，可让该程序以正常大小的窗口完成，并且拥有焦点。
Dim RetVal
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1) ' 完成Calculator。
【备注】
如果 Shell 函数成功地执行了所要执行的文件，则它会返回程序的任务 ID。任务 ID 是一个唯一的数值，用来指明正在运行的程序。如果 Shell 函数不能打开命名的程序，则会产生错误。
注意 缺省情况下，Shell 函数是以异步方式来执行其它程序的。也就是说，用 Shell 启动的程序可能还没有完成执行过程，就已经执行到 Shell 函数之后的语句。
=======
【名称】
Sin
【类别】
数学函数
【原形】
Sin(number)
【参数】
必选的，number 参数是一个 Double 或任何有效的数值表达式，表示一个以弧度为单位的角。
【返回值】
返回一个Double，指定参数的 sine（正弦）值。
【异常/错误】
无
【描述】
Sin 函数取一角度为参数值，并返回角的对边长度除以斜边长度的比值。
结果的取值范围在 -1 到 1 之间。
为了将角度转换为弧度，请将角度乘以 pi /180。为了将弧度转换为角度，请将弧度乘以 180/pi。
【示例】
本示例使用 Sin 函数来求出一个角的正弦值（sin()）。
Dim MyAngle, MyCosecant
MyAngle = 1.3 ' 定义角度（以“弧度”为单位）。
MyCosecant = 1 / Sin(MyAngle) ' 利用正弦来计算余割（csc()）。
【备注】
无
=======
【名称】
Space
【类别】
字符串函数
【原形】
Space(number)
【参数】
必选的， number 参数为字符串中想要的空格数。
【返回值】
返回 Variant (String)型数据类型。
【异常/错误】
无
【描述】
返回 number 参数指定个数的空格组成的字符串。
【示例】
本示例使用 Space 函数来生成一个字符串，字符串的内容为空格，长度为指定的长度。
Dim MyString
' 返回 10 个空格的字符串。
MyString = Space(10)
' 将 10 个空格插入两个字符串中间。
MyString = "Hello" & Space(10) & "World"
【备注】
Space 函数在格式输出或清除固定长度字符串数据时很有用。
函数值类型和函数功能如下表所示。
字符串函数
函数名
函数值类型
功能
举例
Chr$(N)
String
求以N为ASCII码的字符
Chr(65)=“A”
Str$(N)
String
将N转换为字符串，如果N>0，则返回的字符串中包含一个前导空格，暗示有一个正号
Str$(-12345)=“-12345”
Str(12345)= “ 12345”
Len(C)
Long
求字符串C中包含的字符个数
Len(“Abab字符串4")=8
Ucase$(C)
String
将字符串C中的小写英文字母转换成大写英文字母
Ucase(“abABabc")="ABABABC"
Lcase$(C)
String
将字符串C中的大写英文字母转换成小写英文字母
Ucase(“abABabc")="abababc"
Space$(N)
String
产生N个空格组成的字符串
Len(Space(6))=6
String$(N，C)
String
产生N个由C指定的第一个字符组成的字符串，C可以是ASCII码数
String(6，”ABC”)=“AAAAAA”
String(6，65)=“AAAAAA”
Left(C，N)
String
从字符串C的最左边开始，截取N个字符
Left$(“ABCDEF"，3)="ABC”
Right$(C，N)
String
从字符串C的最右边开始，截取N个字符
Right$ (“ABCDEF"，3)="DEF”
Mid$(C，N1 [，N2 ])
String
从字符串C中N1指定的起始位置处开始，截取N2个字符
Mid(“ABCDEF”，2，3)=”BCD”
Mid(“ABCDEF”，2)=”BCDEF”
Ltrim$(C)
String
删除字符串C中的前导空格
Ltrim(“ ABCD ”)="ABCD ”
Rtrim$(C)
String
删除字符串C中的尾部空格
Ltrim(“ ABCD ”)=" ABCD”
Trim$(C)
String
删除字符串参数中的前导和尾部空格
Ltrim(“ ABCD ”)="ABCD”
StrComp(C1,C2[,N])
Integer
比较字符串C1和字符串C2的大小，N是比较类型，取值0、1或2
StrComp(“ABC"，”abc"，1)=0
StrComp(“ABC"，”abc"，0)=-1
StrComp(“abc "，” ABC "，0)=1
InStr([N1,]C1,C2[,N2])
Integer
在字符串C1中，从N1开始到N2位置，开始找C2，省略N1时从C1头开始找，省略N2时找到C1尾止。找不到时，函数值为0
InStr(2,”ABCDE”,”C”,4)=3
InStr(2,”ABCDEF”,”CDE”)=3
InStr(”ABCDEFGH”,”CDE”)=3
InStr(”ABCDEFGH”,”XY”)=0
说明：（1）表中的C表示是字符串表达式，表中的N表示是数值表达式
（2）对于数值函数Val(C)，逗号“，”和美圆符号“$”，都不能被识别；空格、制表符和换行符都将从参数中去掉；当遇到字母E或D 时，将其按单精度或双精度实型浮点数处理。
（3）LenB(C)函数与Len(C)函数功能相近，只不过LenB函数求的是字符串的字节数，而不是字符串中字符的个数。例如：LenB(“ABCabc123")=18，LenB(“字符串”)=6。
（4）对于产生字符串函数String$(N，C)，其中，C参数可以为任何有效的数值表达式或字符串表达式，如果为数值表达式，则表示组成字符串的字符的ASCII码；如果为字符串表达式，则其第一个字符将用于产生字符串。
（5）对于字符串左截函数Left(C,N），N参数为数值表达式，其值指出函数值中包含多少个字符，如果其值为0，则函数值是长度为零的字符串(即空串)；如果其值大于或等于字符串C中的字符数，则函数值为整个字符串。
LeftB函数与Left函数功能相近，只不过LeftB函数求的是字符串的字节数，而不是字符串中字符的个数。LeftB(“ABCDE”,6)=”ABC”。
(6) 对于字符串右截取函数Right(C，N)，N参数为数值表达式，其值指出函数值中包含多少个字符。如果其值为0，则函数值为空串；如果其值大于或等于字符串C中的字符个数，则函数值为整个字符串。
RightB函数与Right函数功能相近，只不过RightB函数求的是字符串的字节数，而不是字符串中字符的个数。RightB(“ABCDE”,6)=”CDE”。
（7）N1是数值表达式，其值表示开始截取字符的起始位置。如果该数值超过字符串C中的字符数，则函数值为空串。N2是数值表达式，其值表示要截取的字符数。如果省略该参数，则函数值将包含字符串C中从起始位置到字符串末尾的所有字符。
MidB函数与Mid函数功能相近，只不过MidB函数求的是字符串的字节数，而不是字符串中字符的个数。例如：MidB(“ABCDEFG”,5,8)=”CDEF”。
（8）因为将一字符串赋值给一定长字符串变量时，如字符串变量的长度大于字符串的长度，则用空格填充该字符串变量尾部多余的部分，所以在处理定长字符串变量时，删除空格的Ltrim和Rtrim函数是非常有用的。
（9）对于字符串比较函数StrComp(C1,C2[,N] )，N是指定字符串的比较类型。比较类型可以是0、1或2，若比较类型为0，则执行二进制比较，此时英文字母区分大小写；若比较类型为1，则执行文本比较，此时英文字母不区分大小写；若比较类型为2，则是执行基于数据库信息的比较，仅对Microsoft Access起作用。若省略该参数，则默认比较类型为0。
当字符串C1小于字符串C2时，函数值为—1；当字符串C1等于字符串C2时，函数值为0：当字符串C1大于字符串C2时，函数值为1。
=======
【名称】
Sqr
【类别】
数学函数
【原形】
Sqr(number)
【参数】
必选的，number 参数是一个Double 或任何有效的大于或等于 0 的数值表达式。
【返回值】
返回一个 Double。
【异常/错误】
无
【描述】
返回指定参数number 的平方根
【示例】
本示例使用 Sqr 函数来计算某数的平方根。
Dim MySqr
MySqr = Sqr(4) ' 返回 2。
MySqr = Sqr(23) ' 返回 4.79583152331272。
MySqr = Sqr(0) ' 返回 0。
MySqr = Sqr(-4) ' 生成一个运行时错误（负数不能用此函数开平方根）。
【备注】
无
=======
【名称】
Str
【类别】
字符串函数
【原形】
Str(number)
字符串函数的函数名后面可以加$符号。
【参数】
必选的， number 参数是一个用来识别某字符的 Long任何有效的数值型表达式。
【返回值】
返回Variant (String)数据类型。
【异常/错误】
无
【描述】
将number 参数指示的一个数字转成字符串。
【示例】
本示例使用 Str 函数来将一个数字转成字符串。当数字转成字符串时，字符串的第一个位一定是空格或是正负号。
Dim MyString
MyString = Str(459) ' 返回 " 459"。
MyString = Str(-459.65) ' 返回 "-459.65"。
MyString = Str(459.001) ' 返回 " 459.001"。
【备注】
当一数字转成字符串时，总会在前头保留一空位来表示正负。如果 number 为正，返回的字符串包含一前导空格暗示有一正号。
使用 Format 函数可将数值转成必要的格式，如日期、时间、货币或其他用户自定义格式。与 Str 不同的是，Format 函数不包含前导空格来放置 number 的正负号。
注意：Str 函数只视句点 (.) 为有效的小数点。如果使用不同的小数点（例如，国际性的应用程序），可使用 CStr 将数字转成字符串。
函数值类型和函数功能如下表所示。
字符串函数
函数名
函数值类型
功能
举例
Chr$(N)
String
求以N为ASCII码的字符
Chr(65)=“A”
Str$(N)
String
将N转换为字符串，如果N>0，则返回的字符串中包含一个前导空格，暗示有一个正号
Str$(-12345)=“-12345”
Str(12345)= “ 12345”
Len(C)
Long
求字符串C中包含的字符个数
Len(“Abab字符串4")=8
Ucase$(C)
String
将字符串C中的小写英文字母转换成大写英文字母
Ucase(“abABabc")="ABABABC"
Lcase$(C)
String
将字符串C中的大写英文字母转换成小写英文字母
Ucase(“abABabc")="abababc"
Space$(N)
String
产生N个空格组成的字符串
Len(Space(6))=6
String$(N，C)
String
产生N个由C指定的第一个字符组成的字符串，C可以是ASCII码数
String(6，”ABC”)=“AAAAAA”
String(6，65)=“AAAAAA”
Left(C，N)
String
从字符串C的最左边开始，截取N个字符
Left$(“ABCDEF"，3)="ABC”
Right$(C，N)
String
从字符串C的最右边开始，截取N个字符
Right$ (“ABCDEF"，3)="DEF”
Mid$(C，N1 [，N2 ])
String
从字符串C中N1指定的起始位置处开始，截取N2个字符
Mid(“ABCDEF”，2，3)=”BCD”
Mid(“ABCDEF”，2)=”BCDEF”
Ltrim$(C)
String
删除字符串C中的前导空格
Ltrim(“ ABCD ”)="ABCD ”
Rtrim$(C)
String
删除字符串C中的尾部空格
Ltrim(“ ABCD ”)=" ABCD”
Trim$(C)
String
删除字符串参数中的前导和尾部空格
Ltrim(“ ABCD ”)="ABCD”
StrComp(C1,C2[,N])
Integer
比较字符串C1和字符串C2的大小，N是比较类型，取值0、1或2
StrComp(“ABC"，”abc"，1)=0
StrComp(“ABC"，”abc"，0)=-1
StrComp(“abc "，” ABC "，0)=1
InStr([N1,]C1,C2[,N2])
Integer
在字符串C1中，从N1开始到N2位置，开始找C2，省略N1时从C1头开始找，省略N2时找到C1尾止。找不到时，函数值为0
InStr(2,”ABCDE”,”C”,4)=3
InStr(2,”ABCDEF”,”CDE”)=3
InStr(”ABCDEFGH”,”CDE”)=3
InStr(”ABCDEFGH”,”XY”)=0
说明：（1）表中的C表示是字符串表达式，表中的N表示是数值表达式
（2）对于数值函数Val(C)，逗号“，”和美圆符号“$”，都不能被识别；空格、制表符和换行符都将从参数中去掉；当遇到字母E或D 时，将其按单精度或双精度实型浮点数处理。
（3）LenB(C)函数与Len(C)函数功能相近，只不过LenB函数求的是字符串的字节数，而不是字符串中字符的个数。例如：LenB(“ABCabc123")=18，LenB(“字符串”)=6。
（4）对于产生字符串函数String$(N，C)，其中，C参数可以为任何有效的数值表达式或字符串表达式，如果为数值表达式，则表示组成字符串的字符的ASCII码；如果为字符串表达式，则其第一个字符将用于产生字符串。
（5）对于字符串左截函数Left(C,N），N参数为数值表达式，其值指出函数值中包含多少个字符，如果其值为0，则函数值是长度为零的字符串(即空串)；如果其值大于或等于字符串C中的字符数，则函数值为整个字符串。
LeftB函数与Left函数功能相近，只不过LeftB函数求的是字符串的字节数，而不是字符串中字符的个数。LeftB(“ABCDE”,6)=”ABC”。
(6) 对于字符串右截取函数Right(C，N)，N参数为数值表达式，其值指出函数值中包含多少个字符。如果其值为0，则函数值为空串；如果其值大于或等于字符串C中的字符个数，则函数值为整个字符串。
RightB函数与Right函数功能相近，只不过RightB函数求的是字符串的字节数，而不是字符串中字符的个数。RightB(“ABCDE”,6)=”CDE”。
（7）N1是数值表达式，其值表示开始截取字符的起始位置。如果该数值超过字符串C中的字符数，则函数值为空串。N2是数值表达式，其值表示要截取的字符数。如果省略该参数，则函数值将包含字符串C中从起始位置到字符串末尾的所有字符。
MidB函数与Mid函数功能相近，只不过MidB函数求的是字符串的字节数，而不是字符串中字符的个数。例如：MidB(“ABCDEFG”,5,8)=”CDEF”。
（8）因为将一字符串赋值给一定长字符串变量时，如字符串变量的长度大于字符串的长度，则用空格填充该字符串变量尾部多余的部分，所以在处理定长字符串变量时，删除空格的Ltrim和Rtrim函数是非常有用的。
（9）对于字符串比较函数StrComp(C1,C2[,N] )，N是指定字符串的比较类型。比较类型可以是0、1或2，若比较类型为0，则执行二进制比较，此时英文字母区分大小写；若比较类型为1，则执行文本比较，此时英文字母不区分大小写；若比较类型为2，则是执行基于数据库信息的比较，仅对Microsoft Access起作用。若省略该参数，则默认比较类型为0。
当字符串C1小于字符串C2时，函数值为—1；当字符串C1等于字符串C2时，函数值为0：当字符串C1大于字符串C2时，函数值为1。
=======
【名称】
StrComp
【类别】
字符串函数
【原形】
StrComp(string1, string2[, compare])
【参数】
StrComp 函数的语法有下面的命名参数：
部分
说明
string1
必选参数。任何有效的字符串表达式。
string2
必选参数。任何有效的字符串表达式。
Compare
可选参数。指定字符串比较的类型。如果 compare 参数是 Null，将发生错误。如果省略 compare，Option Compare 的设置将决定比较的类型。
compare 参数设置如下：
常数
值
【描述】
vbUseCompareOption
-1
使用Option Compare语句设置执行一个比较。
vbBinaryCompare
0
执行一个二进制比较。
vbTextCompare
1
执行一个按照原文的比较。
vbDatabaseCompare
2
仅适用于Microsoft Access，执行一个基于数据库信息的比较。
【返回值】
返回0、1、2或-1。
【异常/错误】
无
【描述】
返回比较字符串string1和字符串string2的大小，compare是比较类型，取值0、1或2。
StrComp 函数有下列返回值：
如果
StrComp 返回值
string1 小于 string2
-1
string1 等于 string2
0
string1 大于 string2
1
string1 或 string 2为 Null
Null
【示例】
本示例使用 StrComp 函数来比较两个字符串。如果第三个参数值为 1，字符串是以文本比较的方式进行比较；如果第三个参数值为 0 或是缺省，则以二进制比较的方式进行比较。
文本比较方式会将大小写字母视为一样，但二进制比较方式则视为不同。
Dim MyStr1, MyStr2, MyComp
MyStr1 = "ABCD": MyStr2 = "abcd" ' 定义变量。
MyComp = StrComp(MyStr1, MyStr2, 1) ' 返回 0。
MyComp = StrComp(MyStr1, MyStr2, 0) ' 返回 -1。
MyComp = StrComp(MyStr2, MyStr1) ' 返回 1。
【备注】
函数值类型和函数功能如下表所示。
字符串函数
函数名
函数值类型
功能
举例
Chr$(N)
String
求以N为ASCII码的字符
Chr(65)=“A”
Str$(N)
String
将N转换为字符串，如果N>0，则返回的字符串中包含一个前导空格，暗示有一个正号
Str$(-12345)=“-12345”
Str(12345)= “ 12345”
Len(C)
Long
求字符串C中包含的字符个数
Len(“Abab字符串4")=8
Ucase$(C)
String
将字符串C中的小写英文字母转换成大写英文字母
Ucase(“abABabc")="ABABABC"
Lcase$(C)
String
将字符串C中的大写英文字母转换成小写英文字母
Ucase(“abABabc")="abababc"
Space$(N)
String
产生N个空格组成的字符串
Len(Space(6))=6
String$(N，C)
String
产生N个由C指定的第一个字符组成的字符串，C可以是ASCII码数
String(6，”ABC”)=“AAAAAA”
String(6，65)=“AAAAAA”
Left(C，N)
String
从字符串C的最左边开始，截取N个字符
Left$(“ABCDEF"，3)="ABC”
Right$(C，N)
String
从字符串C的最右边开始，截取N个字符
Right$ (“ABCDEF"，3)="DEF”
Mid$(C，N1 [，N2 ])
String
从字符串C中N1指定的起始位置处开始，截取N2个字符
Mid(“ABCDEF”，2，3)=”BCD”
Mid(“ABCDEF”，2)=”BCDEF”
Ltrim$(C)
String
删除字符串C中的前导空格
Ltrim(“ ABCD ”)="ABCD ”
Rtrim$(C)
String
删除字符串C中的尾部空格
Ltrim(“ ABCD ”)=" ABCD”
Trim$(C)
String
删除字符串参数中的前导和尾部空格
Ltrim(“ ABCD ”)="ABCD”
StrComp(C1,C2[,N])
Integer
比较字符串C1和字符串C2的大小，N是比较类型，取值0、1或2
StrComp(“ABC"，”abc"，1)=0
StrComp(“ABC"，”abc"，0)=-1
StrComp(“abc "，” ABC "，0)=1
InStr([N1,]C1,C2[,N2])
Integer
在字符串C1中，从N1开始到N2位置，开始找C2，省略N1时从C1头开始找，省略N2时找到C1尾止。找不到时，函数值为0
InStr(2,”ABCDE”,”C”,4)=3
InStr(2,”ABCDEF”,”CDE”)=3
InStr(”ABCDEFGH”,”CDE”)=3
InStr(”ABCDEFGH”,”XY”)=0
说明：（1）表中的C表示是字符串表达式，表中的N表示是数值表达式
（2）对于数值函数Val(C)，逗号“，”和美圆符号“$”，都不能被识别；空格、制表符和换行符都将从参数中去掉；当遇到字母E或D 时，将其按单精度或双精度实型浮点数处理。
（3）LenB(C)函数与Len(C)函数功能相近，只不过LenB函数求的是字符串的字节数，而不是字符串中字符的个数。例如：LenB(“ABCabc123")=18，LenB(“字符串”)=6。
（4）对于产生字符串函数String$(N，C)，其中，C参数可以为任何有效的数值表达式或字符串表达式，如果为数值表达式，则表示组成字符串的字符的ASCII码；如果为字符串表达式，则其第一个字符将用于产生字符串。
（5）对于字符串左截函数Left(C,N），N参数为数值表达式，其值指出函数值中包含多少个字符，如果其值为0，则函数值是长度为零的字符串(即空串)；如果其值大于或等于字符串C中的字符数，则函数值为整个字符串。
LeftB函数与Left函数功能相近，只不过LeftB函数求的是字符串的字节数，而不是字符串中字符的个数。LeftB(“ABCDE”,6)=”ABC”。
(6) 对于字符串右截取函数Right(C，N)，N参数为数值表达式，其值指出函数值中包含多少个字符。如果其值为0，则函数值为空串；如果其值大于或等于字符串C中的字符个数，则函数值为整个字符串。
RightB函数与Right函数功能相近，只不过RightB函数求的是字符串的字节数，而不是字符串中字符的个数。RightB(“ABCDE”,6)=”CDE”。
（7）N1是数值表达式，其值表示开始截取字符的起始位置。如果该数值超过字符串C中的字符数，则函数值为空串。N2是数值表达式，其值表示要截取的字符数。如果省略该参数，则函数值将包含字符串C中从起始位置到字符串末尾的所有字符。
MidB函数与Mid函数功能相近，只不过MidB函数求的是字符串的字节数，而不是字符串中字符的个数。例如：MidB(“ABCDEFG”,5,8)=”CDEF”。
（8）因为将一字符串赋值给一定长字符串变量时，如字符串变量的长度大于字符串的长度，则用空格填充该字符串变量尾部多余的部分，所以在处理定长字符串变量时，删除空格的Ltrim和Rtrim函数是非常有用的。
（9）对于字符串比较函数StrComp(C1,C2[,N] )，N是指定字符串的比较类型。比较类型可以是0、1或2，若比较类型为0，则执行二进制比较，此时英文字母区分大小写；若比较类型为1，则执行文本比较，此时英文字母不区分大小写；若比较类型为2，则是执行基于数据库信息的比较，仅对Microsoft Access起作用。若省略该参数，则默认比较类型为0。
当字符串C1小于字符串C2时，函数值为—1；当字符串C1等于字符串C2时，函数值为0：当字符串C1大于字符串C2时，函数值为1。
=======
【名称】
String
【类别】
字符串函数
【原形】
String(number, character)
【参数】
String 函数的语法有下面的命名参数：
部分
说明
number
必选参数；Long。返回的字符串长度。如果 number 包含 Null，将返回 Null。
character
必选参数；Variant。为指定字符的字符码或字符串表达式，其第一个字符将用于建立返回的字符串。如果 character 包含 Null，就会返回 Null。
【返回值】
返回Variant (String)型数据类型。
【异常/错误】
无
【描述】
返回生number个由character指定的字符串中第一个字符组成的字符串，character可以是ASCII码数。
【示例】
本示例使用 String 函数来生成一指定长度，且只含单一字符的字符串。
Dim MyString
MyString = String(5, "*") ' 返回 "*****"。
MyString = String(5, 42) ' 返回 "*****"。
MyString = String(10, "ABC") ' 返回 "AAAAAAAAAA"。
【备注】
如果指定 character 的数值大于 255，String 会按下面的公式将其转为有效的字符码：
character Mod 256
函数值类型和函数功能如下表所示。
字符串函数
函数名
函数值类型
功能
举例
Chr$(N)
String
求以N为ASCII码的字符
Chr(65)=“A”
Str$(N)
String
将N转换为字符串，如果N>0，则返回的字符串中包含一个前导空格，暗示有一个正号
Str$(-12345)=“-12345”
Str(12345)= “ 12345”
Len(C)
Long
求字符串C中包含的字符个数
Len(“Abab字符串4")=8
Ucase$(C)
String
将字符串C中的小写英文字母转换成大写英文字母
Ucase(“abABabc")="ABABABC"
Lcase$(C)
String
将字符串C中的大写英文字母转换成小写英文字母
Ucase(“abABabc")="abababc"
Space$(N)
String
产生N个空格组成的字符串
Len(Space(6))=6
String$(N，C)
String
产生N个由C指定的第一个字符组成的字符串，C可以是ASCII码数
String(6，”ABC”)=“AAAAAA”
String(6，65)=“AAAAAA”
Left(C，N)
String
从字符串C的最左边开始，截取N个字符
Left$(“ABCDEF"，3)="ABC”
Right$(C，N)
String
从字符串C的最右边开始，截取N个字符
Right$ (“ABCDEF"，3)="DEF”
Mid$(C，N1 [，N2 ])
String
从字符串C中N1指定的起始位置处开始，截取N2个字符
Mid(“ABCDEF”，2，3)=”BCD”
Mid(“ABCDEF”，2)=”BCDEF”
Ltrim$(C)
String
删除字符串C中的前导空格
Ltrim(“ ABCD ”)="ABCD ”
Rtrim$(C)
String
删除字符串C中的尾部空格
Ltrim(“ ABCD ”)=" ABCD”
Trim$(C)
String
删除字符串参数中的前导和尾部空格
Ltrim(“ ABCD ”)="ABCD”
StrComp(C1,C2[,N])
Integer
比较字符串C1和字符串C2的大小，N是比较类型，取值0、1或2
StrComp(“ABC"，”abc"，1)=0
StrComp(“ABC"，”abc"，0)=-1
StrComp(“abc "，” ABC "，0)=1
InStr([N1,]C1,C2[,N2])
Integer
在字符串C1中，从N1开始到N2位置，开始找C2，省略N1时从C1头开始找，省略N2时找到C1尾止。找不到时，函数值为0
InStr(2,”ABCDE”,”C”,4)=3
InStr(2,”ABCDEF”,”CDE”)=3
InStr(”ABCDEFGH”,”CDE”)=3
InStr(”ABCDEFGH”,”XY”)=0
说明：（1）表中的C表示是字符串表达式，表中的N表示是数值表达式
（2）对于数值函数Val(C)，逗号“，”和美圆符号“$”，都不能被识别；空格、制表符和换行符都将从参数中去掉；当遇到字母E或D 时，将其按单精度或双精度实型浮点数处理。
（3）LenB(C)函数与Len(C)函数功能相近，只不过LenB函数求的是字符串的字节数，而不是字符串中字符的个数。例如：LenB(“ABCabc123")=18，LenB(“字符串”)=6。
（4）对于产生字符串函数String$(N，C)，其中，C参数可以为任何有效的数值表达式或字符串表达式，如果为数值表达式，则表示组成字符串的字符的ASCII码；如果为字符串表达式，则其第一个字符将用于产生字符串。
（5）对于字符串左截函数Left(C,N），N参数为数值表达式，其值指出函数值中包含多少个字符，如果其值为0，则函数值是长度为零的字符串(即空串)；如果其值大于或等于字符串C中的字符数，则函数值为整个字符串。
LeftB函数与Left函数功能相近，只不过LeftB函数求的是字符串的字节数，而不是字符串中字符的个数。LeftB(“ABCDE”,6)=”ABC”。
(6) 对于字符串右截取函数Right(C，N)，N参数为数值表达式，其值指出函数值中包含多少个字符。如果其值为0，则函数值为空串；如果其值大于或等于字符串C中的字符个数，则函数值为整个字符串。
RightB函数与Right函数功能相近，只不过RightB函数求的是字符串的字节数，而不是字符串中字符的个数。RightB(“ABCDE”,6)=”CDE”。
（7）N1是数值表达式，其值表示开始截取字符的起始位置。如果该数值超过字符串C中的字符数，则函数值为空串。N2是数值表达式，其值表示要截取的字符数。如果省略该参数，则函数值将包含字符串C中从起始位置到字符串末尾的所有字符。
MidB函数与Mid函数功能相近，只不过MidB函数求的是字符串的字节数，而不是字符串中字符的个数。例如：MidB(“ABCDEFG”,5,8)=”CDEF”。
（8）因为将一字符串赋值给一定长字符串变量时，如字符串变量的长度大于字符串的长度，则用空格填充该字符串变量尾部多余的部分，所以在处理定长字符串变量时，删除空格的Ltrim和Rtrim函数是非常有用的。
（9）对于字符串比较函数StrComp(C1,C2[,N] )，N是指定字符串的比较类型。比较类型可以是0、1或2，若比较类型为0，则执行二进制比较，此时英文字母区分大小写；若比较类型为1，则执行文本比较，此时英文字母不区分大小写；若比较类型为2，则是执行基于数据库信息的比较，仅对Microsoft Access起作用。若省略该参数，则默认比较类型为0。
当字符串C1小于字符串C2时，函数值为—1；当字符串C1等于字符串C2时，函数值为0：当字符串C1大于字符串C2时，函数值为1。
=======
【名称】
Tan
【类别】
数学函数
【原形】
Tan(number)
【参数】
必选的，number 参数是一个Double 或任何有效的数值表达式，表示一个以弧度为单位的角度。
【返回值】
返回一个 Double。
【异常/错误】
无
【描述】
返回指定参数number 的正切值。Tan 取一角度为参数值，并返回直角的两条邻边的比值。该比值是角的对边长度除以角的邻边长度的商。
为了将角度转换为弧度，请将角度乘以 pi/180/180。为了将弧度转换为角度，请将弧度乘以 180/pi。
【示例】
本示例使用 Tan 函数来求出一个角的正切（tan()）。
Dim MyAngle, MyCotangent
MyAngle = 1.3 ' 定义角度（以“弧度”为单位）。
MyCotangent = 1 / Tan(MyAngle) ' 利用正切来计算余切（cot()）。
【备注】
以下为非基本数学函数的列表，皆可由基本数学函数导出：
函数
由基本函数导出之公式
Secant（正割）
Sec(X) = 1 / Cos(X)
Cosecant（余割）
Cosec(X) = 1 / Sin(X)
Cotangent（余切）
Cotan(X) = 1 / Tan(X)
Inverse Sine （反正弦）
Arcsin(X) = Atn(X / Sqr(-X * X + 1))
Inverse Cosine （反余弦）
Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
Inverse Secant （反正割）
Arcsec(X) = Atn(X / Sqr(X * X - 1)) + Sgn((X) - 1) * (2 * Atn(1))
Inverse Cosecant （反余割）
Arccosec(X) = Atn(X / Sqr(X * X - 1)) + (Sgn(X) - 1) * (2 * Atn(1))
Inverse Cotangent（反余切）
Arccotan(X) = Atn(X) + 2 * Atn(1)
Hyperbolic Sine （双曲正弦）
HSin(X) = (Exp(X) - Exp(-X)) / 2
Hyperbolic Cosine （双曲余弦）
HCos(X) = (Exp(X) + Exp(-X)) / 2
Hyperbolic Tangent （双曲正切）
HTan(X) = (Exp(X) - Exp(-X)) / (Exp(X) + Exp(-X))
Hyperbolic Secant （双曲正割）
HSec(X) = 2 / (Exp(X) + Exp(-X))
Hyperbolic Cosecant（双曲余割）
HCosec(X) = 2 / (Exp(X) - Exp(-X))
Hyperbolic Cotangent（双曲余切）
HCotan(X) = (Exp(X) + Exp(-X)) / (Exp(X) - Exp(-X))
Inverse Hyperbolic Sine（反双曲正弦）
HArcsin(X) = Log(X + Sqr(X * X + 1))
Inverse Hyperbolic Cosine（反双曲余弦）
HArccos(X) = Log(X + Sqr(X * X - 1))
Inverse Hyperbolic Tangent（反双曲正切）
HArctan(X) = Log((1 + X) / (1 - X)) / 2
Inverse Hyperbolic Secant（反双曲正割）
HArcsec(X) = Log((Sqr(-X * X + 1) + 1) / X)
Inverse Hyperbolic Cosecant
HArccosec(X) = Log((Sgn(X) * Sqr(X * X + 1) + 1) / X)
Inverse Hyperbolic Cotangent （反双曲余切）
HArccotan(X) = Log((X + 1) / (X - 1)) / 2
以 N 为底的对数
LogN(X) = Log(X) / Log(N)
=======
【名称】
Terminate
【类别】
事件过程
【原形】
Private Sub object_Terminate( )
【参数】
object 所在处代表一个对象表达式，其值是 “应用于”列表中的一个对象。
【描述】
通过设置所涉及对象的所有变量为 Nothing，Form、MDIForm、User 控件、Property Page Webclass、DHTML Page Designer或类的实例的所有引用都被从内存删除，或当对象的最后一个引用失去范围时发生。
【示例】
无
【备注】
除类之外所有的对象，Terminate 事件在 Unload 事件之后发生。
如果窗体或类的实例从内存删除，因为应用程序是非正常结束，所以不会触发 Terminate 事件。例如，应用程序在从内存中删除所有存在的类或窗体的实例前，调用 End 语句，对该类或窗体，Terminate 事件不会触发。
=======
【名称】
Time
【类别】
日期和时间函数
【原形】
Time[$][()]
【参数】
【返回值】
返回Variant (Date)数据类型。
【异常/错误】
无
【描述】
返回计算机系统的时间。例如：执行Print Time后的结果为：14:18:30。
【示例】
本示例使用 Time 函数返回系统当前的时间。
Dim MyTime
MyTime = Time ' 返回系统当前的时间。
【备注】
日期和时间函数的函数名、函数值类型和函数功能如下表所示。针对表中的举例，设当前的系统时间为2003年4月23日下午两点18分30秒。
表 日期和时间函数
函数名
函数值类型
功能
举例
Now
Date
返回当前的系统日期和系统时间
执行Print Now后的结果为：2003-4-23 14:18:30
Date[$][()]
Date
返回当前的系统日期
执行Print Date后的结果为：2003-4-23
Time[$][()]
Date
返回当前的系统时间
执行Print Time后的结果为：14:18:30
DateSerial(年，月，日)
Integer
相对1899年12月30日（为0）返回一个天数值。其中的年、月、日参数为数值型表达式
执行Print DateSerial (99,06,01)- DateSerial (99,05,01) 后的结果为：31
DateValue(C)
Integer
相对1899年12月30日（为0）返回一个天数值，参数C为字符型表达式
执行Print DateValue (“99,06,01”)-DateValue(“99,05,01”) 后的结果为：31
Year(D)
Integer
返回日期D的年份，D可以是任何能够表示日期的数值、字符串表达式或它们的组合。其中，参数为天数时，函数值为相对于1899年12月30日后的指定天数的年号，其取值在1753到2078之间
执行Print Year(Date) 后的结果为：2003
执行Print Year(365) 后的结果为：1900
1899年12月30日后的365天是1900年
Month(D)
Integer
返回日期D的月份，函数值为1到12之间的整数
执行Print Month(Date) 后的结果为：8
Day(D)
Integer
返回日期D的日数，函数值为1到31之间的整数
执行Print Day(Date) 后的结果为：23
WeekDay(D)
Integer
返回日期D是星期几, 函数值与星期的对应关系如表2.6所示
执行Print WeekDay (Date)后的结果为：3
Hour(T)
Integer
返回时间参数中的小时数，函数值为0到23之间的整数
执行Print Hour(Now)后的结果为：14
Minute(T)
Integer
返回时间参数中的分钟数，函数值为0到59之间的整数
执行Print Minute(Now) 后的结果为：18
Second(T)
Integer
返回时间参数中的秒数，函数值为0到59之间的整数
执行PrintSecond(Now) 后的结果为：30
DateAdd(时间单位，时间，D)
Date
返回参考日期D加上一段时间T之后的日期，时间单位为一个字符串，表示所要加上的时间的单位，其取值及含义如表2.7所示
执行Print DateAdd(”m”，2，Date) 后的结果为：
2003-6-23。
执行Print DateAdd(”q”，1，Date) 后的结果为：
2003-7-23
DateDiff(时间单位，D1，D2)
Long
返回两个指定日期D1和D2之间的间隔时间。如果日期D1比D2早，则函数值为正数，否则函数值为负数。时间单位，同DateAdd函数的时间单位参数
执行Print DateDiff (“m”,#6/16/2002#,#6/16/2003#后的结果为：12
执行Print DateDiff (“m”,#6/16/2003#,#6/16/2002#后的结果为：-12
IsDate(参数)
Boolean
判断参数是否可以转换成日期，参数可以是任何类型的有效表达式。如果参数的值可转化成日期型数据，则函数值为Tree，否则函数值为False。在Microsoft Windows中，其范围为公元100年1月1日至公元9999年12月31日。
IsDate(99-6-18)=False
IsDate(“99-6-18")=True
说明：（1）在表2.5中，日期参数D是任何能够表示为日期的数值型表达式、字符串型表达式或它们的组合。时间参数T是任何能够表示为时间的数值型表达式、字符串型表达式或它们的组合。
当参数D是数值型表达式时，其值表示相对于1899年12月30日前后天数，负数是1899年12月30日以前，正数是1899年12月30日以后。
（2）星期函数Weekday(D)的函数值与星期的对应关系如下表所示。
表 星期函数Weekday(D)的函数值与星期的对应关系
函数值
星期
函数值
星期
1
星期日
5
星期四
2
星期一
6
星期五
3
星期二
7
星期六
4
星期三
=======
【名称】
Timer
【类别】
事件过程
【原形】
Private Sub object_Timer([index As Integer])
【参数】
Timer 事件参数包括下列部分：
部分
【描述】
object
一个对象表达式，其值是“应用于”列表中的一个对象。
index
一个整数，用来唯一地标识一个在控件数组中的控件。
【描述】
在一个 Timer 控件的预定的时间间隔过去之后发生。该间隔的频率储存于该控件的 Interval 属性中，它以千分之一秒为单位指定时间的长度。
【示例】
这个例子演示一个数字时钟。 要尝试这个例子，可以将代码粘贴到包含一个 Label 控件和一个 Timer 控件窗体的声明部分，然后按 F5。
Private Sub Form_Load ()
Timer1.Interval = 1000 ' 设置计时器时间间隔。
End Sub
Private Sub Timer1_Timer ()
Label1.Caption = Time ' 更新时间显示。
End Sub
本例在一个窗体内移动一个 PictureBox 控件。要尝试这个例子，可以将代码粘贴到一个包含 Timer 控件和一个 PictureBox 控件窗体的声明部分，然后按 F5。为了得到更好的视觉效果，可以将 PictureBox 的 Picture 属性赋值为一个位图。
Dim DeltaX, DeltaY As Integer ' 声明变量。
Private Sub Timer1_Timer ()
Picture1.Move Picture1.Left + DeltaX, Picture1.Top + DeltaY
If Picture1.Left < ScaleLeft Then DeltaX = 100
If Picture1.Left + Picture1.Width > ScaleWidth + ScaleLeft Then
DeltaX = -100
End If
If Picture1.Top < ScaleTop Then DeltaY = 100
If Picture1.Top + Picture1.Height > ScaleHeight + ScaleTop Then
DeltaY = -100
End If
End Sub
Private Sub Form_Load ()
Timer1.Interval = 1000 ' 设置时间间隔。
DeltaX = 100 ' 初始化变量。
DeltaY = 100
End Sub
【备注】
使用 Timer 事件时，可用此事件在每次 Timer 控件时间间隔过去之后通知 Visual Basic 应该做什么：
Interval 属性以千分之一秒为单位指定 Timer 事件之间的间隔。
无论何时，只要 Timer 控件的 Enabled 属性被设置为 True 而且 Interval 属性大于 0，则 Timer 事件以 Interval 属性指定的时间间隔发生。
=======
【名称】
Trim
【类别】
字符串函数
【原形】
Trim(string)
【参数】
必选的，string 参数可以是任何有效的字符串表达式。如果 string 包含 Null，将返回 Null。
【返回值】
返回 Variant (String)型数据类型。
【异常/错误】
无
【描述】
返回String指定字符串的拷贝，没有前导和尾随空白 (Trim)。
【示例】
本示例使用 LTrim 及 RTrim 函数将某字符串的开头及结尾的空格全部去除。事实上只使用 Trim 函数也可以做到将两头空格全部去除。
Dim MyString, TrimString
MyString = " <-trim-> " ' 设置字符串初值。
TrimString = LTrim(MyString) ' TrimString = "<-trim-> "。
TrimString = RTrim(MyString) ' TrimString = " <-trim->"。
TrimString = LTrim(RTrim(MyString)) ' TrimString = "<-trim->"。
' 只使用 Trim 函数也同样将两头空格去除。
TrimString = Trim(MyString) ' TrimString = "<-trim->"。
【备注】
=======
【名称】
TypeName
【类别】
判断函数
【原形】
TypeName(varname)
【参数】
必选的，varname 参数是一个 Variant，包含用户定义类型变量之外的任何变量。
【返回值】
返回一个 String，提供有关变量的信息。
TypeName 所返回的字符串可以是下面列举的任何一个字符串：
返回字符串
变量
对象类型
类型为 objecttype 的对象
Byte
位值
Integer
整数
Long
长整数
Single
单精度浮点数
Double
双精度浮点数
Currency
货币
Decimal
十进制值
Date
日期
String
字符串
布尔
布尔值
Error
错误值
Empty
未初始化
Null
无效数据
Object
对象
Unknown
类型未知的对象
Nothing
不再引用对象的对象变量
如果 varname 是一个数组，则返回的字符串可以是任何一个后面添加了空括号的可能的返回字符串（或 Variant）。例如，如果 varname 是一个整数数组，则 TypeName 返回 "Integer()"。
【异常/错误】
无
【描述】
返回 varname参数的类型。varname参数可以是任何有效的表达式，表达式中可以包含除用户自定义数据类型变量之外的任何其他类型变量。函数值为一个字符串，说明表达式的类型、函数值与数据类型的对应关系如表2.2所示。例如：
Dim N1，N2
N1=16：N2=8.6
则: TypeName(N1)= “Integer” ， TypeName(N2)=“Double”
【示例】
本示例使用 TypeName 函数返回有关变量的信息。
' 声明变量。
Dim NullVar, MyType, StrVar As String, IntVar As Integer, CurVar As Currency
Dim ArrayVar (1 To 5) As Integer
NullVar = Null ' 设置变量值为 Null。
MyType = TypeName(StrVar) ' 返回 "String"。
MyType = TypeName(IntVar) ' 返回 "Integer"。
MyType = TypeName(CurVar) ' 返回 "Currency"。
MyType = TypeName(NullVar) ' 返回 "Null"。
MyType = TypeName(ArrayVar) ' 返回 "Integer()"。
【备注】
=======
【名称】
UCase
【类别】
字符串函数
【原形】
UCase(string)
【参数】
必选的，string 参数为任何有效的字符串表达式。如果 string 包含 Null，将返回 Null。
【返回值】
返回 Variant (String)数据类型。
【异常/错误】
无
【描述】
返回将string 参数字符串中的小写英文字母转换成大写英文字母。
【示例】
本示例使用 UCase 函数来将某字符串转成全部大写。
Dim LowerCase, UpperCase
LowerCase = "Hello World 1234" ' 要输送的字符串。
UpperCase = UCase(LowerCase) ' 返回 "HELLO WORLD 1234"。
【备注】
只有小写的字母会转成大写；原本大写或非字母之字符保持不变。
函数值类型和函数功能如下表所示。
字符串函数
函数名
函数值类型
功能
举例
Chr$(N)
String
求以N为ASCII码的字符
Chr(65)=“A”
Str$(N)
String
将N转换为字符串，如果N>0，则返回的字符串中包含一个前导空格，暗示有一个正号
Str$(-12345)=“-12345”
Str(12345)= “ 12345”
Len(C)
Long
求字符串C中包含的字符个数
Len(“Abab字符串4")=8
Ucase$(C)
String
将字符串C中的小写英文字母转换成大写英文字母
Ucase(“abABabc")="ABABABC"
Lcase$(C)
String
将字符串C中的大写英文字母转换成小写英文字母
Ucase(“abABabc")="abababc"
Space$(N)
String
产生N个空格组成的字符串
Len(Space(6))=6
String$(N，C)
String
产生N个由C指定的第一个字符组成的字符串，C可以是ASCII码数
String(6，”ABC”)=“AAAAAA”
String(6，65)=“AAAAAA”
Left(C，N)
String
从字符串C的最左边开始，截取N个字符
Left$(“ABCDEF"，3)="ABC”
Right$(C，N)
String
从字符串C的最右边开始，截取N个字符
Right$ (“ABCDEF"，3)="DEF”
Mid$(C，N1 [，N2 ])
String
从字符串C中N1指定的起始位置处开始，截取N2个字符
Mid(“ABCDEF”，2，3)=”BCD”
Mid(“ABCDEF”，2)=”BCDEF”
Ltrim$(C)
String
删除字符串C中的前导空格
Ltrim(“ ABCD ”)="ABCD ”
Rtrim$(C)
String
删除字符串C中的尾部空格
Ltrim(“ ABCD ”)=" ABCD”
Trim$(C)
String
删除字符串参数中的前导和尾部空格
Ltrim(“ ABCD ”)="ABCD”
StrComp(C1,C2[,N])
Integer
比较字符串C1和字符串C2的大小，N是比较类型，取值0、1或2
StrComp(“ABC"，”abc"，1)=0
StrComp(“ABC"，”abc"，0)=-1
StrComp(“abc "，” ABC "，0)=1
InStr([N1,]C1,C2[,N2])
Integer
在字符串C1中，从N1开始到N2位置，开始找C2，省略N1时从C1头开始找，省略N2时找到C1尾止。找不到时，函数值为0
InStr(2,”ABCDE”,”C”,4)=3
InStr(2,”ABCDEF”,”CDE”)=3
InStr(”ABCDEFGH”,”CDE”)=3
InStr(”ABCDEFGH”,”XY”)=0
说明：（1）表中的C表示是字符串表达式，表中的N表示是数值表达式
（2）对于数值函数Val(C)，逗号“，”和美圆符号“$”，都不能被识别；空格、制表符和换行符都将从参数中去掉；当遇到字母E或D 时，将其按单精度或双精度实型浮点数处理。
（3）LenB(C)函数与Len(C)函数功能相近，只不过LenB函数求的是字符串的字节数，而不是字符串中字符的个数。例如：LenB(“ABCabc123")=18，LenB(“字符串”)=6。
（4）对于产生字符串函数String$(N，C)，其中，C参数可以为任何有效的数值表达式或字符串表达式，如果为数值表达式，则表示组成字符串的字符的ASCII码；如果为字符串表达式，则其第一个字符将用于产生字符串。
（5）对于字符串左截函数Left(C,N），N参数为数值表达式，其值指出函数值中包含多少个字符，如果其值为0，则函数值是长度为零的字符串(即空串)；如果其值大于或等于字符串C中的字符数，则函数值为整个字符串。
LeftB函数与Left函数功能相近，只不过LeftB函数求的是字符串的字节数，而不是字符串中字符的个数。LeftB(“ABCDE”,6)=”ABC”。
(6) 对于字符串右截取函数Right(C，N)，N参数为数值表达式，其值指出函数值中包含多少个字符。如果其值为0，则函数值为空串；如果其值大于或等于字符串C中的字符个数，则函数值为整个字符串。
RightB函数与Right函数功能相近，只不过RightB函数求的是字符串的字节数，而不是字符串中字符的个数。RightB(“ABCDE”,6)=”CDE”。
（7）N1是数值表达式，其值表示开始截取字符的起始位置。如果该数值超过字符串C中的字符数，则函数值为空串。N2是数值表达式，其值表示要截取的字符数。如果省略该参数，则函数值将包含字符串C中从起始位置到字符串末尾的所有字符。
MidB函数与Mid函数功能相近，只不过MidB函数求的是字符串的字节数，而不是字符串中字符的个数。例如：MidB(“ABCDEFG”,5,8)=”CDEF”。
（8）因为将一字符串赋值给一定长字符串变量时，如字符串变量的长度大于字符串的长度，则用空格填充该字符串变量尾部多余的部分，所以在处理定长字符串变量时，删除空格的Ltrim和Rtrim函数是非常有用的。
（9）对于字符串比较函数StrComp(C1,C2[,N] )，N是指定字符串的比较类型。比较类型可以是0、1或2，若比较类型为0，则执行二进制比较，此时英文字母区分大小写；若比较类型为1，则执行文本比较，此时英文字母不区分大小写；若比较类型为2，则是执行基于数据库信息的比较，仅对Microsoft Access起作用。若省略该参数，则默认比较类型为0。
当字符串C1小于字符串C2时，函数值为—1；当字符串C1等于字符串C2时，函数值为0：当字符串C1大于字符串C2时，函数值为1。
=======
【名称】
Unload
【类别】
事件过程
【原形】
Private Sub object_Unload(cancel As Integer)
【参数】
Unload 事件参数包括下列部分：
部分
【描述】
Object
一个对象表达式，其值是“应用于”列表中的一个对象。
Cancel
一个整数，用来确定窗体是否从屏幕删除。如果 cancel 为 0，则窗体被删除。将 cancel 设置为任何一个非零的值可防止窗体被删除。
其中，Cancel表示是一个整数，如果它为非零的值时，可以阻止该窗体被删除；如果它为0时，则该窗体会被删除。Cancel为非零的值时，可以阻止删除窗体，但不能阻止其它事件。可通过QueryUnload事件阻止其它事件。窗体的QueryUnload事件发生在Unload事件之前。在窗体被卸载时，可以通过Unload事件过程将窗体中的数据保存到一个文件中等。
【描述】
当窗体从屏幕上删除时发生。当那个窗体被重新加载时，它的所有控件的内容均被重新初始化。当使用在 Control 菜单中的 Close 命令或 Unload 语句关闭该窗体时，此事件被触发。
当窗体被关掉时或使用Unload语句卸载窗体或MDI子窗体随MDI窗体一同被关闭时，就会产生Unload事件。
【示例】
本例演示在用各种各样的信息框提示用户的同时，关闭一个窗体的简单过程。在实际应用中，可以往通用的 Sub 过程中添加仿真 Visual Basic 中 File 菜单上的 Exit、 Save、 和 Save As 命令的调用。要尝试这个例子，可以将代码粘贴到一个窗体的声明部分，然后按 F5 键。 一旦窗体显示出来，可按 ALT+F4 关闭它。
Private Sub Form_Unload (Cancel As Integer)
Dim Msg, Response ' 声明变量。
Msg = "Save Data before closing?"
Response = MsgBox(Msg, vbQuestion + vbYesNoCancel, "Save Dialog")
Select Case Response
Case vbCancel ' 不允许关闭。
Cancel = -1
Msg = "Command has been canceled."
Case vbYes
' 这里输入保护数据的代码。
Msg = "Data saved."'
Case vbNo
Msg = "Data not saved."
End Select
MsgBox Msg, vbOKOnly, "Confirm" ' 显示信息。
End Sub
【备注】
将 cancel 设置为任何非零的值可防止窗体被删除，但不能阻止其它事件，诸如从 Microsoft Windows 操作环境中退出等。可用 QueryUnload 事件阻止从 Windows 中的退出。
在窗体被卸载时，可用一个 Unload 事件过程来确认窗体是否应被卸载或用来指定想要发生的操作。也可在其中包括任何在关闭该窗体时也许需要的验证代码或将其中的数据储存到一个文件中。
QueryUnload 事件在 Unload 事件之前发生。Unload 事件在 Terminate 事件之前发生。
使用 Unload 语句或在一个窗体的“控件”菜单上选择“关闭”命令，用“任务窗口”列表上的“结束任务”按钮退出应用程序，在当前窗体为其一个子窗体的情况下关闭该 MDI 窗体，或当应用程序正在运行的时候退出 Microsoft Windows 操作环境等情况都可引发 Unload 事件。
=======
【名称】
Val
【类别】
转换函数
【原形】
Val(number)
【参数】
必选的，string 参数可以是一个任何有效的字符串表达式。
【返回值】
返回包含于字符串内的数字。
【异常/错误】
无
【描述】
返回包含于字符串内的数字，字符串中是一个适当类型的数值。
【示例】
本示例使用 Val 函数返回字符串中所含的数值。
Dim MyValue
MyValue = Val("2457") ' 返回 2457。
MyValue = Val(" 2 45 7") ' 返回 2457。
MyValue = Val("24 and 57") ' 返回 24。
【备注】
Val 函数，在它不能识别为数字的第一个字符上，停止读入字符串。那些被认为是数值的一部分的符号和字符，例如美圆号与逗号，都不能被识别。但是函数可以识别进位制符号 &O（八进制）和 &H（十六进制）。空白、制表符和换行符都从参数中被去掉。
下面的返回值为 1615198：
Val(" 1615 198th Street N.E.")
在下面的代码中，Val 为所示的十六进制数值返回十进制数值 -1。
Val("&HFFFF")
注意 Val 函数只会将句点（.）当成一个可用的小数点分隔符。当使用不同的小数点分隔符时，如在国际版应用程序中，代之以 CDbl 来把字符串转换为数字
=======
【名称】
Validate
【类别】
事件过程
【原形】
Private Sub object_Validate(KeepFocus As Boolean)
【参数】
Validate事件参数包含下面几部分：
部分
【描述】
object
一个对象表达式，其值为“应用于”列表中的一个对象。
KeepFocus
确定控件是否失去焦点的值。KeepFocus设置为True时，控件保持焦点。
【描述】
在焦点转换到一个（第二个）控件之前发生，此时该控件的 CausesValidation 属性值设置为True。
【示例】
该示例使用三个控件来示范Validate 事件和CausesValidation 属性的使用。在缺省情况下，两个TextBox 控件的CausesValidatio n属性设置为 True，这样当您想把焦点从一个TextBox转换到另一个时，Validate 事件发生。如果 Text1没有包含日期或 Text2没有包含一个大于10的数字，焦点的转换将被阻止。由于 Command1控件的CausesValidation 属性设置为 False，因此您无论何时都可以单击Help 按钮。
要试验该示例，在窗体中放置一个CommandButton 和两个TextBox 控件，将代码粘接到窗体的“声明”部分并运行此工程。按Tab 键尝试转换焦点。
Private Sub Form_Load()
'设置按钮的CausesValidation属性为False。当用户
'单击按钮时，Validate事件不发生。
'设置按钮的Caption属性为“帮助”。
With Command1
.CausesValidation = False
.Caption = "Help"
End With
Show
With Text1 '选择Text1的文本并为它设置焦点。
.SelLength = Len(Text1.Text)
.SetFocus
End With
End Sub
Private Sub Command1_Click()
'当单击此按钮时给出用户帮助信息。
MsgBox _
"Text1 must be set to a date." & VbCrLF & _
"Text2 must be a number less than 10."
End Sub
Private Sub Text1_Validate(KeepFocus As Boolean)
'如果值不是一个日期，则保持焦点，除非用户
'单击Help。
If Not IsDate(Text1.Text) Then
KeepFocus = True
MsgBox "Please insert a date in this field.", , "Text1"
End if
End Sub
Private Sub Text2_Validate(KeepFocus As Boolean)
'如果值是一个大于10的数字，保持焦点。
If Not IsNumeric(Text2.Text) Or Val(Text2.Text) > 10 Then
KeepFocus = True
MsgBox _
"Please insert a number less than or equal to 10.", , "Text2"
End If
End Sub
【备注】
Validate 事件和CausesValidation 属性协同工怍，防止控件失去焦点直到满足确定的准则。
重点：只有在即将获得焦点的控件的CausesValidation属性值设置为True时，Validate事件才发生。
=======
【名称】
VarType
【类别】
判断函数
【原形】
VarType(varname)
【参数】
必选的，varname 参数是一个 Variant，包含用户定义类型变量之外的任何变量。
【返回值】
常数
值
【描述】
vbEmpty
0
Empty（未初始化）
vbNull
1
Null（无有效数据）
vbInteger
2
整数
vbLong
3
长整数
vbSingle
4
单精度浮点数
vbDouble
5
双精度浮点数
vbCurrency
6
货币值
vbDate
7
日期
vbString
8
字符串
vbObject
9
对象
vbError
10
错误值
vbBoolean
11
布尔值
vbVariant
12
Variant（只与变体中的数组一起使用）
vbDataObject
13
数据访问对象
vbDecimal
14
十进制值
vbByte
17
位值
vbUserDefinedType
36
包含用户定义类型的变量
vbArray
8192
数组
注意 这些常数是由 Visual Basic 为应用程序指定的。这些名称可以在程序代码中到处使用，以代替实际值。
【异常/错误】
无
【描述】
返回varname 参数的类型。参数可以是任何有效的表达式，表达式中可以包含除用户自定义数据类型的变量之外的任何其他类型的变量。函数值为整型数值，函数值与数据类型的对应关系如上表所示。例如：Dim N1，N2
N1=16：N2=8.6
则: VarType(N1)=2，VarType(N2)=5
【示例】
本示例使用 VarType 函数决定变量的次类型（subtype）。
Dim IntVar, StrVar, DateVar, MyCheck
' 初始化变量。
IntVar = 459: StrVar = "Hello World": DateVar = #2/12/69#
MyCheck = VarType(IntVar) ' 返回 2。
MyCheck = VarType(DateVar) ' 返回 7。
MyCheck = VarType(StrVar) ' 返回 8。
【备注】
VarType 函数自身从不对 vbArray 返回值。VarType 总是要加上一些其他值来指出一个具体类型的数组。常数 vbVariant 只与 vbArray 一起返回，以表明 VarType 函数的参数是一个 Variant 类型的数组。例如，对一个整数数组的返回值是 vbInteger + vbArray，或 8194。如果一个对象有缺省属性，则 VarType (object) 返回对象缺省属性的类型。
=======
【名称】
Weekday
【类别】
日期和时间函数
【原形】
Weekday(date, [firstdayofweek])
【参数】
Weekday 函数语法有下列的命名参数：
部分
【描述】
date
必选的。能够表示日期的 Variant、数值表达式、字符串表达式或它们的组合。如果 date 包含 Null，则返回 Null。
Firstdayofweek
可选。指定一星期第一天的常数。如果未予指定，则以 vbSunday 为缺省值。
firstdayofweek 参数有以下设定值：
常数
值
【描述】
vbUseSystem
0
使用 NLS API 设置。
VbSunday
1
星期日（缺省值）
vbMonday
2
星期一
vbTuesday
3
星期二
vbWednesday
4
星期三
vbThursday
5
星期四
vbFriday
6
星期五
vbSaturday
7
星期六
【返回值】
返回一个 Variant (Integer)，包含一个整数，代表某个日期是星期几。
Weekday 函数可以返回以下诸值：
常数
值
【描述】
vbSunday
1
星期日
vbMonday
2
星期一
vbTuesday
3
星期二
vbWednesday
4
星期三
vbThursday
5
星期四
vbFriday
6
星期五
vbSaturday
7
星期六
【异常/错误】
无
【描述】
返回日期D是星期几, 函数值与星期的对应关系如上面表所示。例如：执行Print WeekDay (Date)后的结果为：3。
【示例】
本示例使用 Weekday 函数将日期转换为星期几。
Dim MyDate, MyWeekDay
MyDate = #February 12, 1969# ' 指定一日期。
MyWeekDay = Weekday(MyDate) ' MyWeekDay 的值为 4，因为 MyDate 是星期四。
【备注】
日期和时间函数的函数名、函数值类型和函数功能如下表所示。针对表中的举例，设当前的系统时间为2003年4月23日下午两点18分30秒。
表 日期和时间函数
函数名
函数值类型
功能
举例
Now
Date
返回当前的系统日期和系统时间
执行Print Now后的结果为：2003-4-23 14:18:30
Date[$][()]
Date
返回当前的系统日期
执行Print Date后的结果为：2003-4-23
Time[$][()]
Date
返回当前的系统时间
执行Print Time后的结果为：14:18:30
DateSerial(年，月，日)
Integer
相对1899年12月30日（为0）返回一个天数值。其中的年、月、日参数为数值型表达式
执行Print DateSerial (99,06,01)- DateSerial (99,05,01) 后的结果为：31
DateValue(C)
Integer
相对1899年12月30日（为0）返回一个天数值，参数C为字符型表达式
执行Print DateValue (“99,06,01”)-DateValue(“99,05,01”) 后的结果为：31
Year(D)
Integer
返回日期D的年份，D可以是任何能够表示日期的数值、字符串表达式或它们的组合。其中，参数为天数时，函数值为相对于1899年12月30日后的指定天数的年号，其取值在1753到2078之间
执行Print Year(Date) 后的结果为：2003
执行Print Year(365) 后的结果为：1900
1899年12月30日后的365天是1900年
Month(D)
Integer
返回日期D的月份，函数值为1到12之间的整数
执行Print Month(Date) 后的结果为：8
Day(D)
Integer
返回日期D的日数，函数值为1到31之间的整数
执行Print Day(Date) 后的结果为：23
WeekDay(D)
Integer
返回日期D是星期几, 函数值与星期的对应关系如表2.6所示
执行Print WeekDay (Date)后的结果为：3
Hour(T)
Integer
返回时间参数中的小时数，函数值为0到23之间的整数
执行Print Hour(Now)后的结果为：14
Minute(T)
Integer
返回时间参数中的分钟数，函数值为0到59之间的整数
执行Print Minute(Now) 后的结果为：18
Second(T)
Integer
返回时间参数中的秒数，函数值为0到59之间的整数
执行PrintSecond(Now) 后的结果为：30
DateAdd(时间单位，时间，D)
Date
返回参考日期D加上一段时间T之后的日期，时间单位为一个字符串，表示所要加上的时间的单位，其取值及含义如表2.7所示
执行Print DateAdd(”m”，2，Date) 后的结果为：
2003-6-23。
执行Print DateAdd(”q”，1，Date) 后的结果为：
2003-7-23
DateDiff(时间单位，D1，D2)
Long
返回两个指定日期D1和D2之间的间隔时间。如果日期D1比D2早，则函数值为正数，否则函数值为负数。时间单位，同DateAdd函数的时间单位参数
执行Print DateDiff (“m”,#6/16/2002#,#6/16/2003#后的结果为：12
执行Print DateDiff (“m”,#6/16/2003#,#6/16/2002#后的结果为：-12
IsDate(参数)
Boolean
判断参数是否可以转换成日期，参数可以是任何类型的有效表达式。如果参数的值可转化成日期型数据，则函数值为Tree，否则函数值为False。在Microsoft Windows中，其范围为公元100年1月1日至公元9999年12月31日。
IsDate(99-6-18)=False
IsDate(“99-6-18")=True
说明：（1）在表2.5中，日期参数D是任何能够表示为日期的数值型表达式、字符串型表达式或它们的组合。时间参数T是任何能够表示为时间的数值型表达式、字符串型表达式或它们的组合。
当参数D是数值型表达式时，其值表示相对于1899年12月30日前后天数，负数是1899年12月30日以前，正数是1899年12月30日以后。
（2）星期函数Weekday(D)的函数值与星期的对应关系如下表所示。
表 星期函数Weekday(D)的函数值与星期的对应关系
函数值
星期
函数值
星期
1
星期日
5
星期四
2
星期一
6
星期五
3
星期二
7
星期六
4
星期三
=======
【名称】
Year
【类别】
日期和时间函数
【原形】
Year(date)
【参数】
必选的，date 参数可以是任何能够表示日期的 Variant、数值表达式、字符串表达式或它们的组合。如果 date 包含 Null，则返回 Null。
【返回值】
返回Variant (Integer)数据类型，包含表示年份的整数。
【异常/错误】
无
【描述】
返回日期D的年份，D可以是任何能够表示日期的数值、字符串表达式或它们的组合。其中，参数为天数时，函数值为相对于1899年12月30日后的指定天数的年号，其取值在1753到2078之间。例如：执行Print Year(Date) 后的结果为：2003；执行Print Year(365) 后的结果为：1900。1899年12月30日后的365天是1900年。
【示例】
本示例使用 Year 函数返回某个日期的年份。在开发环境中，日期原义会根据系统的地区设置，以短式日期格式显示。
Dim MyDate, MyYear
MyDate = #February 12, 1969# ' 指定一日期。
MyYear = Year(MyDate) ' MyYear 的值为 1969。
【备注】
日期和时间函数的函数名、函数值类型和函数功能如下表所示。针对表中的举例，设当前的系统时间为2003年4月23日下午两点18分30秒。
表 日期和时间函数
函数名
函数值类型
功能
举例
Now
Date
返回当前的系统日期和系统时间
执行Print Now后的结果为：2003-4-23 14:18:30
Date[$][()]
Date
返回当前的系统日期
执行Print Date后的结果为：2003-4-23
Time[$][()]
Date
返回当前的系统时间
执行Print Time后的结果为：14:18:30
DateSerial(年，月，日)
Integer
相对1899年12月30日（为0）返回一个天数值。其中的年、月、日参数为数值型表达式
执行Print DateSerial (99,06,01)- DateSerial (99,05,01) 后的结果为：31
DateValue(C)
Integer
相对1899年12月30日（为0）返回一个天数值，参数C为字符型表达式
执行Print DateValue (“99,06,01”)-DateValue(“99,05,01”) 后的结果为：31
Year(D)
Integer
返回日期D的年份，D可以是任何能够表示日期的数值、字符串表达式或它们的组合。其中，参数为天数时，函数值为相对于1899年12月30日后的指定天数的年号，其取值在1753到2078之间
执行Print Year(Date) 后的结果为：2003
执行Print Year(365) 后的结果为：1900
1899年12月30日后的365天是1900年
Month(D)
Integer
返回日期D的月份，函数值为1到12之间的整数
执行Print Month(Date) 后的结果为：8
Day(D)
Integer
返回日期D的日数，函数值为1到31之间的整数
执行Print Day(Date) 后的结果为：23
WeekDay(D)
Integer
返回日期D是星期几, 函数值与星期的对应关系如表2.6所示
执行Print WeekDay (Date)后的结果为：3
Hour(T)
Integer
返回时间参数中的小时数，函数值为0到23之间的整数
执行Print Hour(Now)后的结果为：14
Minute(T)
Integer
返回时间参数中的分钟数，函数值为0到59之间的整数
执行Print Minute(Now) 后的结果为：18
Second(T)
Integer
返回时间参数中的秒数，函数值为0到59之间的整数
执行PrintSecond(Now) 后的结果为：30
DateAdd(时间单位，时间，D)
Date
返回参考日期D加上一段时间T之后的日期，时间单位为一个字符串，表示所要加上的时间的单位，其取值及含义如表2.7所示
执行Print DateAdd(”m”，2，Date) 后的结果为：
2003-6-23。
执行Print DateAdd(”q”，1，Date) 后的结果为：
2003-7-23
DateDiff(时间单位，D1，D2)
Long
返回两个指定日期D1和D2之间的间隔时间。如果日期D1比D2早，则函数值为正数，否则函数值为负数。时间单位，同DateAdd函数的时间单位参数
执行Print DateDiff (“m”,#6/16/2002#,#6/16/2003#后的结果为：12
执行Print DateDiff (“m”,#6/16/2003#,#6/16/2002#后的结果为：-12
IsDate(参数)
Boolean
判断参数是否可以转换成日期，参数可以是任何类型的有效表达式。如果参数的值可转化成日期型数据，则函数值为Tree，否则函数值为False。在Microsoft Windows中，其范围为公元100年1月1日至公元9999年12月31日。
IsDate(99-6-18)=False
IsDate(“99-6-18")=True
说明：（1）在表2.5中，日期参数D是任何能够表示为日期的数值型表达式、字符串型表达式或它们的组合。时间参数T是任何能够表示为时间的数值型表达式、字符串型表达式或它们的组合。
当参数D是数值型表达式时，其值表示相对于1899年12月30日前后天数，负数是1899年12月30日以前，正数是1899年12月30日以后。
（2）星期函数Weekday(D)的函数值与星期的对应关系如下表所示。
表 星期函数Weekday(D)的函数值与星期的对应关系
函数值
星期
函数值
星期
1
星期日
5
星期四
2
星期一
6
星期五
3
星期二
7
星期六
4
星期三
191
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
