vb07在程序中使用通用过程课件

第7章 通用过程程序设计 勿以恶小而为之，勿以善小而不为。惟贤惟德，能服于人。1PPT学习交流目录7.1 问题引入与问题分析问题引入与问题分析7.2 自定义自定义Sub过程的创建过程的创建7.3 自定义自定义Sub过程的调用过程的调用7.4 自定义自定义Sub 过程的参数传递过程的参数传递7.5 自定义自定义Sub 过程与事件过程的异同点过程与事件过程的异同点7.6 自定义自定义SubSub过程的应用过程的应用7.7 初步认识自定义初步认识自定义Function函数函数7.8 7.8 7.8 7.8 自定义自定义自定义自定义FunctionFunctionFunctionFunction过程的创建过程的创建过程的创建过程的创建7.9 自定义自定义自定义自定义FunctionFunctionFunctionFunction过程的应用过程的应用过程的应用过程的应用7.10 API API API API函数的初步知识函数的初步知识函数的初步知识函数的初步知识7.11 本章容易出错的地方本章容易出错的地方7.12 7.12 7.12 7.12 课堂实训与课后作业课堂实训与课后作业课堂实训与课后作业课堂实训与课后作业师生共勉师生共勉勿以恶小而为之，勿以善小而不为。惟贤惟德，能服于人。2PPT学习交流7.1 问题引入和问题分析l当多个事件过程都包含有相同程序代码块，或某事件当多个事件过程都包含有相同程序代码块，或某事件过程中包含具有较独立功能的代码块时，可以使用自定过程中包含具有较独立功能的代码块时，可以使用自定义过程将它们分离出来，然后在需要这一语句块的地方义过程将它们分离出来，然后在需要这一语句块的地方用调用语句替代，而不必再将所有的语句重复书写一遍。用调用语句替代，而不必再将所有的语句重复书写一遍。l同一语句块反复出现在程序中，这样无疑增加了程序同一语句块反复出现在程序中，这样无疑增加了程序的书写负担，使得程序显得冗长，也影响了程序在整体的书写负担，使得程序显得冗长，也影响了程序在整体结构上的紧凑性，需对其进行简化。本章中将学习结构上的紧凑性，需对其进行简化。本章中将学习Visual Basic6.0用户自定义过程，并利用用户自定义过用户自定义过程，并利用用户自定义过程简化程简化“员工工资管理系统员工工资管理系统”中各过程中的重复语句。中各过程中的重复语句。3PPT学习交流Sub过程引例1不使用通用过程不使用通用过程:Dim sx!,sy!,sz!Dim x!,y!,z!Dim s!x=Val(InputBox(请输入请输入x的值的值)y=Val(InputBox(请输入请输入y的值的值)z=Val(InputBox(请输入请输入z的值的值)For i=1 To x sx=sx+1/iNextFor i=1 To y sy=sy+1/iNextFor i=1 To z sz=sz+1/iNexts=sx+sy+sz使用通用使用通用Sub过程过程:Dim sx!,sy!,sz!Dim x!,y!,z!Dim s!x=Val(InputBox(请输入请输入x的值的值)y=Val(InputBox(请输入请输入y的值的值)z=Val(InputBox(请输入请输入z的值的值)Call s_sum(sx,x)Call s_sum(sy,y)Call s_sum(sz,z)编程计算编程计算(1+1/2+1/3+1/x)+(1+1/2+1/3+1/y)+(1+1/2+1/3+1/z)的值的值 Sub s_sum(sa!,a!)sa=0 For i=1 To a sa=sa+1/i NextEnd Sub 4PPT学习交流7.2 自定义Sub过程的创建说明:如果需要参数,则只能在代码窗口中在过程名后的括号内加上.在在VB环境中，打开代码窗口；环境中，打开代码窗口；单击单击“工具工具”菜单下菜单下“添加过程添加过程”命令，打开命令，打开“添加过程添加过程”窗口；窗口；在在“添加过程添加过程”窗口中，在窗口中，在“名称名称”框中输入过程名称，框中输入过程名称，“类型类型”选选择为择为“子程序子程序”，“范围范围”根据需要选择根据需要选择“公有的公有的”或或“私有的私有的”，单击单击“确定确定”按钮，则在代码窗口中将自动出现如下代码块。按钮，则在代码窗口中将自动出现如下代码块。Private Sub s_sum()End Sub方法一方法一:用菜单命令用菜单命令 5PPT学习交流 自定义Sub过程的创建说明:1.过程名后括号内的参数称为形式参数，简称“形参”，形参只能是变量名或数组名.2.关键字Private表示为私有过程,只在一个模块中有效,Public为公有过程,可在任何模块中有效.3.输入Sub语句时只能在代码窗口的空白处输入,不能在其他的Sub 与End Sub之间输入在代码窗口的空白处输入在代码窗口的空白处输入Private|PublicSub(参参数表数表)后按回车键，则自动形成如下的代码块：后按回车键，则自动形成如下的代码块：Private|PublicSub(参数表参数表)End Sub方法二方法二:编写代码创建自定义过程编写代码创建自定义过程6PPT学习交流在在一一个个工工程程中中除除了了可可添添加加多多个个窗窗体体模模块块外外（菜菜单单项项“工工程程”/“添添加加窗窗体体”），还还可可添添加加标标准准模模块块（菜菜单单项项“工工程程”/“添添加加模模块块”），如如图图，添添加加模模块块后后，在在工工程程资资源源管管理理器器中中将将增增加加“Module1Module1模模块块”，一一般般来来说说，全全局局变变量量、公公有有通通过过过过程程等等都都在标准模块中定义，以供各窗体模块中的过程调用。在标准模块中定义，以供各窗体模块中的过程调用。相关知识:标准模块窗体模块标准模块7PPT学习交流7.3 自定义Sub过程的调用 Call 过程名过程名(实参表实参表)关键字关键字Call可省去，如果省去可省去，如果省去Call，则过程名后不能有括号，如：，则过程名后不能有括号，如：Call s(a,b)s a,b语法格式：语法格式：调用语句的作用是将程序的执行流程从调用语句处转到被调用的过程中。调用语句的作用是将程序的执行流程从调用语句处转到被调用的过程中。如图表示如图表示:当执行过程当执行过程S1时，首先执行时，首先执行“”，碰到，碰到“Call S2”语句时，语句时，流程转向过程流程转向过程S2中，执行中，执行S2中的中的“”，到，到“End Sub”时，时，再返回到再返回到S1中中“Call S2”下面的下面的“”调用语句流程调用语句流程8PPT学习交流7.4 自定义Sub过程的参数传递按址传递（按址传递（ByRef）：形参与实参具有完全相同的值）：形参与实参具有完全相同的值 按值传递按值传递(ByVal)：只将实参的值传给形参，而形参的值不影响实参。：只将实参的值传给形参，而形参的值不影响实参。由定义过程时声明：按哪一种传递方式由声明语句来声明，默认情况下由定义过程时声明：按哪一种传递方式由声明语句来声明，默认情况下为按址传递，为按址传递，。如定义语句：如定义语句：Sub s_test(ByVal a1%,ByRef a2%)a1：按值传递，：按值传递，a2：按址传递。：按址传递。参数的传递方式分为两种：参数的传递方式分为两种：实参可以是变量名、数组元素、常量、函数或表达式。实参可以是变量名、数组元素、常量、函数或表达式。调用语句的作用是将实参的值传递给形参调用语句的作用是将实参的值传递给形参9PPT学习交流7.5 自定义Sub过程与事件过程的异同点：二者都是以二者都是以Sub语句开头，以语句开头，以End Sub语句结尾的代码块；语句结尾的代码块；相同点：相同点：1.事件过程的过程名及参数为系统预先定义，如事件过程的过程名及参数为系统预先定义，如Sub Command1_Click()，Form_Load()，而自定义，而自定义Sub过程的过程名及参数则由用户过程的过程名及参数则由用户自己定义；自己定义；2.二者都可以被其他过程调用，调用语句的格式相同。所不同的是，二者都可以被其他过程调用，调用语句的格式相同。所不同的是，事件过程更多的是在事件触发时被执行，而自定义事件过程更多的是在事件触发时被执行，而自定义Sub过程则只过程则只能是在调用时被执行；能是在调用时被执行；不同点不同点10PPT学习交流在VB案例中使用自定义Sub过程 将将数数组组元元素素显显示示在在文文本本框框中中的的代代码码块块在在多多个个过过程程中中出出现现，可可将其定义为一个通用将其定义为一个通用Sub过程。代码如下：过程。代码如下：说明：1.将程序中包含此代码块的地方使用语句：Call s_Disp(i)2.此过程中包含一个整形参数，表示当前显示的某一组数据的序号。Private Sub s_Disp(k as Integer)txt_WageInfo(0).text=m_strArrNum(k)txt_WageInfo(1).text=m_strArrName(k)txt_WageInfo(2).text=m_intArrWage(k)txt_WageInfo(3).text=m_intArrPrz(k)txt_WageInfo(4).text=m_intArrSud(k)End Sub 11PPT学习交流在VB案例中使用自定义Sub过程Private Sub s_Input()For i=1 To 6 m_strArrNum(i)=InputBox(请输入第请输入第&Str(i)&个员工编号个员工编号)m_strArrName(i)=InputBox(请输入第请输入第&Str(i)&个员工姓名个员工姓名)m_intArrWage(i)=Val(InputBox(请输入第请输入第&Str(i)&个员工工资个员工工资)m_intArrPrz(i)=Val(InputBox(请输入第请输入第&Str(i)&个员工奖金个员工奖金)m_intArrSud(i)=Val(InputBox(请输入第请输入第&Str(i)&个员工各种补助个员工各种补助)NextEnd Sub数据输入虽然不是重复出现的代码，但是一段相对独立的代码，此种情况数据输入虽然不是重复出现的代码，但是一段相对独立的代码，此种情况下也适合定义通用过程，可使程序结构清晰。代码如下下也适合定义通用过程，可使程序结构清晰。代码如下说明：此过程为无参数过程，调用时不需要实参12PPT学习交流7.6 自定义Sub过程的应用:课堂实训1定义变量定义变量:n%,s!:n%,s!n n值由用户输入值由用户输入调用调用SubSub过程过程:Call sum(s,n):Call sum(s,n)说明:将n的值传给b,将s与a结合,当执行通用过程s后,a的值传给s,则s就是所求的结果.定义定义Sub过程过程:Sub sum(a!,b%)For i=1 to b a=a+inext计算任意个数累加的值计算任意个数累加的值.如图所如图所示示,单击按钮时弹出输入框单击按钮时弹出输入框,由由用户输入一个整数用户输入一个整数n,然后计算然后计算1-n的和的和.要求用要求用Sub过程求和过程求和.13PPT学习交流自定义Sub的应用:课堂实训3编写简单的学生信息浏览程序编写简单的学生信息浏览程序,要求要求:1.浏览浏览10组数据组数据2.数据输入与数据显示用数据输入与数据显示用Sub过程来实现过程来实现.3.数据用数组存放数据用数组存放,同类的控件同类的控件定义为控件数组定义为控件数组.问题描述问题描述:14PPT学习交流7.7 初步认识Function自定义过程 使用通用使用通用Function过程过程:Dim sx!,sy!,sz!Dim x!,y!,z!Dim s!x=Val(InputBox(请输入请输入x的值的值)y=Val(InputBox(请输入请输入y的值的值)z=Val(InputBox(请输入请输入z的值的值)sx=f_Sum(x)sy=f_Sum(y)sz=f_sum(z)Private Function f_Sum(a!)As _ Single f_Sum=0 For i=1 To a f_Sum=f_Sum+1/i NextEnd Function除了除了Sub过程外，另一种自定义过程是过程外，另一种自定义过程是Function过程，也称为函数过程。如过程，也称为函数过程。如将上一节中的引例改用将上一节中的引例改用Function过程来完成，程序可写为：过程来完成，程序可写为：自定义自定义Function过程过程15PPT学习交流7.8 自定义Function过程的创建说明:如果需要参数,则只能在代码窗口中在过程名后的括号内加上.1.在在VB环境中，打开代码窗口；环境中，打开代码窗口；2.单击单击“工具工具”菜单下菜单下“添加过程添加过程”命令，打开命令，打开“添加过程添加过程”窗口；窗口；3.在在“添加过程添加过程”窗口中，在窗口中，在“名称名称”框中输入过程名称，框中输入过程名称，“类型类型”选选择为择为“函数函数”，“范围范围”根据需要选择根据需要选择“公有的公有的”或或“私有的私有的”，单，单击击“确定确定”按钮，则在代码窗口中将自动出现如下代码块。按钮，则在代码窗口中将自动出现如下代码块。Private Function s_sum()End Function方法一方法一:用菜单命令用菜单命令 16PPT学习交流自定义Function过程的创建说明:1.编写函数体语句时,必须包含一次对函数名赋值的语句2.参数与Sub过程相同,只能是变量名或数组名3.输入Function语句时只能在代码窗口的空白处输入,不能在其他的Sub 与End Sub之间输入4.函数可以指明类型，表示函数反回值的类型。在代码窗口的空白处输入在代码窗口的空白处输入Private|PublicSub(参参数表数表)后按回车键，则自动形成如下的代码块：后按回车键，则自动形成如下的代码块：Public Function 函数名函数名(参数表参数表)As 类型类型End Function 方法二方法二:编写代码创建自定义过程编写代码创建自定义过程17PPT学习交流用Function过程计算VB案例中的个人所得税 个人所得税的计算也是相对独立且较长的一段代码个人所得税的计算也是相对独立且较长的一段代码,直接写在事件过程直接写在事件过程中不利于体现事件过程的功能中不利于体现事件过程的功能,将其定义为一个独立的通用过程将其定义为一个独立的通用过程.在在需要的事件过程中直接调用需要的事件过程中直接调用.编写代码如下编写代码如下:必须性必须性Public Function f_CalTax(wage As Integer)Dim intTax1!,intTax2!,intTax3!r,intTax4!intTax1=500*0.05 intTax2=1500*0.1 intTax3=3000*0.15 If wage=0 And wage=20000 Then If wage-800=0 Then f_CalTax=0 ElseIf wage-800=500 Then f_CalTax=(wage-800)*0.05 ElseIf wage-800=2000 Then f_CalTax=(wage-1300)*0.1+intTax1 ElseIf wage-800=85 case Is=85 f_chg=A f_chg=A Case Is=75 Case Is=75 f_chg=B f_chg=B Case Is=60 Case Is=60 f_chg=C:f_chg=C:Case Else Case Else f_chg=D f_chg=D End Select End Select End Function End Function 21PPT学习交流7.10 API函数初步知识API(Application Program lnterface），即），即Windows的应用程的应用程 序编序编程接口，就是一系列的底层函数，是系统提供给程接口，就是一系列的底层函数，是系统提供给 用户用于进入操用户用于进入操作系统核心，进行高级编程的途径作系统核心，进行高级编程的途径 Windows API函数是函数是Windows操作系统为各种应用程序提供的操作系统为各种应用程序提供的接口函数，存放在接口函数，存放在DLL文件中。文件中。DLL（Dynamic-Link Library的缩写）称为动态链接库。的缩写）称为动态链接库。包含包含Windows API函数的函数的DLL文件一般放在文件一般放在Windows的系统目的系统目录中，最主要的有三个录中，最主要的有三个DLL文件：文件：1User32.dll：该库文件包含有关管理：该库文件包含有关管理Windows环境的函数，环境的函数，如管理菜单、管理光标以及处理消息等。如管理菜单、管理光标以及处理消息等。2Gdi32.dll：其中的函数帮助管理不同设备的输出。：其中的函数帮助管理不同设备的输出。3Kernel32.dll：包含执行内存管理、任务管理、资源管理以：包含执行内存管理、任务管理、资源管理以及模块管理的函数。及模块管理的函数。22PPT学习交流API文本浏览器 1.1.启动启动APIAPI文本浏览器文本浏览器(两种方法两种方法)方法一方法一:从桌面环境下从桌面环境下 开始开始 菜单启菜单启动动方法二方法二:从从VBVB环境下的菜单项环境下的菜单项 外接外接程序程序 下启动下启动 2.2.加载加载APIAPI文本文件或文本文件或APIAPI数据库文件数据库文件在在APIAPI文本浏览器中可加载文本浏览器中可加载APIAPI文本文文本文件或数据库文件件或数据库文件3.3.选择选择APIAPI函数函数在在APIAPI类型中选择声明类型中选择声明,在可选项中在可选项中可以选择所需的可以选择所需的APIAPI函数函数.通过右边的功能按钮操作通过右边的功能按钮操作,可将所选可将所选APIAPI函数复制到代码窗口中函数复制到代码窗口中.API函数的使用函数的使用23PPT学习交流API函数的应用举例通过前面介绍的方法将通过前面介绍的方法将API函数函数GetSystemDirectory加载加载到代码窗口中到代码窗口中,在按钮的单击事件中调用此函数在按钮的单击事件中调用此函数.Private Sub Command1_Click()Dim dirname As String dirname=String(30,0)n=GetSystemDirectory(dirname,30)dirname=Left(dirname,n)Shell dirname+calc.exe,1End Sub在在VB中启动计算器中启动计算器.题目要求：目要求：1.计算器为系统应用程序计算器为系统应用程序,其路径为系统文件夹其路径为系统文件夹;2.通过通过API函数函数GetSystemDirectory获取系统文件获取系统文件夹的路径夹的路径,即可得到计算器所在的路径即可得到计算器所在的路径.3.在在VB中可用中可用Shell命令启动外部程序命令启动外部程序.要点分析：要点分析：代码编写如下代码编写如下24PPT学习交流7.11 本章容易出错的地方通用过程类型的选择通用过程类型的选择:Sub过程与过程与Function过程都有其适过程都有其适应的使用条件应的使用条件,一般有参数返回时选择一般有参数返回时选择Function过程过程,而而无参数返回时则选用无参数返回时则选用Sub过程过程.调用通用过程时参数的类型不匹配调用通用过程时参数的类型不匹配,实参的类型必须与实参的类型必须与形参的完全一致形参的完全一致,如创建通用过程时没有指明形参类型如创建通用过程时没有指明形参类型,则实参也只能是没有声明类型的则实参也只能是没有声明类型的.调用通用过程时调用通用过程时,参数的个数与顺序要完全一致参数的个数与顺序要完全一致.25PPT学习交流7.12 课堂实训和课后作业课堂实训课堂实训第第7 7章章 课堂实训课堂实训4 4课后作业课后作业第第7 7章章 课堂实训课堂实训3,3,第第7 7章章 练习题练习题26PPT学习交流此课件下载可自行编辑修改，供参考！感谢您的支持，我们努力做得更好！27PPT学习交流