作者：杜勇
　　VisualBasic是微软公司推出的简单易学、功能强大编程工具，是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，使用VB能轻而易举地开发适合在Windows环境下各类应用程序。
　　语句是程序的基本功能单位，每条语句都有确切的含义，能完成一定的任务。熟练掌握语句，是开发应用程序的基础。VB共有语句77个，这里给出72个，另外5个由于很少用到没有给出，它们是Width#语句，设置文件的输出行宽度。Implements语句，指定要在包含该语句的类模块中实现的接口或类。其余3个用于声明Property过程的名称，参数以及构成其主体的代码，PropertyGet语句，该Property过程获取一个属性的值；PropertyLet语句，该Property过程给一个属性赋值；PropertySet语句，该Property过程设置一个对象引用。
点击相关语句看详细内容语句
描述
AppActivate语句激活其它应用程序。Beep语句通过计算机喇叭发出声音。Call语句调用一个子程序或函数。ChDir语句改变当前的路径(目录或文件夹)。ChDrive语句改变当前的驱动器。Close语句关闭用Open语句打开的文件。Const语句声明常量。Date语句设置当前系统日期。Declare语句用于在模块或窗体中声明对动态链接库(DLL)中外部过程的引用，在引用API函数时经常用到。Deftype语句在模块或窗体，为变量和传给过程的参数，设置缺省数据类型，以及为其名称以指定的字符开头的Function和PropertyGet过程，设置返回值类型。DeleteSetting语句删除指定的Windows注册表的子键。Dim语句声明局部变量并分配存储空间。Do...Loop语句循环语句，有两种变形，一种是当条件为True时，重复执行一个语句块中的命令。另一种重复执行一个语句块中的命令，直到条件变为True时。End语句结束程序、过程或语句。Enum语句定义枚举类型。Erase语句重新初始化大小固定的数组的元素，以及释放动态数组的存储空间。Error语句模拟错误的发生。Event语句定义用户自定义的事件。Exit语句提前退出控制结构、循环或过程的语句体。FileCopy语句复制一个文件。For...Next语句

作者：杜勇描述：激活其它应用程序。
一、语法：
AppActivate　title,wait]
AppActivate语句的语法具有以下几个命名参数：部分
描述
title必需的。字符串表达式，所要激活的应用程序的名称。常使用Shell函数返回的任务识别码来替换title，以激活应用程序wait可选的。Boolean值，取值为True/False。说明在激活另一个应用程序之前调用的应用程序是否有焦点。如果为False（缺省），那么，即使调用的应用程序没有焦点，也直接激活指定的应用程序。如果为True，则调用的应用程序会等到有焦点后，才激活指定的应用程序二、说明：
　　AppActivate语句不能打开应用程序，只能激活应用程序（使其变成活动窗口）。在使用AppActivate语句时必须打开应用程序，否则程序会报错。所以通常先用Shell函数启动一个应用程序，然后使用AppActivate语句激活。三、应用举例：
　　本例使用AppActivate语句来激活Microsoft Excel。建立一个标准工程，在窗体上添加一个命令按钮，将下面的程序粘贴过去。
Private Sub Command1_Click()
　AppActivate "Microsoft EXCEL" '激活Microsoft Excel。
End Sub
　　首先打开Microsoft Excel，然后运行程序，单击命令按钮，你将看到Excel变成活动窗体。
　　下面示例用Shell函数启动Microsoft Excel，然后用AppActivate语句来激活Microsoft Excel。在运行程序前，首先找到Microsoft Excel的路径，并关闭Excel。
　　在上面的标准工程中，用下面的程序替换上面的程序，并把路径换成你电脑中Microsoft Excel的路径，然后运行程序，单击命令按钮，你将看到Excel被打开并被激活。
Private Sub Command1_Click()
　Dim MyAppID
　MyAppID = Shell("C:\Program Files\Microsoft Office\Office

作者：杜勇描述：通过计算机喇叭发出声音。
一、语法：
Beep 二、说明：
　　呼叫的频率与时间长短取决于硬件和系统软件，并随计算机不同而不同。三、应用举例：
　　在调试程序时，有时需要在发生错误时发出音响。本例在程序运行时，如果某一步发生错误，则转到错误处理入口，使用Beep语句让计算机发出响声，同时MsgBox函数将提示错误。
　　建立一标准工程，在窗体上添加一命令按钮，将下面的程序粘贴过去。
Private Sub Command1_Click()
On Error GoTo ErrorHandler '发生错误转到错误处理入口
　MsgBox "程序运行"
　Exit Sub '程序运行完毕，没有错误退出程序
　ErrorHandler: '错误处理入口
　Beep '发出声响。
　MsgBox "出错"
End Sub
　　单击命令按钮，MsgBox显示"程序运行"。
　　现在加入一条错误的激活Microsoft Excel语句，程序如下：
Private Sub Command1_Click()
　On Error GoTo ErrorHandler '发生错误转到错误处理入口
　AppActivate "EXCEL.EXE" '错误语句。
　MsgBox "程序运行"
　Exit Sub '程序运行完毕，没有错误退出程序
　ErrorHandler: '错误处理入口
　Beep '发出声响。
　MsgBox "出错"
End Sub
　　单击命令按钮，MsgBox显示"出错"，计算机喇叭发出声音。
　　误区：有些教材用下面的示例使用Beep语句让计算机连续响三声，实际上计算机在运行下面的程序时只能响一声，原因是计算机的运行速度远比计算机喇叭发出声音的速度快。
Dim I
　For I = 1 To 3 '循环3次。
　Beep '发出一声。
Next I

作者：杜勇描述：将控制权转移到一个Sub过程，Function过程，通俗的讲就是调用一个子程序或函数。
一、语法：
Call]nameargumentlist]
Call语句的语法包含下面部分：部分
描述
call可选参数；关键字。如果指定了这个关键字，则参数必须加上括号，例如：Call MyProc(0)name (过程名)必要参数，要调用的过程名称argumentlist(参数列表)可选参数，传递给过程的变量、数组或表达式的列表，各参数间以逗号隔开。Argumentlist的每个参数都可以加上关键字ByVal或ByRef，来描述被调用的过程将如何处理这些参数。二、说明：
　　调用一个过程时，并不一定要使用Call关键字。如果使用Call关键字来调用一个需要参数的过程，argumentlist就必须要加上括号。
　　Call name(argumentlist)
　　如果省略了Call关键字，那么也必须要省略argumentlis外面的括号。
　　Name argumentlist
　　如果需要函数的返回值，则应先定义一个变量，然后将函数的返回值赋予变量，这时虽然省略了Call关键字，但argumentlist也必须要加上括号。如下面的格式：
　　Dim str As String
　　str = name(argumentlist)
　　若要将整个数组传给一个过程，使用数组名，然后在数组名后加上空括号。
　　有时为了方便，可用公有变量传递参数。三、应用举例：
　　下列示例示范如何使用Call语句来调用子过程。建立一个标准工程，在窗体上添加一命令按钮和一个文本框，将下面的程序粘贴过去。
Private Sub Command1_Click()
　Call procedure
End SubPrivate Sub procedure()
　Dim a '定义变量
　a = Date '取日期
　Text1.Text = a
End Sub
　　单击命令按钮，Text1显示日期。
　　下列示例示范如何使用省略了Call关键字来调

