AppActivate语句
描述：激活其它应用程序。 一、语法：
AppActivate title[,wait]
AppActivate语句的语法具有以下几个命名参数： 部分 title 描述 必需的。字符串表达式，所要激活的应用程序的名称。常使用Shell函数返回的任务识别码来替换title，以激活应用程序 可选的。Boolean值，取值为True/False。说明在激活另一个应用程序之前调用的应用程序是否有焦点。如果为False（缺省），那么，即使调用的应用程序没有焦点，也直wait 接激活指定的应用程序。如果为True，则调用的应用程序会等到有焦点后，才激活指定的应用程序 二、说明：
AppActivate语句不能打开应用程序，只能激活应用程序（使其变成活动窗口）。在使用AppActivate语句时必须打开应用程序，否则程序会报错。所以通常先用Shell函数启动一个应用程序，然后使用AppActivate语句激活。 三、应用举例：
本例使用AppActivate语句来激活Microsoft Excel。建立一个标准工程，在窗体上添加一个命令按钮，将下面的程序粘贴过去。 Private Sub Command1_Click()
AppActivate \激活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(\ '运行Microsoft Excel。
AppActivate MyAppID '激活Microsoft Excel。 End Sub
Beep语句
描述：通过计算机喇叭发出声音。 一、语法： 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 \错误语句。 MsgBox \程序运行\
Exit Sub '程序运行完毕，没有错误退出程序 ErrorHandler: '错误处理入口 Beep '发出声响。 MsgBox \出错\End Sub
单击命令按钮，MsgBox显示\出错\，计算机喇叭发出声音。
误区：有些教材用下面的示例使用Beep语句让计算机连续响三声，实际上计算机在运行下面的程序时只能响一声，原因是计算机的运行速度远比计算机喇叭发出声音的速度快。 Dim I
For I = 1 To 3 '循环3次。 Beep '发出一声。 Next I
Call语句
描述：将控制权转移到一个Sub过程，Function过程，通俗的讲就是调用一个子程序或函数。 一、语法：
[Call]name[argumentlist]
Call语句的语法包含下面部分： 部分 call name (过程名) 描述 可选参数；关键字。如果指定了这个关键字，则参数必须加上括号，例如：Call MyProc(0) 必要参数，要调用的过程名称 可选参数，传递给过程的变量、数组或表达式的列表，各参数间以逗号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 Sub
Private Sub procedure() Dim a '定义变量 a = Date '取日期 Text1.Text = a End Sub
单击命令按钮，Text1显示日期。
下列示例示范如何使用省略了Call关键字来调用函数，并根据返回值决定程序是否继续运行。还在上面的这个标准工程里，用下面的程序替换上面程序中的第一部分。 Private Sub Command1_Click() Dim str As String '定义变量
str = MsgBox(\是否继续运行\ If str = vbNo Then Exit Sub procedure End Sub
单击命令按钮后MsgBox函数提示“是否继续运行”，单击?否?退出程序，Text1无变化；单击?是?运行后面的程序，Text1显示日期。
ChDir语句
描述：改变当前的路径(目录或文件夹)。 一、语法： ChDir path
path(路径名)为必要参数，它是一个字符串表达式，指明将改变到哪个路径(目录或文件夹)。 二、说明：
如果改变的路径不在当前的驱动器上，则应输入包括驱动器在内的完整路径，如： ChDir \ 上移一层目录采用下面的格式： ChDir\
注意：path必须为有效路径，否则系统会报错。 三、应用举例：
本示例使用ChDir语句来改变当前路径，建立一标准工程，在窗体上添加一命令按钮，一个文本框和一个文件列表框(FileListBox)，将下面的程序粘贴过去。 Private Sub Command1_Click() ChDir Text1.Text
File1.Path = Text1.Text End Sub
在文本框里输入一个完整路径，然后单击命令按钮，文件列表框将显示这个路径下的全部文件。
ChDrive语句
描述：改变当前的驱动器。 一、语法： ChDrive drive
drive(驱动器名)为必需参数，它是一个字符串表达式，指明将改变到哪个驱动器。如果使用零长度的字符串(\，则当前的驱动器将不会改变。 二、应用举例：
本示例使用ChDrive语句来改变当前的驱动器。建立一标准工程，在窗体上添加一命令按钮，一个文本框和一个目录列表框(DirListBox)，将下面的程序粘贴过去。 Private Sub Command1_Click() ChDrive Text1.Text
Dir1.Path = Text1.Text End Sub
在文本框里输入一个完整路径，然后单击命令按钮，目录列表框将显示这个驱动器的名称，点击目录列表框右边的箭头，可以看到这个驱动器下的全部一级文件夹。
Close语句
描述：关闭用Open语句打开的输入/输出(I/O)文件。 一、语法：
Close[filenumberlist]
filenumberlist(文件号列表)为可选参数，它是一个或多个文件号，其中filenumber为任何有效的文件号。如果是多个文件号，个文件号之间用逗号隔开，语法如下： [[#]filenumber1][,[#]filenumber2]... 二、说明：
若省略filenumberlist，则将关闭Open语句打开的所有活动文件。文件被关闭后，相关联的缓冲区空间被释放，文件与其文件号之间的关联也将终结。 三、应用举例：
本示例使用Close语句来关闭为Output而打开的文件。建立一个标准工程，在窗体上添加一命令按钮，将下面的程序粘贴过去。 Private Sub Command1_Click()
Open \打开文件。
Print #1, \文件被打开。\将字符串写入文件。 Close '将已打开的文件关闭。 End Sub
运行程序，单击命令按钮。我们会发现程序新建了一个名为“a”的文本文件，“文件被打开。”已经写入导文本里。
Const语句
描述：声明常量。 一、语法：
[Public|Private]Const constname[As type]=expression Const语句的语法包含下面部分： 部分 public 描述 可选的。该关键字用于在模块级别中声明该常量为全局的（公用的），也就是说在所有模块和窗体中都可以使用的常量。该关键字在窗体中不能使用。 可选的。该关键字用于在模块或窗体级声明该常量为局部的，即只能在包含该声明的模块或窗体中使用的常量。不能在过程中使用。 private constname 必需的。有效的常量名；遵循标准的变量命名约定。