VB-第7章-过程.ppt

第七章 过程 逆境 Adversity 本章内容 本章重点 规模较大、复杂度高的程序进行简化 过程的分类 第一节 Sub过程 1、Sub过程 窗体事件 注意 窗体各事件的执行次序 想一想 控件事件 注意 8点说明 这两个语句之间的语句块，称为子程序体或过程体。 以Public为前缀的Sub过程是应用程序级的过程，在应用程序的任何模块中都可以调用它。 多个参数时，各参数之间用逗号分隔，形参没有具体的值。 VB的过程可以没有参数，但一对圆括号不可以省略。不含参数的过程称为无参过程。 1）打开代码编辑器窗口2）选择“工具”菜单中的“添加过程”3）从对话框中输入过程名，并选择类型和范围4）在新创建的过程中输入内容 1）在代码编辑器窗口的对象中选择“通用”，在文本编辑区输入 Private Sub 过程名 2）按回车键，即可创建一个Sub过程样板 3）在新创建的过程中输入内容 第二节 Function过程 Function过程 Function过程定义 例7-1 Private Function Fact(ByVal N As Integer) As Long Dim K As Integer Fact = 1 If N=0 Or N=1 Then Exit Function Else For K=1 to N Fact = Fact * K Next K End If End Function 自己动手做一做 编写一个求n！的函数过程。 算法：求阶乘可通过累乘实现。 n！=1×2×3×……×n 第三节 过程调用 逆 境 Adversity 主要内容 一、事件 、Sub过程的调用 第一种 调用方法 形式： Call 过程名(实在参数表) 编写一个找出任意一个正整数的因子的程序 Private Sub Command1_Click() Dim Inta As Integer, St As String Inta = Text1.Text Call Factor(Inta, St) Text2.Text = St End Sub 第二种 调用方法 形式： 过程名 [实参1[，实参2…]] 二、调用Function方法 形式： 变量=过程名([实在参数表]) 求两个整数的最大公约数 Private Sub Form_Click() Dim N As Integer, M As Integer, G As Integer N = InputBox(输入N) M = InputBox(输入M) G = Gcd(N, M) Print N; 和; M; 的最大公约数是:; G End Sub 四、调用其它模块中的公有过程 课堂练习 课堂练习 第四节 参数传递 逆 境 Adversity 7.4 参数的传递 分析下列程序的值 Private Sub Command1_Click() Dim M As Integer, N As Integer M = 15: N = 20 Call Value_Change(M,N) Print M, N End Sub Private Sub Command1_Click() Dim M As Integer, N As Integer M = 15: N = 20 Call Value_Change(M,N) Print M, N End Sub Private Sub Value_Change(X As Integer, ByVal Y As Integer) X=X+20 Y=X+Y Print “X=“;X,”Y=“;Y End Sub Private Sub Form_Click() Dim sum As Integer, i As Integer For i = 5 To 1 Step -1 sum = sum + fact(i) Next i Print sum=; sum End Sub Public Function fact(n As Integer) As Integer fact = 1 Do While n 0 fact = fact * n