第七章 vb过程.pptVIP

在窗体上放置两个按钮，单击按钮1时，输出10的阶乘；单击按钮2时，输出20的阶乘。 Static: 静态过程。过程中定义的局部变量均为静态变量，即程序退出过程时，局部变量的值仍保留并作为下次调用的初值Private: 私有过程。只能在本模块中调用，不能被其它模块调用。 Public: 公有过程。能被程序中的所有模块调用。 Exit Sub : 在过程中终止过程的运行。 End Sub : 过程结束标志。 过程的调用方法 方法一：Call 过程名 [(实参列表)] 方法二：过程名 [实参列表] 形参（形式参数）：是用于接收过程中要使用的数据的变量。 实参（实际参数）：是传给Sub过程的、有确定值的变量或常数。实参与形参类型应尽量一致。 过程的使用举例（无参数静态过程） Private Sub Command1_Click( ) Call test ‘或 Call test ( ) 或 test End Sub Static Sub test( ) ‘过程中均为静态变量 Dim a(2) As Integer a(0) = a(0) + 1 a(1) = a(1) + 1 Print a(0); a(1) End Sub 引例中问题的解决 Private Sub Command1_Click() Call N(10) End Sub Private Sub Command2_Click() Call N(20) End Sub Public Sub N(a As Integer) Dim i As Integer Dim f As Long f = 1 For i = 1 To a f = f * i Next i Form1.Label3.Caption = Str(f) End Sub 案例2 求矩形面积 Private Sub Command1_Click() Call AREA(Val(Text1.Text), Val(Text2.Text)) End Sub Public Sub AREA(a As Single, b As Single) Dim sum As Double sum = a * b Label3.Caption = 求得的面积为： sum End Sub 子过程没有返回值，而函数过程有返回值。 Function 过程定义的一般格式 [Static][Private][Public] Function 函数名(参数列表) [As 类型] 语句块 [Exit Function] 语句块 [给函数名赋返回值] End Function 案例3 求最大公约数函数 Private Sub Command1_Click() Dim a As Integer, b As Integer, x As Integer a = Text1.Text b = Text2.Text If a b Then 交换部分不要也可 x = a: a = b: b = x End If Label3.Caption = 最大公约数为： Gcd(a, b) End Sub Public Function Gcd(x As Integer, y As Integer) As Integer Dim ret As Integer Do While y 0 ret = x Mod y x = y y = ret Loop Gcd = x End Function 思考题： 分别用子过程与函数实现以下算法： 求两个整数和的最小公倍数。 求三个、四个整数的最大公约数与最小公倍数。 求n个整数的最大公约数与最小公倍数。 VB中参数的传递方式 传值：将实参的值传给形参后，实参与形参间便无任何联系，即形参的变化不会对实参产生任何影响。传值时，在形参前用 ByVal来界定。 传址（默认方式，也叫引用）：形参与对应实参用相同的内存地址，形参的改变将影响实参，形参实际上是实参的别名。 Private Sub Command1_Click() 按值传递 x = 10 y = 20 Cls Print x=; x, y=; y, 调用前实参 Call temp1(x, y) Print x=; x, y=; y, 调用后实参 End Sub Sub temp1(ByVal x, ByVal y) 按值传递 x = x + 100