子过程与函数过程幻灯片.ppt

《子过程与函数过程幻灯片.ppt》由会员分享，可在线阅读，更多相关《子过程与函数过程幻灯片.ppt（40页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第1页，共40页，编辑于2022年，星期五6.1 子过程 6.1.1子过程的定义 6.1.2 子过程的调用 第2页，共40页，编辑于2022年，星期五6.1.1 6.1.1 子过程的定义子过程的定义 【实例6.1】定义一个名为num的子过程，该子过程用来计算1+2+n的和。第3页，共40页，编辑于2022年，星期五Private Sub sum(m As Integer,s As Long)For i=1 To m s=s+i Next iEnd Sub（2）自定义名为）自定义名为sum的的Sub过程过程过程名过程名形式参数 形式参数 不能通过用户的动作触发此过程 第4页，共40页，编辑于20

2、22年，星期五子程序过程的一般定义格式 StaticPrivate|PublicSub子程序名 (形参列表)语句组1 Exit Sub 语句组2End Sub 已知条件、计算结果已知条件、计算结果的个数及类型的个数及类型提前结束子程序过程只能被本窗体中的过只能被本窗体中的过只能被本窗体中的过只能被本窗体中的过程调用程调用程调用程调用能被程序中的所能被程序中的所能被程序中的所能被程序中的所有过程调用有过程调用有过程调用有过程调用第5页，共40页，编辑于2022年，星期五6.1.2 子程序过程的调用【实例6.2】程序运行时单击“1+100”按钮，在标签中显示1至100的和；单击“1+n”按钮，由用

3、户在输入框中输入n值，并在标签中显示1至n的和。第6页，共40页，编辑于2022年，星期五操作步骤（1）设计界面第7页，共40页，编辑于2022年，星期五Private Sub sum(m As Integer,s As Long)For i=1 To m s=s+i Next iEnd Sub（2）自定义名为）自定义名为sum的的Sub过程过程防止越界防止越界用户输入的用户输入的用户输入的用户输入的n n值值值值累加和值累加和值累加和值累加和值第8页，共40页，编辑于2022年，星期五Private Sub cmdSum1_Click()Dim ss As Long sum 100,ss l

4、blShow.Caption=1+100=&ssEnd Sub（3）编写）编写cmdSum1的的Click事件过程事件过程第9页，共40页，编辑于2022年，星期五Private Sub cmdSum2_Click()Dim n As Integer ：Dim ss As Long lblShow.Caption=n=InputBox()If n 1 Then Call sum(n,ss)lblShow.Caption=Else MsgBox End IfEnd Sub（4）编写）编写cmdSum2的的Click事件过程事件过程第10页，共40页，编辑于2022年，星期五子程序过程的调用格式（

5、两种形式）子程序过程的调用格式（两种形式）Call 过程名(实际参数)过程名过程名 实际参数实际参数 1 1、必须有确定值、必须有确定值、必须有确定值、必须有确定值2 2、个数、类型必须与形参一一对应、个数、类型必须与形参一一对应、个数、类型必须与形参一一对应、个数、类型必须与形参一一对应第11页，共40页，编辑于2022年，星期五6.2 函数过程 6.2.1 函数过程的定义6.2.2 函数过程的调用 第12页，共40页，编辑于2022年，星期五6.2.1 函数过程的定义【实例6.3】定义一个函数过程，计算n！。第13页，共40页，编辑于2022年，星期五Private Function fa

6、c(m As Integer)As Double Dim s As Double s=1 For i=1 To m s=s*i Next i fac=sEnd Function求求m!通过函数名返回阶乘值通过函数名返回阶乘值防止数据防止数据溢出溢出（2）自定义名为）自定义名为fac的函数过程的函数过程函数名函数名形参形参返回值类型返回值类型第14页，共40页，编辑于2022年，星期五函数过程的一般定义格式 StaticPrivate|Public Function 函数名 (形参列表)As 类型 语句组1 函数名返回值 Exit Function 语句组2 函数名返回值End Function

7、 必有该语句必有该语句提前结束函数提前结束函数第15页，共40页，编辑于2022年，星期五6.2.2函数过程的调用【实例6.4】窗体中有1个标签和3个命令按钮（控件数组）。程序运行时，单击命令按钮，在标签中显示所求的阶乘。第16页，共40页，编辑于2022年，星期五操作步骤（1）设计界面 第17页，共40页，编辑于2022年，星期五Private Function fac(m As Integer)As Double Dim s As Double s=1 For i=1 To m s=s*i Next i fac=sEnd Function求求m!通过函数名返回阶乘值通过函数名返回阶乘值防止

8、数据防止数据溢出溢出（2）编写名为）编写名为fac的函数过程的函数过程第18页，共40页，编辑于2022年，星期五Private Sub cmdCal_Click(Index As Integer)Dim i As Integer:Dim sum As Double Select Case Index Case 0 lblCal.Caption=5!=&fac(5)Case 1 lblCal.Caption=7!=&fac(7)Case 2 For i=1 To 11 Step 2 sum=sum+fac(i)Next i lblCal.Caption=&sum End SelectEnd S

