《模块3VisualBasic的过程》由会员分享，可在线阅读，更多相关《模块3VisualBasic的过程（18页珍藏版）》请在金锄头文库上搜索。
1、模块模块3 3 VisualVisual Basic Basic的过程的过程任务任务1 过程的定义与调用过程的定义与调用 任务任务2 参数传送参数传送返回任务任务1 过程的定义与调用过程的定义与调用 3. 1. 1 过程的定义过程的定义 1. 1.利用利用利用利用“ “添加过程添加过程添加过程添加过程” ”对话框定义对话框定义对话框定义对话框定义 打开窗体或模块的代码窗口，选择打开窗体或模块的代码窗口，选择打开窗体或模块的代码窗口，选择打开窗体或模块的代码窗口，选择“ “工具工具工具工具” ”菜单中的菜单中的菜单中的菜单中的“ “添加过程添加过程添加过程添加过程” ”命命命命令，即可打开令，即
2、可打开令，即可打开令，即可打开“ “添加过程添加过程添加过程添加过程” ”对话框，然后按对话框中的提示输入相应对话框，然后按对话框中的提示输入相应对话框，然后按对话框中的提示输入相应对话框，然后按对话框中的提示输入相应内容即可。在内容即可。在内容即可。在内容即可。在“ “名称名称名称名称” ”文本框内输入待定义过程的名称，在文本框内输入待定义过程的名称，在文本框内输入待定义过程的名称，在文本框内输入待定义过程的名称，在“ “类型类型类型类型” ”选项组中选中选项组中选中选项组中选中选项组中选中“ “子程序子程序子程序子程序” ”单选按钮。要定义一个标准模块级或窗体级单选按钮。要定义一个标准模块
3、级或窗体级单选按钮。要定义一个标准模块级或窗体级单选按钮。要定义一个标准模块级或窗体级的局部过程，则选中的局部过程，则选中的局部过程，则选中的局部过程，则选中“ “范围范围范围范围” ”选项组中的选项组中的选项组中的选项组中的“ “私有的私有的私有的私有的” ”单选按钮，然后单选按钮，然后单选按钮，然后单选按钮，然后单击单击单击单击“ “确定确定确定确定” ”按钮，则可建立一个子过程的模板，再编写所需的代码。按钮，则可建立一个子过程的模板，再编写所需的代码。按钮，则可建立一个子过程的模板，再编写所需的代码。按钮，则可建立一个子过程的模板，再编写所需的代码。可以根据需要选中可以根据需要选中可以根
4、据需要选中可以根据需要选中“ “所有本地变量为静态变量所有本地变量为静态变量所有本地变量为静态变量所有本地变量为静态变量” ”复选框。复选框。复选框。复选框。下一页返回任务任务1 过程的定义与调用过程的定义与调用 2. 2.直接在代码窗口定义直接在代码窗口定义直接在代码窗口定义直接在代码窗口定义 进入代码窗口后，在左侧显示对象名的下拉列表框中选择进入代码窗口后，在左侧显示对象名的下拉列表框中选择进入代码窗口后，在左侧显示对象名的下拉列表框中选择进入代码窗口后，在左侧显示对象名的下拉列表框中选择“ “( (通用通用通用通用)”)”，另外，在右侧显示过程的下拉列表框中选择，另外，在右侧显示过程的下
5、拉列表框中选择，另外，在右侧显示过程的下拉列表框中选择，另外，在右侧显示过程的下拉列表框中选择“ “( (声明声明声明声明)”)”，然后输入，然后输入，然后输入，然后输入SubSub及子程序名即可。系统会自动加上及子程序名即可。系统会自动加上及子程序名即可。系统会自动加上及子程序名即可。系统会自动加上End SubEnd Sub与子程序后的一对括与子程序后的一对括与子程序后的一对括与子程序后的一对括号号号号() ()，此时，即可输入子程序语句了。，此时，即可输入子程序语句了。，此时，即可输入子程序语句了。，此时，即可输入子程序语句了。 格式格式格式格式: : Private | Public
6、Static Sub Private | Public Static Sub() 1 Exit Sub Exit Sub 2 End Sub End Sub 上一页 下一页返回任务任务1 过程的定义与调用过程的定义与调用 其中其中其中其中: : Public | Private: Public | Private:表示过程是表示过程是表示过程是表示过程是“ “公用公用公用公用” ”或或或或“ “私用私用私用私用” ”。PublicPublic过程可在整过程可在整过程可在整过程可在整个程序范围内被调用，但必须指明该子过程所在的对象个程序范围内被调用，但必须指明该子过程所在的对象个程序范围内被调用
7、，但必须指明该子过程所在的对象个程序范围内被调用，但必须指明该子过程所在的对象( (如在如在如在如在Form 1Form 1中定义了中定义了中定义了中定义了Sub1Sub1，在，在，在，在Form2Form2中想调用时，应该用中想调用时，应该用中想调用时，应该用中想调用时，应该用Call Form1. Sub1Call Form1. Sub1，而，而，而，而PrivatePrivate过程只能在本窗体或模块中被调用。过程只能在本窗体或模块中被调用。过程只能在本窗体或模块中被调用。过程只能在本窗体或模块中被调用。 Static : Static :表示过程中的局部变量是静态变量，在过程被调用后，
8、其值表示过程中的局部变量是静态变量，在过程被调用后，其值表示过程中的局部变量是静态变量，在过程被调用后，其值表示过程中的局部变量是静态变量，在过程被调用后，其值仍然被保留。仍然被保留。仍然被保留。仍然被保留。 ():):格式为格式为格式为格式为 ByValByVal | | BefBef As As ByValByVal: :表示参数为值传递方式，实参的值不随形参值的变化而变化。表示参数为值传递方式，实参的值不随形参值的变化而变化。表示参数为值传递方式，实参的值不随形参值的变化而变化。表示参数为值传递方式，实参的值不随形参值的变化而变化。 BefBef: :表示参数为地址传递方式，实参的值随形
9、参值的改变而改变。该表示参数为地址传递方式，实参的值随形参值的改变而改变。该表示参数为地址传递方式，实参的值随形参值的改变而改变。该表示参数为地址传递方式，实参的值随形参值的改变而改变。该项为默认项。参数项为默认项。参数项为默认项。参数项为默认项。参数: :可以是变量名或数组名，当为数组名时，形参和可以是变量名或数组名，当为数组名时，形参和可以是变量名或数组名，当为数组名时，形参和可以是变量名或数组名，当为数组名时，形参和实参在参数声明时应省略其维数，但括号实参在参数声明时应省略其维数，但括号实参在参数声明时应省略其维数，但括号实参在参数声明时应省略其维数，但括号 不能省略。多项时，中间不能省
10、略。多项时，中间不能省略。多项时，中间不能省略。多项时，中间用逗号隔开。用逗号隔开。用逗号隔开。用逗号隔开。 Exit Sub : Exit Sub :退出过程。退出过程。退出过程。退出过程。上一页 下一页返回任务任务1 过程的定义与调用过程的定义与调用例如例如例如例如: :Private Sub cp (a As Integer , b As Integer)Private Sub cp (a As Integer , b As Integer)IfaIfa=0 Then=0 ThenExit SubExit SubEnd IfEnd If c1= c1=a+ba+b c2=a-b c2=a
11、-b Print c1= Print c1= ;c1;c1; c2= ;c2 c2= ;c2End SubEnd Sub上一页 下一页返回任务任务1 过程的定义与调用过程的定义与调用 3. 1. 2过程的调用过程的调用 1. 1.使用使用使用使用cancan语句调用语句调用语句调用语句调用 格式格式格式格式:Call:Call过程名过程名过程名过程名( (实参列表实参列表实参列表实参列表) ) 其中其中其中其中: :实参的个数，数据类型都应与被调用过程的形参一一对应。如无实参的个数，数据类型都应与被调用过程的形参一一对应。如无实参的个数，数据类型都应与被调用过程的形参一一对应。如无实参的个数，
12、数据类型都应与被调用过程的形参一一对应。如无参数，可以省略参数，可以省略参数，可以省略参数，可以省略() ()。例如。例如。例如。例如: : Private Sub Command1 Private Sub Command1 Click( )Click( ) str1$=“ str1$=“输入对活框输入对活框输入对活框输入对活框” ” vava= =InputBoxInputBox( ( vava= = ，str1$)str1$) vbvb= =InputBox(vbInputBox(vb= = ，str1$)str1$) Call cp( Call cp( vava，vbvb) ) End
13、Sub End Sub 此时，将输入的值此时，将输入的值此时，将输入的值此时，将输入的值( (va,vbva,vb) )传递给形参传递给形参传递给形参传递给形参a,ba,b，然后在过程中计算。如果，然后在过程中计算。如果，然后在过程中计算。如果，然后在过程中计算。如果a a =0=0，则退出该过程不作任何处理。，则退出该过程不作任何处理。，则退出该过程不作任何处理。，则退出该过程不作任何处理。上一页 下一页返回任务任务1 过程的定义与调用过程的定义与调用 2. 2.直接使用过程名调用直接使用过程名调用直接使用过程名调用直接使用过程名调用 格式格式格式格式: :过程名过程名过程名过程名 实参实参
14、实参实参 ，实参，实参，实参，实参 即：即：即：即：cp cp vava , , vbvb 过程中的代码通常需要某些有关程序执行状态的信息才能完成其工作。过程中的代码通常需要某些有关程序执行状态的信息才能完成其工作。过程中的代码通常需要某些有关程序执行状态的信息才能完成其工作。过程中的代码通常需要某些有关程序执行状态的信息才能完成其工作。信息包括在调用过程时传递到过程内的变量。当将变量传递到过程时，信息包括在调用过程时传递到过程内的变量。当将变量传递到过程时，信息包括在调用过程时传递到过程内的变量。当将变量传递到过程时，信息包括在调用过程时传递到过程内的变量。当将变量传递到过程时，称变量为参数
15、。称变量为参数。称变量为参数。称变量为参数。上一页返回任务任务2 参数传送参数传送 3. 2. 1形式参数和实际参数形式参数和实际参数 过程的参数分为形参和实参两种。形参出现在过程定义中，在整个过过程的参数分为形参和实参两种。形参出现在过程定义中，在整个过过程的参数分为形参和实参两种。形参出现在过程定义中，在整个过过程的参数分为形参和实参两种。形参出现在过程定义中，在整个过程内都可以使用，离开该过程则不能使用。实参出现在主调过程中，程内都可以使用，离开该过程则不能使用。实参出现在主调过程中，程内都可以使用，离开该过程则不能使用。实参出现在主调过程中，程内都可以使用，离开该过程则不能使用。实参出
16、现在主调过程中，进入被调过程后，实参变量也不能使用。形参和实参的功能是进行数进入被调过程后，实参变量也不能使用。形参和实参的功能是进行数进入被调过程后，实参变量也不能使用。形参和实参的功能是进行数进入被调过程后，实参变量也不能使用。形参和实参的功能是进行数据传送。在函数调用时，主调过程把实参的值传送给被调过程的形参，据传送。在函数调用时，主调过程把实参的值传送给被调过程的形参，据传送。在函数调用时，主调过程把实参的值传送给被调过程的形参，据传送。在函数调用时，主调过程把实参的值传送给被调过程的形参，从而实现主调过程向被调过程的数据传送。从而实现主调过程向被调过程的数据传送。从而实现主调过程向被
17、调过程的数据传送。从而实现主调过程向被调过程的数据传送。下一页返回任务任务2 参数传送参数传送 过程的形参和实参具有以下特点。过程的形参和实参具有以下特点。过程的形参和实参具有以下特点。过程的形参和实参具有以下特点。 (1)(1)形参只在过程内部有效，过程调用结束返回主调过程后则不能再形参只在过程内部有效，过程调用结束返回主调过程后则不能再形参只在过程内部有效，过程调用结束返回主调过程后则不能再形参只在过程内部有效，过程调用结束返回主调过程后则不能再使用该形参变量。一般情况下，实参在过程内部无效，而在主调过程使用该形参变量。一般情况下，实参在过程内部无效，而在主调过程使用该形参变量。一般情况下
18、，实参在过程内部无效，而在主调过程使用该形参变量。一般情况下，实参在过程内部无效，而在主调过程中有效。中有效。中有效。中有效。 (2)(2)实参可以是常量、变量和表达式等，在进行过程调用时，它们应实参可以是常量、变量和表达式等，在进行过程调用时，它们应实参可以是常量、变量和表达式等，在进行过程调用时，它们应实参可以是常量、变量和表达式等，在进行过程调用时，它们应该具有确定的值，以便把这些值传送给形参。该具有确定的值，以便把这些值传送给形参。该具有确定的值，以便把这些值传送给形参。该具有确定的值，以便把这些值传送给形参。 (3)(3)实参和形参在数量上、类型上和顺序上要保持一致，防止对应错实参和
19、形参在数量上、类型上和顺序上要保持一致，防止对应错实参和形参在数量上、类型上和顺序上要保持一致，防止对应错实参和形参在数量上、类型上和顺序上要保持一致，防止对应错误。误。误。误。上一页 下一页返回任务任务2 参数传送参数传送下面举例说明参数的传递过程，假如定义过程的代码为下面举例说明参数的传递过程，假如定义过程的代码为下面举例说明参数的传递过程，假如定义过程的代码为下面举例说明参数的传递过程，假如定义过程的代码为: :SubaddSubadd (a As Long (a As Long，b As Long)b As Long) Dim c As Long Dim c As Long c=a*a
20、 + b*b c=a*a + b*b Print c Print cEnd End SubSub调用函数的代码为调用函数的代码为调用函数的代码为调用函数的代码为: :Dim x As LongDim x As Long，y As Longy As Longx=5x=5v=10v=10Call add(5,6)Call add(5,6)程序中调用程序中调用程序中调用程序中调用addadd过程时，将需要准备两个变量过程时，将需要准备两个变量过程时，将需要准备两个变量过程时，将需要准备两个变量x x和和和和J J作为实参，目的是通过作为实参，目的是通过作为实参，目的是通过作为实参，目的是通过调用调用
21、调用调用add,add,使变量使变量使变量使变量x x和和和和Y Y的数值传递到过程的数值传递到过程的数值传递到过程的数值传递到过程addadd中去进行计算，各个变量中去进行计算，各个变量中去进行计算，各个变量中去进行计算，各个变量的相互关系可用的相互关系可用的相互关系可用的相互关系可用图图3一一1来描述。来描述。来描述。来描述。上一页 下一页返回任务任务2 参数传送参数传送 3. 2. 2按值传递参数按值传递参数 按值传递参数时，传递的只是变量的副本。如果在过程中改变了这个形按值传递参数时，传递的只是变量的副本。如果在过程中改变了这个形按值传递参数时，传递的只是变量的副本。如果在过程中改变了
22、这个形按值传递参数时，传递的只是变量的副本。如果在过程中改变了这个形参的值，则所进行的变动只影响副本而不会影响实参变量本身。可使用参的值，则所进行的变动只影响副本而不会影响实参变量本身。可使用参的值，则所进行的变动只影响副本而不会影响实参变量本身。可使用参的值，则所进行的变动只影响副本而不会影响实参变量本身。可使用ByValByVal关键字指出参数是按值来传递的，例如关键字指出参数是按值来传递的，例如关键字指出参数是按值来传递的，例如关键字指出参数是按值来传递的，例如: : PrivateSub PrivateSub Form Click() Form Click() Dim Dim x As
23、 Long x As Long，y As Longy As Long，z As Longz As Long x=5:y x=5:y,=10:z=15,=10:z=15 add1 x add1 x，v v，z z Print Print z z 因为是按值传递因为是按值传递因为是按值传递因为是按值传递,z ,z的值并没有发生改变，保的值并没有发生改变，保的值并没有发生改变，保的值并没有发生改变，保持持持持1515 End End Sub Sub 形参形参形参形参c c是按值传递是按值传递是按值传递是按值传递 Subadd1(a As LongSubadd1(a As Long，b As Long
24、b As Long，ByValByVal c As Long) c As Long) c=a*a + b*b c=a*a + b*b End End Sub Sub add1 add1过程的功能与过程的功能与过程的功能与过程的功能与addadd过程相似，只不过过程相似，只不过过程相似，只不过过程相似，只不过add1add1中形参中形参中形参中形参c c是按值传递的。是按值传递的。是按值传递的。是按值传递的。上一页 下一页返回任务任务2 参数传送参数传送 3. 2. 3按地址传递参数按地址传递参数 按地址传递参数使过程用变量的内存地址去访问实参变量的内容。结按地址传递参数使过程用变量的内存地址去
25、访问实参变量的内容。结按地址传递参数使过程用变量的内存地址去访问实参变量的内容。结按地址传递参数使过程用变量的内存地址去访问实参变量的内容。结果将实参变量传递给过程时，通过调用过程改变实参变量的值。使用果将实参变量传递给过程时，通过调用过程改变实参变量的值。使用果将实参变量传递给过程时，通过调用过程改变实参变量的值。使用果将实参变量传递给过程时，通过调用过程改变实参变量的值。使用ByRefByRef关键字指出参数是按地址来传递的，在关键字指出参数是按地址来传递的，在关键字指出参数是按地址来传递的，在关键字指出参数是按地址来传递的，在VBVB中参数传递默认是按中参数传递默认是按中参数传递默认是按
26、中参数传递默认是按地址传递的，例如地址传递的，例如地址传递的，例如地址传递的，例如: : PrivateSubPrivateSub Form Click() Form Click() Dim Dim x As Long x As Long，y As Longy As Long，z As Longz As Long x=5:y x=5:y,=10:z=15,=10:z=15 add1 add1 x x，v v，z z Print z Print z 因为是地址传递的，因为是地址传递的，因为是地址传递的，因为是地址传递的，z z的值变为的值变为的值变为的值变为125125 End Sub End
27、Sub 形参形参形参形参c c是地址传递是地址传递是地址传递是地址传递 Subadd1(a As LongSubadd1(a As Long，h As Longh As Long，ByRefByRef c As Long) c As Long) c=a*a c=a*a +b*b +b*b End Sub End Sub上一页 下一页返回任务任务2 参数传送参数传送 add2add2的过程跟的过程跟的过程跟的过程跟add 1add 1的区别就在于把形参的区别就在于把形参的区别就在于把形参的区别就在于把形参c c前面的前面的前面的前面的ByValByVal修改成了修改成了修改成了修改成了ByRel
28、ByRel，结果在，结果在，结果在，结果在Form_ ClickForm_ Click事件过程中事件过程中事件过程中事件过程中PrintPrint语句显示的结果就完全不同了。语句显示的结果就完全不同了。语句显示的结果就完全不同了。语句显示的结果就完全不同了。 VBVB中默认的是按地址传递参数，如果某形参是按地址传递参数，可以中默认的是按地址传递参数，如果某形参是按地址传递参数，可以中默认的是按地址传递参数，如果某形参是按地址传递参数，可以中默认的是按地址传递参数，如果某形参是按地址传递参数，可以省略省略省略省略ByRefByRef关键字。通常情况下，一个过程都有一个按地址传递参数，关键字。通常
29、情况下，一个过程都有一个按地址传递参数，关键字。通常情况下，一个过程都有一个按地址传递参数，关键字。通常情况下，一个过程都有一个按地址传递参数，用以返回执行后的结果。即使形参指定是按地址传递参数，但当实参用以返回执行后的结果。即使形参指定是按地址传递参数，但当实参用以返回执行后的结果。即使形参指定是按地址传递参数，但当实参用以返回执行后的结果。即使形参指定是按地址传递参数，但当实参是一个表达式时，此时参数传递变成按值传递参数。例如，一个窗体是一个表达式时，此时参数传递变成按值传递参数。例如，一个窗体是一个表达式时，此时参数传递变成按值传递参数。例如，一个窗体是一个表达式时，此时参数传递变成按值
30、传递参数。例如，一个窗体上只有一个命令按钮上只有一个命令按钮上只有一个命令按钮上只有一个命令按钮Command 1 ,Command 1 ,该窗体上设计如下事件过程该窗体上设计如下事件过程该窗体上设计如下事件过程该窗体上设计如下事件过程: :上一页 下一页返回任务任务2 参数传送参数传送Private Sub Command1 Click()Private Sub Command1 Click()Dim x As IntegerDim x As Integerx=10x=10Call proc (x)Call proc (x)Print xPrint xEnd SubEnd SubPrivat
31、e Sub proc( Private Sub proc( ByRefByRef a As Integer) Sub a As Integer) Sub过程过程过程过程a=a+1a=a+1Print aPrint aEnd SubEnd Sub上一页 下一页返回任务任务2 参数传送参数传送 在运行窗体时，单击该命令按钮，在窗体上输出的值分别为在运行窗体时，单击该命令按钮，在窗体上输出的值分别为在运行窗体时，单击该命令按钮，在窗体上输出的值分别为在运行窗体时，单击该命令按钮，在窗体上输出的值分别为1111和和和和1010。因为尽管因为尽管因为尽管因为尽管prospros的形参的形参的形参的形参a
32、 a是按地址传递参数，但调用它的实参为是按地址传递参数，但调用它的实参为是按地址传递参数，但调用它的实参为是按地址传递参数，但调用它的实参为“ “(x)”(x)”，是一个表达式，所以在调用，是一个表达式，所以在调用，是一个表达式，所以在调用，是一个表达式，所以在调用prospros后不会改变实参后不会改变实参后不会改变实参后不会改变实参x x的值。的值。的值。的值。 所以，当一个过程的参数是按地址传递的，而某次调用不会进行地址所以，当一个过程的参数是按地址传递的，而某次调用不会进行地址所以，当一个过程的参数是按地址传递的，而某次调用不会进行地址所以，当一个过程的参数是按地址传递的，而某次调用不
33、会进行地址传递，可以将实参变量用括号括起来，变为一个表达式，这样调用过传递，可以将实参变量用括号括起来，变为一个表达式，这样调用过传递，可以将实参变量用括号括起来，变为一个表达式，这样调用过传递，可以将实参变量用括号括起来，变为一个表达式，这样调用过程时改为按值传递参数。程时改为按值传递参数。程时改为按值传递参数。程时改为按值传递参数。上一页 下一页返回任务任务2 参数传送参数传送 3. 2. 4传递一个数组传递一个数组 在在在在vBvB中允许参数是数组，数组只能通过传地址方式进行传递。在传递中允许参数是数组，数组只能通过传地址方式进行传递。在传递中允许参数是数组，数组只能通过传地址方式进行传
34、递。在传递中允许参数是数组，数组只能通过传地址方式进行传递。在传递数组时还要注意以下事项。数组时还要注意以下事项。数组时还要注意以下事项。数组时还要注意以下事项。 (1)(1)在实参列表和形参列表中放入数组名，忽略维数的定义，但圆括号在实参列表和形参列表中放入数组名，忽略维数的定义，但圆括号在实参列表和形参列表中放入数组名，忽略维数的定义，但圆括号在实参列表和形参列表中放入数组名，忽略维数的定义，但圆括号不能省。不能省。不能省。不能省。 (2)(2)如果被调过程不知道实参数组的上下界，可用如果被调过程不知道实参数组的上下界，可用如果被调过程不知道实参数组的上下界，可用如果被调过程不知道实参数组
35、的上下界，可用LBoundLBound和和和和UBoundUBound函函函函数确定实参数组的下界和上界。数确定实参数组的下界和上界。数确定实参数组的下界和上界。数确定实参数组的下界和上界。上一页 下一页返回任务任务2 参数传送参数传送例如，以下过程用于求形参一维数组例如，以下过程用于求形参一维数组例如，以下过程用于求形参一维数组例如，以下过程用于求形参一维数组a a的所有元素之和。的所有元素之和。的所有元素之和。的所有元素之和。Private Sub Private Sub comparray(a()Ascomparray(a()As Integer Integer，ByRefByRef s
36、 As Integer) s As Integer)Dim iDim i，mm，n As Integern As Integerm=m=LBound(a):nLBound(a):n= =UBound(aUBound(a) )s=0s=0For i=m To nFor i=m To ns=s=s+as+a (i ,j) (i ,j)Next iNext iEnd SubEnd Sub若有以下语句说明的数组若有以下语句说明的数组若有以下语句说明的数组若有以下语句说明的数组: :Dim A(10)As Integer Dim A(10)As Integer 给给给给A A数组元素赋值数组元素赋值数组元素赋值数组元素赋值调用上述函数的语句为调用上述函数的语句为调用上述函数的语句为调用上述函数的语句为: :Call Call comparray(Acomparray(A，* *) ) 输出输出输出输出s s上一页返回图图3-1 参数传递过程参数传递过程返回
