《VB程序设计》第四章第三节 过程的调用.docVIP

《VB程序设计》第四章第三节　过程的调用 第三节　过程的调用 　　一、调用Sub事件过程　　调用Sub过程是一个独立的语句，Sub事件过程可以由一个发生在VB中的事件自动调用，或者在同一模块中的其他过程中使用调用语句来调用。调用语句调用Sub过程有两种方式：使用Call语句，直接用Sub过程名。　　语法：　　Call 过程名[（参数列表）]　　或者：　　过程名[参数列表]　　其中： 　　·参数列表：在调用语句中的参数称为实在参数（简称实参）。实参可以是变量、常数、数组和表达式。　　·使用Call语句调用时，参数必须在括号内，当被调用过程没有参数时，则（）也可省略。　　·用过程名调用时，则必须省略参数两边的（）。　　·执行调用语句时，VB将控制传递给Sub过程。　　例如，在[例Ex_Hello]的程序代码中添加一个窗体Form_Click事件，在该事件中调用Command1_Click事件，代码如下：　　Private Sub Command1_Click （） ′单击按钮　　　Text1.Text=″你好! ″　　End Sub　　Private Sub Form_Click（）　　　Call Command1_Cfick ′调用Command1_Click事件　　End Sub 　　这样，在运行时单击窗体和单击按钮的效果一样，在文本框Text1中显示“你好!”。Form_Click事件采用Call语句调用Sub过程，Command1_Click过程没有参数，则（）可省略。　　如果直接用Sub过程名调用，则Form_Click事件代码如下：　　Private Sub Form_ Click（） ′单击窗体　　　Command1_Click ′调用Command1_Click事件　　End Sub　　二、调用Sub通用过程　　调用Sub通用过程的语法与调用Sub事件过程的相同。不同的是，通用过程只有被调用时才起作用，否则不会被执行。　　例如，在[例Ex_Hello]的程序代码中添加一个按钮Command2，在Command2_Click 事件中调用通用过程Warning事件，代码如下：　　Private Sub Command2_Click（）　　　′单击按钮调用通用过程Warning　　　Call Warning　　End Sub　　Public Sub Warning（）　　　′通用过程Warning，默认为Public　　　Text1.Text=″警告! ″ 　　End Sub 　　程序运行结果如图4-3-1所示。 图 4-3-1 　　三、调用Function过程　　调用函数Function过程的方法和调用VB内部函数方法一样（例如Sin(x)），在语句中直接使用函数名，Function过程可返回一个值到调用的过程。　　语法：　　Function函数名（[参数列表]）　　另外，采用调用Sub过程的语法也能调用Function函数。当用这种方法调用函数时，放弃函数的返回值。　　语法：　　Call 过程名（[参数列表]）　　或者：　　过程名[参数列表] 　　注意：　　调用Function过程与调用Sub过程不同，当无参数时（）不能省略。　　例如，下面的语句都是调用计算三角形斜边的函数Hypotenuse。　　Print l0*Hypotenuse（3，4）　′在窗体显示函数值运算结果　　X=Hypotenuse（3，4）　　　　′将函数值赋值给变量X　　If Hypotenuse(3，4)=10 Then Print Error! ′函数值是否=10　　X=Abs（Hypotenuse（3，4））　 ′函数值作为Abs函数的参数 　　[例Ex_Divisor1]用函数调用编写求两个自然数的最大公约数，采用辗转除法。辗转除法的算法如下：　　（1）输入两个自然数M，N。　　（2）计算M除以N的余数R。　　（3）用N替换M，M=N；用R替换N，N=R。　　（4）若R0则重复上述过程（2）、（3）、（4）。　　Divisor函数计算最大公约数的值，在Form_Click事件中输入两个自然数M和N并调用Divisor函数，M和N传递给Divisor函数，Divisor函数计算的结果返回给Form_Click过程。　　程序代码如下：　　Private Function Divisor（ByVal x As Integer ,ByVal y As _ Integer）　　　′函数Divisor计算最大公约数　　　Dim r As Integer