9、ub求求5！求求7！求求1！+3!+9!+11!（3）编写命令按钮控件数组的）编写命令按钮控件数组的Click事件过程事件过程第19页，共40页，编辑于2022年，星期五函数过程的调用格式变量名=函数名(实际参数)1 1、必须有确定值、必须有确定值、必须有确定值、必须有确定值2 2、个数、类型必须与形参一一对应、个数、类型必须与形参一一对应、个数、类型必须与形参一一对应、个数、类型必须与形参一一对应第20页，共40页，编辑于2022年，星期五6.3 变量定义位置的确定 6.3.1 在本过程内使用的变量 6.3.2 在本窗体内使用的变量 6.3.3 在所有窗体内使用的变量 第21页，共40页，编

10、辑于2022年，星期五6.3.1 在本过程内使用的变量【实例9.9】单击“和”按钮，求两随机数的和，同时使“平均值”按钮可用；单击“平均值”按钮，求两随机数的平均值，且使“平均值”按钮禁用。第22页，共40页，编辑于2022年，星期五操作步骤（1）设计界面 第23页，共40页，编辑于2022年，星期五Private Sub cmdSum_Click()Dim a As Integer,b As Integer a=Int(Rnd*100)b=Int(Rnd*100)lblShow.Caption=a&+&b&=&a+b cmdAve.Enabled=TrueEnd Sub过程级变量过程级变量（

11、2）编写）编写cmdSum的的Click事件过程事件过程第24页，共40页，编辑于2022年，星期五Private Sub cmdAve_Click()Dim a As Integer,b As Integer lblShow.Caption=(&a&+&b&)/2=&(a+b)/2 cmdAve.Enabled=FalseEnd Sub 不是前面的变量不是前面的变量 过程级变量只在其所在的过程中起作用（3）编写）编写cmdAve的的Click事件过程事件过程计算结果错！计算结果错！第25页，共40页，编辑于2022年，星期五6.3.2 在本窗体内使用的变量【实例9.10】修改实例9.9，使其

12、能够正确计算平 均值。第26页，共40页，编辑于2022年，星期五操作步骤（1）在“通用”|“声明”部分定义窗体级变量 Dim a As Integer,b As Integer窗体级变量窗体级变量 第27页，共40页，编辑于2022年，星期五（2）修改cmdSum的Click事件过程Private Sub cmdSum_Click()Dim a As Integer,b As Integer a=Int(Rnd*100)b=Int(Rnd*100)lblShow.Caption=a&+&b&=&a+b cmdAve.Enabled=TrueEnd Sub窗窗体体级级变变量量第28页，共40页

13、，编辑于2022年，星期五Private Sub cmdAve_Click()Dim a As Integer,b As Integer lblShow.Caption=(&a&+&b&)/2=&(a+b)/2 cmdAve.Enabled=FalseEnd Sub 窗体级变量窗体级变量（3）修改）修改cmdAve的的Click事件过程事件过程第29页，共40页，编辑于2022年，星期五6.3.3 在所有窗体内使用的变量【实例9.11】在窗体1单击“查看”按钮，在标签中显示变量a的值；单击“进入”按钮进入窗体2。单击窗体2中“测试”按钮，在标签中显示a的值；单击“返回”按钮切换到窗体1。第30

14、页，共40页，编辑于2022年，星期五操作步骤（1）设计界面 第31页，共40页，编辑于2022年，星期五（2）定义全局变量a 在工程中添加标准模块Module1.bas。【工程】|【添加模块】第32页，共40页，编辑于2022年，星期五全局变量，各窗体中通用第33页，共40页，编辑于2022年，星期五Private Sub cmdShow_Click()a=Int(Rnd*32767)lblShow.Caption=aEnd Sub（3）编写窗体）编写窗体1中命令按钮的中命令按钮的Click事件过程事件过程Private Sub cmdIn_Click()frmEx9_11_2.Show f

15、rmEx9_11_1.HideEnd Sub第34页，共40页，编辑于2022年，星期五Private Sub cmdTest_Click()txtShow.Text=a If a=Then MsgBox a为空值End Sub（4）编写窗体）编写窗体2中命令按钮的中命令按钮的Click事件过程事件过程Private Sub cmdReturn_Click()frmEx9_11_2.Hide frmEx9_11_1.ShowEnd Sub第35页，共40页，编辑于2022年，星期五6.4 静态变量的使用【实例9.12】单击“开始”按钮，在图像框中轮流显示哭脸和笑脸，同时该按钮的标题变为“暂停”

16、；单击“暂停”按钮，图像框停止变换，同时该按钮的标题变为“开始”。第36页，共40页，编辑于2022年，星期五操作步骤（1）设计界面第37页，共40页，编辑于2022年，星期五Private Sub cmdCtrl_Click()If cmdCtrl.Caption=开始 Then tmrShow.Enabled=True cmdCtrl.Caption=暂停 Else tmrShow.Enabled=False cmdCtrl.Caption=开始 End IfEnd Sub（2）编写）编写cmdCtrl的的Click事件过程事件过程第38页，共40页，编辑于2022年，星期五Private

17、 Sub tmrShow_Timer()Dim i As Integer If i Mod 2=0 Then imgShow.Picture=LoadPicture (d:face02.ico)Else imgShow.Picture=LoadPicture (d:face01.ico)End If i=Not i End Sub静态变量静态变量 i的值在的值在0与与-1间轮流变化间轮流变化（3）编写计时器的）编写计时器的Timer事件过程事件过程程序错误！程序错误！StaticStatic第39页，共40页，编辑于2022年，星期五变量过程级变量过程级变量窗体级变量窗体级变量全局变量全局变量静态静态静态静态动态变量动态变量Static静态变量静态变量Dim第40页，共40页，编辑于2022年，星期五