作者：杜勇描述：改变当前的路径(目录或文件夹)。
一、语法：
ChDir　path
path(路径名)为必要参数，它是一个字符串表达式，指明将改变到哪个路径(目录或文件夹)。 二、说明：
　　如果改变的路径不在当前的驱动器上，则应输入包括驱动器在内的完整路径，如：
　　ChDir "f:\talltree\yyglclient\help"
　　上移一层目录采用下面的格式：
　　ChDir".."
注意：path必须为有效路径，否则系统会报错。三、应用举例：
　　本示例使用ChDir语句来改变当前路径，建立一标准工程，在窗体上添加一命令按钮，一个文本框和一个文件列表框(FileListBox)，将下面的程序粘贴过去。
Private Sub Command1_Click()
　ChDir Text1.Text
　File1.Path = Text1.Text
End Sub
　　在文本框里输入一个完整路径，然后单击命令按钮，文件列表框将显示这个路径下的全部文件。

作者：杜勇描述：改变当前的驱动器。
一、语法：
ChDrive　drive
drive(驱动器名)为必需参数，它是一个字符串表达式，指明将改变到哪个驱动器。如果使用零长度的字符串("")，则当前的驱动器将不会改变。二、应用举例：
　　本示例使用ChDrive语句来改变当前的驱动器。建立一标准工程，在窗体上添加一命令按钮，一个文本框和一个目录列表框(DirListBox)，将下面的程序粘贴过去。
Private Sub Command1_Click()
　ChDrive Text1.Text
　Dir1.Path = Text1.Text
End Sub
　　在文本框里输入一个完整路径，然后单击命令按钮，目录列表框将显示这个驱动器的名称，点击目录列表框右边的箭头，可以看到这个驱动器下的全部一级文件夹。

作者：杜勇描述：关闭用Open语句打开的输入/输出(I/O)文件。
一、语法：
Closefilenumberlist]
filenumberlist(文件号列表)为可选参数，它是一个或多个文件号，其中filenumber为任何有效的文件号。如果是多个文件号，个文件号之间用逗号隔开，语法如下：
#]filenumber1],#]filenumber2]...二、说明：
　　若省略filenumberlist，则将关闭Open语句打开的所有活动文件。文件被关闭后，相关联的缓冲区空间被释放，文件与其文件号之间的关联也将终结。三、应用举例：
　　本示例使用Close语句来关闭为Output而打开的文件。建立一个标准工程，在窗体上添加一命令按钮，将下面的程序粘贴过去。
Private Sub Command1_Click()
　Open "a.txt" For Output As #1 '打开文件。
　Print #1, "文件被打开。" '将字符串写入文件。
　Close '将已打开的文件关闭。
End Sub
　　运行程序，单击命令按钮。我们会发现程序新建了一个名为“a”的文本文件，“文件被打开。”已经写入导文本里。

