|
1、再谈Sub过程与Function过程的调用及使用
调用过程有很多方法，它们与过程的类型、位置以及在应用程序中的使用方式有关。调用Sub过程与Function过程不同，在表达式中，调用Sub过程的是一个独立的语句，而调用函数过程只是表达式的一部分。Sub过程还有一点与函数不一样，它不会用名字返回一个值。而与Function过程一样，Sub过程也可以修改传递给它们的任何变量的值。
（1）调用Sub过程
有两种方法：
Call MyProc(FirstArgument,SecondArgument)
MyProc FirstArgument,SecondArgument
说明 当使用Call语法时，参数必须在括号内。若省略Call关键字，则也必须去掉参数两边的括号
（2）调用函数过程
方法一：通常，调用自定义的函数过程的方法和调用VB内部函数过程的方法一样，即在表达式中写上名字。
方法二：也可以像调用Sub过程一样调用Function 过程，如调用函数过程Year：
Call Year（Now）
Year Now
当用这种方法调用函数时，放弃返回值。
一般来说，函数都赋值给某些变量或属性。
（3）调用其它模块中的过程
在工程中的任何地方都能调用其它模块中的公用过程。调用其它模块中的过程的各种方法，取决于该过程是在窗体模块中、类模块中还是标准模块中。
 调用窗体模块中的过程：
所有窗体模块的外部调用过程必须指向包含此过程的窗体模块。如在窗体模块Form1中包含SomeSub过程，则可使用语句：“Call Form1.SomeSub（参数列表）”来调用Form1中的SomeSub过程。
调用类模块中的过程：
类模块中的过程与窗体中调用过程类似，在类模块中调用过程要调用与过程一致并且指向类实例的变量。例如DemoClass是类Class1的实例：
Dim DemoClass as New Class1
DemoClass.SomeSub
但是不同于窗体的是，在引用一个类的实例时，不能用类名作限定符（如不能像窗体中用Form1.SomeSub那样使用Class1.SomeSub），必须首先声明类的实例为对象变量（如上面的DemoClass）并用该变量名引用它。
使用标准模块中的过程：
 如果过程名是惟一的，则不必在调用时加模块名。无论是在模块内，还是在模块外调用，结果总会引用这个惟一过程。在整个应用程序中，如果过程仅出现在一个地方，这个过程就是惟一的。
如果两个以上的模块都包含同名的过程，例如：对于在Module1和Module2中都有名为“CommonName”的过程，在调用该过程时，分两种情况：
在下面的练习中，将在前面的“幸运7”程序中添加一个函数，用来计算游戏中的获胜率（Spin中出现一个或多个7的百分比）。为此，可在标准模块中增加一个名为Rate的函数和一个名为Spins的公用变量。然后每次单击“开始”按钮时都调用Rate函数。还要在窗体上新创建的标签中显示计算结果。
在窗体上再添加一个标签，Name属性为“lblRate”、Caption属性为“0.0%”、ForeColor是“红色”，图像框的“Stretch”属性仍设置为True。
界面如下：
在标准模块窗口中键入如下代码（增加一个名为Rate的函数和一个名为Spins的公用变量）：
Option Explicit
Public Wins
Public Spins '再定义一个公用变量，用来记录产生随机数的总数，即单击按钮的次数。
Function Rate(Hits, Attempts) As String '建立一个名为Rate的函数
Dim Percent
Percent = Hits / Attempts
Rate = Format(Percent, "0.0%")
End Function
说明：Rate函数通过将Hits参数除以Attempts参数来确定获胜率，然后通过使用Format（格式）函数调整显示结果。Rate函数被声明为字符串类型，原因在于Format（格式）函数的返回值是字符串。Hits参数和Attempts参数是这两个变量的占位符，在函数调用过程中，它们将被传递给函数。Rate函数是通用的，可与任何数字或变量一同使用，而不仅限于Wins和Spins。
调出窗体代码的Command1_Click事件过程。，在其中添加调用函数语句，如下：
Private Sub Command1_Click()
Randomize
Image1.Visible = False '隐藏硬币图像
Label1.Caption = Int(Rnd * 10) '得到随机
Label2.Caption = Int(Rnd * 10)
Label3.Caption = Int(Rnd * 10)
Spins = Spins + 1
If (Label1.Caption = 7) Or (Label2.Caption = 7) _
Or (Label3.Caption = 7) Then
Image1.Visible = True
Beep '当某个标题为7时，显示一堆硬币并响铃
Wins = Wins + 1 '记录产生7的次数。
lblWins.Caption = "Wins：" & Wins
End If
lblRate.Caption = Rate(Wins, Spins)
End Sub
其中红色部分为新加内容。
[程序演示] [程序下载]
上例中的过程名Rate是惟一的，可以在任何模块中直接引用。
（4）子过程和函数过程的嵌套使用
例：见教材P239自测题七的第一题，将华氏温度换算为摄氏温度。
添加一个命令按钮。
代码如下：
Option Explicit
Dim temp
Sub ConvertTemp()
temp = InputBox("请输入华氏温度。", 1)
MsgBox "温度为 " & Celsius(temp) & " 摄氏度。"
End Sub
Function Celsius(fDegrees)
Celsius = (fDegrees - 32) * 5 / 9 '将华氏温度换算为摄氏温度
End Function
Private Sub Command1_Click()
Call ConvertTemp
End Sub
（5）Go Sub...Return语句
在一个过程中利用Go Sub...Return语句可以调用该子过程中的某段子程序，执行完毕后再返回。其语法规则如下：
GoSub line
line
Return
可以在过程中的任何地方使用GoSub和Return，但是GoSub和与之相应的Return语句必须放在同一个过程中。一个子程序中可以包含一个以上的Return语句，但是当碰到第一个Return语句时，程序就会返回到紧接在刚刚执行的 GoSub语句之后的语句继续执行。
注意：不能使用 Go Sub...Return来进入或退出Sub过程。
下面的示例使用gosub来调用子过程里的一段子程序。Return语句则将执行返回到Gosub的下一个语句。
sub gosubdemo()
dim num
num=inputbox("enter a positive number to be divided by 2.") '请求用户输入一个数
if num>0 then Gosub MyRoutine
debug.print num
exit sub
MyRoutine:
num=num/2
Return '将控制返回Gosub之后的语句
End Sub
|
