[理学]第07章 过程.ppt

例7.1 创建名为ShowChr的通用过程，程序中输出n行字符串“This is a Example!” Private Sub ShowChr (ByVal n As Integer) Dim I As Integer For I =1 to n Debug.Print “This is a Example!” Next I End Sub 例7.2 调用名为ShowChr的通用过程，输出3行字符串“This is a Example!” Private Sub Command1_Click() Call ShowChr End Sub Private Sub ShowChr () 无形参 Dim I As Integer For I =1 to 3 Debug.Print “This is a Example!” Next I End Sub 例7.3 调用名为ShowChr的通用过程，由过程参数确定输出字符串的行数和字符串的内容 Private Sub Command1_Click() Dim n As Integer Dim Chr As String n = Val(InputBox(Please Enter a Integer Number)) Chr = InputBox(Please Enter a String) Call ShowChr (n, Chr) End Sub Private Sub ShowChr (ByVal m As Integer, ByVal Str As String) 带两个形参 Dim i As Integer For i = 1 To m Debug.Print Str Next i End Sub 实例2：用函数过程计算N!/(M!*(N-M)!) 3.嵌套调用 过程或函数之间形成多层调用的关系； 原则：逐级调用，逐级返回. ........ ........ ....... Call Sub1 ........ ....... Sub Sub1( ) Call Sub2 End Sub Sub Sub2( ) End Sub 1 2 3 4 5 6 7 7.8 递归调用 算法分析：某些实际问题的求解过程可由递推与回归描述，在程序中用自定义函数或过程的自我调用程序结构实现，这被成为直接递归算法。 求： N！ 设函数f(n)表示正整数N的阶乘)，则有： [1]递推 初始条件: 正整数 N 递推公式：f(N)= N *f(N-1) 当N=1时结束 例如：3！ 被分解为： [1] 递推 f(3) = 3 * f(2) f(2) = 2 * f(1) f(1) = 1 [2] 回归 f(1) =1 f(2) =2 * f(1) = 2 * 1 f(3) =3 * f(2) = 3 * 2 程序中使用自定义函数DG描述为： Private Function dg(ByVal n As Integer) As Long If n=1 Then dg=1 Else dg = dg(n-1) * n End If End Function 7.9 鼠标与键盘驱动过程 7.9.1 鼠标事件语句格式 Private Sub Object_MouseDown(Index As Integer,Button As Integer,Shift As Integer,X As Integer, y As Integer) ... End Sub 说明： Index: 控件数组下标 Button：鼠标左(右)键 Shift：Alt、Ctrl、Shift键 X,Y：鼠标在窗体或控件单击的位置坐标 说明： (1)被调用的过程必须存在于程序中 (2)执行过程调用语句将是程序执行流程自动转向过程语句序列 (3)过程中语句序列执行完毕，自动返回到调用语句之后继续运行。 7.9.2 键盘事件过程 1. KeyPress事件 语句格式： Sub Object_KeyPress( [Index As Integer] , KeyAscii As Integer) 说明： 当用户按下一个具有Ascii码的键位时，引发KeyPress事件。 Object : 获得焦点的对象名 Index : 此参数为整数，它指明控件数组的下标。在事件过程中用此参数来识别控件数组中的数组元素。 KeyAscii ：按键的Ascii码值，用十进制整数标识。当键盘上一个键位被按下时，引发KeyPress事件