作者：杜勇描述：声明常量。
一、语法：
Public|Private]Const　constnameAs　type]=expression
Const语句的语法包含下面部分：部分
描述
public可选的。该关键字用于在模块级别中声明该常量为全局的（公用的），也就是说在所有模块和窗体中都可以使用的常量。该关键字在窗体中不能使用。private可选的。该关键字用于在模块或窗体级声明该常量为局部的，即只能在包含该声明的模块或窗体中使用的常量。不能在过程中使用。constname必需的。有效的常量名；遵循标准的变量命名约定。type可选的。常量的数据类型；可以是VB变量的各种类型。所声明的每个常量都要使用一个单独的As类型子句。expression必需的。文字，其它常量，或由除Is之外的任意的算术操作符和逻辑操作符所构成的任意组合。二、说明：
　　对于程序中多次出现的数值、文字等最好使用常量，这样在程序运行时不易出错。常量可以使程序更具可读性，以及易于修改。
　　在缺省情况下常量是局部的。在Sub、Function或Property过程中声明的常量都是该过程的局部常量，在类模块声明的常量也是局部的。在标准模块中，可以用Public关键字来声明常量为全局的。
　　可以在一行中声明若干个常量，使用逗号将每个常量赋值分开。用这种方法声明常量时，如果使用了Public或Private关键字，则该关键字对该行中所有常量都有效。三、应用举例：
　　该示例使用Const语句来声明常量。Public常量在标准模块的通用部分声明，而不是在类模块中声明。Private常量可以在任何模块类型的通用部分声明。
Const Pai = 3.14 '缺省情况下常量是局部的。
Public Const MyStr = "你好" '声明全局常量。
Private Const vbGrayed As Integer = 2 '声明局部的整数常量。
Const MyStr = "你好", Pai As Double = 3.14 '在一行中声明多个常量。

作者：杜勇描述：设置当前系统日期。
一、语法：
Date=date
Date的格式为#mm/dd/yyyy#，日期两边用#，不能用双引号(“”)。对于运行Microsoft　Windows98的系统，要设置的日期必须介于1980年1月1日与2099年12月31日之间。对于运行Microsoft　WindowsNT的系统，日期必须介于公元1980年1月1日到2079年12月31日之间。二、应用举例：
　　本示例使用Date语句来设置系统日期。在开发环境中，日期原义会根据系统的地区设置，以短式日期格式显示。建立一标准工程，在窗体上添加一命令按钮，将下面的程序粘贴过去。
Private Sub Command1_Click()
　Date = #11/6/2007# '设置系统日期。
End Sub
　　单击命令按钮，这时系统日期将改变到你指定的日期。

作者：杜勇描述：用于在模块或窗体中声明对动态链接库(DLL)中外部过程的引用，在引用API函数时经常用到。
一、语法：
语法1
Public|Private]Declare　Sub　name　Lib"libname"Alias"aliasname"](arglist])]
语法2
Public|Private]Declare　Function　name　Lib"libname"Alias"aliasname"](arglist])]As　type]
Declare语句的语法包含下面部分：部分
描述
Public可选的。用于声明其引用是全局的（公用的），也就是说该引用的过程在整个工程中都可以使用。Public只能在模块中声明。Private可选的。用于声明其引用是局部的，也就是说只能在该声明所在的模块或窗体中使用。Sub或Function可选的（但二者必须选其一）。Sub表示该过程没有返回值；Function表示该过程会返回一个可用于表达式的值。Name必需的。为合法的过程名。Lib必需的。Declare的子句。Libname必需的。所声明过程的动态链接库名或代码资源名。Alias可选的。表示将被调用的过程在动态链接库(DLL)中还有另外的名称。当动态链接库的过程与同一范围内的公用变量、常数或任何其它过程的名称相同时，可以使用这个参数。Aliasname可选的。动态链接库或代码资源中的过程名。如果首字符不是数字符号(#)，则aliasname是动态链接库中该过程的入口处的名称。如果首字符是(#)，则随后的字符必须指定该过程的入口处的顺序号。Arglist可选的。代表调用该过程时需要传递的参数列表。Type可选的。Function过程返回值的数据类型；可以是VB变量的各种类型、用户定义类型或对象类型，不支持定长的String。arglist参数的语法以及语法各个部分如下：
Optional]yVal|ByRef]ParamArray]varname()]As　type]部分
描述
Optional可选的。表示参数不是必需的。如果使用该选项，则arglist中的后续参数都必需是可选的，而且必须都使用Optional关键字声明。ByVa