【VB开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。

    网学会员整理了VB开源代码-VB07(在程序中使用通用过程) - 编程语言的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

师生共勉。

    师生共勉勿以恶小而为之勿以善小而不为。

    惟贤惟德能服于人。

    7.1问题引入与问题分析7.2 自定义Sub过程的创建7.3 自定义Sub过程的调用7.4 自定义Sub 过程的参数传递7.5 自定义Sub 过程与事件过程的异同点7.6 自定义Sub过程的应用7.7 初步认识自定义Function函数7.8 7.8 自定义自定义FunctionFunction过程的创建过程的创建7.9 自定义自定义FunctionFunction过程的应用过程的应用7.10APIAPI函数的初步知识函数的初步知识7.11 本章容易出错的地方7.12 7.12 课堂实训与课后作业课堂实训与课后作业师生共勉。

    师生共勉勿以恶小而为之勿以善小而不为。

    惟贤惟德能服于人。

    7.1 当多个事件过程都包含有相同程序代码块或某事件过程中包含具有较独立功能的代码块时可以使用自定义过程将它们分离出来然后在需要这一语句块的地方用调用语句替代而不必再将所有的语句重复书写一遍。

    同一语句块反复出现在程序中这样无疑增加了程序的书写负担使得程序显得冗长也影响了程序在整体结构上的紧凑性需对其进行简化。

    本章中将学习Visual Basic6.0用户自定义过程并利用用户自定义过程简化“员工工资管理系统”中各过程中的重复语句。

    同一语句块反复出现在程序中这样无疑增加了程序的书写负担使得程序显得冗长也影响了程序在整体结构上的紧凑性需对其进行简化。

    本章中将学习Visual Basic6.0用户自定义过程并利用用户自定义过程简化“员工工资管理系统”中各过程中的重复语句。

    Sub1不使用通用过程:Dim sx sy szDim x y zDim s x Val InputBoxy Val InputBoxz Val InputBoxFor i 1 To xNextFor i 1 To yNextFor i 1 To zNexts sx sy sz不使用通用过程:Dim sx sy szDim x y zDim s x Val InputBox请输入x的值y Val InputBox请输入y的值z Val InputBox请输入z的值For i 1 To xsx sx 1 / iNextFor i 1 To ysy sy 1 / iNextFor i 1 To zsz sz 1 / iNexts sx sy sz??使用通用Sub过程:Dim sx sy szDim x y zDim s x Val InputBoxy Val InputBoxz Val InputBoxCall s_sumsx xCall s_sumsy yCall s_sumsz z??使用通用Sub过程:Dim sx sy szDim x y zDim s x Val InputBox请输入x的值y Val InputBox请输入y的值z Val InputBox请输入z的值Call s_sumsx xCall s_sumsy yCall s_sumsz z编程计算编程计算11/21/3…1/x 11/21/3…1/y11/21/3…1/z的值Sub s_sumsa a End Sub Sub s_sumsa a sa 0For i 1 To asa sa 1 / iNextEnd Sub 7.2 Sub说明:如果需要参数则只能在代码窗口中在过程名后的括号内加上.说明:如果需要参数则只能在代码窗口中在过程名后的括号内加上.End Sub在VB环境中打开代码窗口单击“工具”菜单下“添加过程”命令打开“添加过程”窗口在“添加过程”窗口中在“名称”框中输入过程名称“类型”选择为“子程序”“范围”根据需要选择“公有的”或“私有的”单击“确定”按钮则在代码窗口中将自动出现如下代码块。

    Private Sub s_sumEnd Sub方法一: 用菜单命令方法一: 用菜单命令Sub说明:1.过程名后括号内的参数称为形式参数简称“形参”形参只能是变量名或数组名.2.关键字Private表示为私有过程只在一个模块中有效Public为公有过程可在任何模块中有效.3.输入Sub语句时只能在代码窗口的空白处输入不能在其他的Sub 与End Sub之间输入说明:1.过程名后括号内的参数称为形式参数简称“形参”形参只能是变量名或数组名.2.关键字Private表示为私有过程只在一个模块中有效Public为公有过程可在任何模块中有效.3.输入Sub语句时只能在代码窗口的空白处输入不能在其他的Sub 与End Sub之间输入在代码窗口的空白处输入PrivatePublicSub 参数表 后按回车键则自动形成如下的代码块PrivatePublicSub 参数表End Sub方法二:编写代码创建自定义过程方法二:编写代码创建自定义过程在一个工程中除了可添加多个窗体模块外菜单项“工程”/“添加窗体”还可添加标准模块菜单项“工程”/“添加模块”如图添加模块后在工程资源管理器中将增加“Module1模块”一般来说全局变量、公有通过过程等都在标准模块中定义以供各窗体模块中的过程调用。

    :窗体模块标准模块Call 过程名实参表关键字Call可省去如果省去Call则过程名后不能有括号如Call sab s ab语法格式语法格式调用语句的作用是将程序的执行流程从调用语句处转到被调用的过程中。

    如图表示: 当执行过程S1时首先执行“”碰到“Call S2”语句时流程转向过程S2中执行S2中的“”到“End Sub”时再返回到S1中“Call S2”下面的“”调用语句流程调用语句流程按址传递ByRef形参与实参具有完全相同的值按值传递ByVal只将实参的值传给形参而形参的值不影响实参。

    由定义过程时声明按哪一种传递方式由声明语句来声明默认情况下为按址传递。

    如定义语句Sub s_testByVal a1 ByRef a2a1按值传递a2按址传递。

    ??参数的传递方式分为两种??参数的传递方式分为两种??实参可以是变量名、数组元素、常量、函数或表达式。

    ??实参可以是变量名、数组元素、常量、函数或表达式。

    ??调用语句的作用是将实参的值传递给形参??调用语句的作用是将实参的值传递给形参7.5 自定义Sub过程与事件过程的异同点语句开头以语句结尾的代码块二者都是以Sub语句开头以End Sub语句结尾的代码块??相同点??相同点1. 事件过程的过程名及参数为系统预先定义如Sub Command1_ClickForm_Load而自定义Sub过程的过程名及参数则由用户自己定义2. 二者都可以被其他过程调用调用语句的格式相同。

    所不同的是事件过程更多的是在事件触发时被执行而自定义Sub过程则只能是在调用时被执行??不同点??不同点将数组元素显示在文本框中的代码块在多个过程中出现可将其定义为一个通用Sub过程。

    代码如下说明1. 将程序中包含此代码块的地方使用语句Call s_Dispi2. 此过程中包含一个整形参数表示当前显示的某一组数据的序号。

    说明1. 将程序中包含此代码块的地方使用语句Call s_Dispi2. 此过程中包含一个整形参数表示当前显示的某一组数据的序号。

    Private Sub s_Dispk as Integertxt_WageInfo0.text m_strArrNumktxt_WageInfo1.text m_strArrNamektxt_WageInfo2.text m_intArrWagektxt_WageInfo3.text m_intArrPrzktxt_WageInfo4.text m_intArrSudkEnd SubPrivate Sub s_Dispk as Integertxt_WageInfo0.text m_strArrNumktxt_WageInfo1.text m_strArrNamektxt_WageInfo2.text m_intArrWagektxt_WageInfo3.text m_intArrPrzktxt_WageInfo4.text m_intArrSudkEnd SubPrivate Sub s_InputFor i 1 To 6m_strArrNumi InputBox请输入第 Stri 个员工编号m_strArrNamei InputBox请输入第 Stri 个员工姓名m_intArrWagei ValInputBox请输入第 Stri 个员工工资m_intArrPrzi ValInputBox请输入第 Stri 个员工奖金m_intArrSudi ValInputBox请输入第 Stri 个员工各种补助NextEnd SubPrivate Sub s_InputFor i 1 To 6m_strArrNumi InputBox请输入第 Stri 个员工编号m_strArrNamei InputBox请输入第 Stri 个员工姓名m_intArrWagei ValInputBox请输入第 Stri 个员工工资m_intArrPrzi ValInputBox请输入第 Stri 个员工奖金m_intArrSudi ValInputBox请输入第 Stri 个员工各种补助NextEnd Sub数据输入虽然不是重复出现的代码但是一段相对独立的代码此种情况下也适合定义通用过程可使程序结构清晰。

    代码如下说明此过程为无参数过程调用时不需要实参说明此过程为无参数过程调用时不需要实参7.6 自定义Sub过程的应用:课堂实训1定义变量:nsn调用说明合的值传给定义变量:nsn值由用户输入调用Sub过程:Call sumsn说明:将n的值传给b 将s与a结合当执行通用过程s后a的值传给s则s就是所求的结果.定义Sub过程:Sub sumabFor i 1 to baainext计算任意个数累加的值.如图所示单击按钮时弹出输入框由用户输入一个整数n然后计算1-n的和.要求用Sub过程求和.Sub:3编写简单的学生信息浏览程序编写简单的学生信息浏览程序要求:1.浏览10组数据2.数据输入与数据显示用Sub过程来实现.3.数据用数组存放同类的控件定义为控件数组.问题描述:问题描述:??使用通用Function过程:Dim sx sy szDim x y zDim s x Val InputBoxy Val InputBoxz Val InputBoxsx f_Sumx sy f_Sumysz f_sumz??使用通用Function过程:Dim sx sy szDim x y zDim s x Val InputBox请输入x的值y Val InputBox请输入y的值z Val InputBox请输入z的值sx f_Sumx sy f_Sumysz f_sumzPrivate Function f_Sum a As _ Single End FunctionPrivate Function f_Sum a As _ Single f_Sum 0For i 1 To af_Sum f_Sum 1 / iNextEnd Function过程外另一种自定义过程是过程也称为函数过除了Sub过程外另一种自定义过程是Function过程也称为函数过程。

    如将上一节中的引例改用Function过程来完成程序可写为自定义Function过程自定义Function过程说明:如果需要参数则只能在代码窗口中在过程名后的括号内加上.说明:如果需要参数则只能在代码窗口中在过程名后的括号内加上.End Function1.在VB环境中打开代码窗口2.单击“工具”菜单下“添加过程”命令打开“添加过程”窗口3.在“添加过程”窗口中在“名称”框中输入过程名称“类型”选择为“函数”“范围”根据需要选择“公有的”或“私有的”单击“确定”按钮则在代码窗口中将自动出现如下代码块。

    Private Function s_sumEnd Function方法一: 用菜单命令方法一: 用菜单命令说明:1.编写函数体语句时必须包含一次对函数名赋值的语句2.参数与Sub过程相同只能是变量名或数组名3.输入Function语句时只能在代码窗口的空白处输入不能在其他的Sub 与End Sub之间输入4.函数可以指明类型表示函数反回值的类型。

    说明:1.编写函数体语句时必须包含一次对函数名赋值的语句2.参数与Sub过程相同只能是变量名或数组名3.输入Function语句时只能在代码窗口的空白处输入不能在其他的Sub 与End Sub之间输入4.函数可以指明类型表示函数反回值的类型。

    在代码窗口的空白处输入PrivatePublicSub 参数表 后按回车键则自动形成如下的代码块Public Function 函数名参数表 As 类型End Function方法二:编写代码创建自定义过程方法二:编写代码创建自定义过程用Function过程计算VB案例中的个人所得税个人所得税的计算也是相对独立且较长的一段代码直接写在事件过程中不利于体现事件过程的功能将其定义为一个独立的通用过程.在需要的事件过程中直接调用.编写代码如下:??必须性??必须性Public Function f_CalTaxwage As IntegerEnd FunctionPublic Function f_CalTaxwage As IntegerDim intTax1 intTax2 intTax3r intTax4intTax1 500 0.05intTax2 1500 0.1intTax3 3000 0.15If wage 0 And wage 60Case Is 60f_chg C:f_chg C:Case ElseCase Elsef_chg Df_chg DEnd Select End Select End Function End Function Windows API函数是Windows操作系统为各种应用程序提供的接口函数存放在DLL文件中。

    DLLDynamic-Link Library的缩写称为动态链接库。

    包含Windows API函数的DLL文件一般放在Windows的系统目录中最主要的有三个DLL文件1User32.dll该库文件包含有关管理Windows环境的函数如管理菜单、管理光标以及处理消息等。

    2Gdi32.dll其中的函数帮助管理不同设备的输出。

    3Kernel32.dll包含执行内存管理、任务管理、资源管理以及模块管理的函数。

    API函数的概念API函数的概念1.启动API文本浏览器两种方法①方法一:从桌面环境下开始菜单启动②方法二:从VB环境下的菜单项外接程序下启动2.加载API文本文件或API数据库文件在API文本浏览器中可加载API文本文件或数据库文件3.选择API函数在API类型中选择声明在可选项中可以选择所需的API函数.通过右边的功能按钮操作可将所选API函数复制到代码窗口中.API函数的使用API函数的使用API通过前面介绍的方法将API函数GetSystemDirectory加载到代码窗口中Private Sub Command1_ClickEnd Sub通过前面介绍的方法将API函数GetSystemDirectory加载到代码窗口中在按钮的单击事件中调用此函数.Private Sub Command1_ClickDim dirname As Stringdirname String30 0 n GetSystemDirectorydirname 30 dirname Leftdirname nShell dirname calc.exe 1End Sub在VB中启动计算器.题目要求题目要求1.计算器为系统应用程序其路径为系统文件夹2.通过API函数GetSystemDirectory获取系统文件夹的路径即可得到计算器所在的路径.3.在VB中可用Shell命令启动外部程序.要点分析要点分析代码编写如下代码编写如下7.11 ??通用过程类型的选择过程与过程都有其??通用过程类型的选择:Sub过程与Function过程都有其适应的使用条件一般有参数返回时选择Function过程而无参数返回时则选用Sub过程.??调用通用过程时参数的类型不匹配实参的类型必须与??调用通用过程时参数的类型不匹配实参的类型必须与形参的完全一致如创建通用过程时没有指明形参类型则实参也只能是没有声明类型的.??调用通用过程时参数的个数与顺序要完全一致.??调用通用过程时参数的个数与顺序要完全一致.??课堂实训–第7章课堂实训4??课后作业–第7章课堂实训3–第7章练习题

上一篇：泰山版初三信息技术教案VB教案
下一篇：关于大学英语教学