VB过程和函数.ppt

Version 3.0过程和函数第第六章六章2 2回顾使用图片框控件和图像控件使用图片框控件和图像控件使用框架中的复选框和选项按钮使用框架中的复选框和选项按钮使用列表框和组合框控件使用列表框和组合框控件使用使用 Timer 控件创建控件创建 Timer 应用程序应用程序3 3目标目标使用过程和函数使用过程和函数掌握程序中过程和函数的作用范围掌握程序中过程和函数的作用范围使用参数和在函数及过程中传递参数的使用参数和在函数及过程中传递参数的规则规则使用使用 Visual Basic 支持的内部函数支持的内部函数 使用使用 SUB MAIN 过程过程4 4过程和函数过程和函数为了简化应用程序的编程，可以将整个程为了简化应用程序的编程，可以将整个程序分成称为过程或函数的小段序分成称为过程或函数的小段在程序中使用过程或函数的主要优点在程序中使用过程或函数的主要优点允许将程序分成独立的逻辑单元允许将程序分成独立的逻辑单元提高程序的可读性提高程序的可读性程序更容易维护或调试程序更容易维护或调试提高代码的可重用性提高代码的可重用性5 5过程过程Visual Basic 中的过程通常称为中的过程通常称为 Sub 过程过程或子例程或子例程过程是一组用来执行某项任务的语句过程是一组用来执行某项任务的语句语句被放在语句被放在 Sub/End Sub中中过程被调用时，将执行过程中的语句，过程被调用时，将执行过程中的语句，没没有返回值有返回值6 6定义过程定义过程定义过程的语法：定义过程的语法：Sub (argument1,argument2,.argumentn).End Sub7 7过程过程 示例示例Private Sub Form_Load()Call showtimeEnd SubSub showtime()MsgBox TimeEnd Sub在在VB环环境中境中进进行演示行演示定义过程定义过程调用过程调用过程8 8函数函数函数是一组被命名的语句，用户通过指函数是一组被命名的语句，用户通过指定名称来调用它时，它将被执行，并返定名称来调用它时，它将被执行，并返回值回值函数的语句放在函数的语句放在 Function/End Function 语句内语句内函数可以将值返回给调用程序函数可以将值返回给调用程序9 9定义函数定义函数Function (arguments1,argument2,.argumentn)as .=1010函数函数 示例示例Private Sub Form_Load()Dim new_d As Date new_d=newday()MsgBox new_dEnd SubFunction newday()As Date newday=Date+5End Function在在VB环环境中境中进进行演示行演示定义函数定义函数调用函数调用函数1111过程和函数的作用范围过程和函数的作用范围 2-1应用于变量的作用范围规则同样应用于函应用于变量的作用范围规则同样应用于函数和过程数和过程函数和过程可以使用如下关键字进行定义函数和过程可以使用如下关键字进行定义PublicPrivateStatic例如，例如，Public Sub add()Static Function Calc_Salary()as Single1212过程和函数的作用范围过程和函数的作用范围 2-2声明为声明为 Public 的函数或过程：可以从应用程序的的函数或过程：可以从应用程序的任何地方被访问任何地方被访问声明为声明为 Private 的函数或过程：只能在声明函数或的函数或过程：只能在声明函数或过程的窗体内的进行访问过程的窗体内的进行访问声明为声明为 Static 的函数或过程的函数或过程可以在应用程序的任何地方访问可以在应用程序的任何地方访问和和Public的区别：在声明的过程或函数内的变量的区别：在声明的过程或函数内的变量将在程序运行的整个过程中保留它们的值将在程序运行的整个过程中保留它们的值1313过程和函数的作用范围过程和函数的作用范围 示例示例在在Form1窗体中创建函数窗体中创建函数 showDate()，并声明为并声明为Public函数函数Public Sub showDate()MsgBox DateEnd Sub在在Form2窗体中调用窗体中调用 showDate()函数：函数：call Form1.showDate1414Exit 关键字关键字Visual Basic 提供了退出过程的提供了退出过程的“Exit Sub”语句和退出函数的语句和退出函数的“Exit Function”语句，语句，提早退出子例程提早退出子例程或函数或函数在遇到在遇到 Exit Sub 或或 Exit Function 语句时，语句时，函数或过程当前的处理会停止函数或过程当前的处理会停止1515Exit 关键字关键字 示例示例Private Sub Form_Load()MsgBox calc_sqr(0)End SubPrivate Function calc_sqr(num As Integer)As Integer Dim sqr As Integer If num=0 Then calc_sqr=0 Exit Function Else calc_sqr=num*num End IfEnd Function在在VB环环境中境中进进行演示行演示1616过程和函数的参数过程和函数的参数参数不是必需的参数不是必需的过程中的代码通常需要某些关于程序状态的过程中的代码通常需要某些关于程序状态的信息才能完成它的工作信息才能完成它的工作在调用过程时，传递到过程内的变量在调用过程时，传递到过程内的变量称为参称为参数数1717带参数的过程示例带参数的过程示例 计算圆的面积计算圆的面积Public Sub area_circ(radius As Integer)Dim area As Double area=3.14*radius*radius MsgBox areaEnd SubPrivate Sub Form_Load()Call area_circ(5)End Sub在在VB环环境中境中进进行演示行演示1818带参数的函数示例带参数的函数示例 计算一个整数的平方计算一个整数的平方Public Function calc_sqr(num As Integer)Dim sqr As Integer calc_sqr=num*numEnd FunctionPrivate Sub Form_Load()Dim sqr As Integer sqr=calc_sqr(5)MsgBox sqrEnd Sub在在VB环环境中境中进进行演示行演示1919传递参数的规则传递参数的规则通过引用传递通过引用传递通过值传递通过值传递VB 应用程序传递参数的缺省方法应用程序传递参数的缺省方法不不是缺省方法是缺省方法传递参数时，过程将从该变量的传递参数时，过程将从该变量的内存地址位置访问其实际内容内存地址位置访问其实际内容传递参数时，传递到过程的只是传递参数时，传递到过程的只是参数的副本参数的副本参数的值可以被传递到的过程永参数的值可以被传递到的过程永久改变久改变只允许声明值的程序更改该值只允许声明值的程序更改该值在指定参数时，关键字在指定参数时，关键字 ByRef 不不是必需的是必需的要通过值传递参数，需要在函数要通过值传递参数，需要在函数声明中参数的前面附加关键字声明中参数的前面附加关键字 ByVal2020通过引用传递通过引用传递 示例示例 计算两个整数的和计算两个整数的和Public Function add_num(num1 As Integer,num2 As Integer)As Integer add_num=num1+num2 num1=0 num2=0End FunctionPrivate Sub Form_Click()Dim a As Integer,b As Integer,tot As Integer a=10 b=10 tot=add_num(a,b)MsgBox(a&,&b&,&tot)End Sub在在VB环环境中境中进进行演示行演示Public Function add_num(ByRef num1 As Integer,ByRef num2 As Integer)As Integer2121通过值传递通过值传递 示例示例 计算两个整数的和计算两个整数的和Public Function add_num(ByVal num1 As Integer,ByVal num2 As Integer)As Integer add_num=num1+num2 num1=0 num2=0End FunctionPrivate Sub Form_Click()Dim a As Integer,b As Integer,tot As Integer a=10 b=10 tot=add_num(a,b)MsgBox(a&,&b&,&tot)End Sub在在VB环环境中境中进进行演示行演示2222使用过程和函数分解代码的优点使用过程和函数分解代码的优点过程可用来将程序分割成独立的逻辑单元，过程可用来将程序分割成独立的逻辑单元，较容易进行调试较容易进行调试提高应用程序的可读性提高应用程序的可读性提高代码的可重用性提高代码的可重用性程序的维护变得非常容易程序的维护变得非常容易2323分解代码的示例分解代码的示例在在VB环境中演示本章教材环境中演示本章教材“将代码分割成将代码分割成过程和函数的示例过程和函数的示例”2424Visual Basic 的内部函数的内部函数Visual Basic 提供了许多能够执行各种任务的提供了许多能够执行各种任务的内部预定义函数内部预定义函数算术函数算术函数日期函数日期函数字符串操作函数字符串操作函数不必亲自编写代码，就可以直接使用这类函不必亲自编写代码，就可以直接使用这类函数数2525算术函数算术函数函数名称函数名称说说明明Abs(number)此函数会返回所传递参数的绝对值此函数会返回所传递参数的绝对值 Sqr(number)此函数会返回一个此函数会返回一个Double类型的值类型的值，它表示所它表示所传递的参数的平方根传递的参数的平方根 Rnd(number)此此函函数数会会返返回回一一个个Single类类型型的的值值，它它表表示示0和和1之间的一个随机数之间的一个随机数Int(number)此函数会返回一个数的整数部分此函数会返回一个数的整数部分 Log(number)此函数会返回一个此函数会返回一个Double类型的值类型的值，它表示所它表示所传递的参数的自然对数。传递的参数的自然对数。2626日期函数日期函数 2-1函数名称函数名称说说明明Date()会以月会以月/日日/年格式返回当前日期年格式返回当前日期 Now()返回系统日期及时间返回系统日期及时间 Day(date)返回所传递的返回所传递的date参数中的日子参数中的日子Month(date)返回一个返回一个1与与12之间的整数之间的整数，表示所传递的表示所传递的date参数中的月份参数中的月份 Year(date)返回一个整数返回一个整数，表示所传递的参数表示所传递的参数date中的中的年份年份 Weekday(date)返回一个返回一个1到到7之间的整数，该数字表示星期之间的整数，该数字表示星期几，如几，如1代表星期日，代表星期日，2代表星期一。代表星期一。2727日期函数日期函数 2-2函数名称函数名称说说明明DatePart(interval,date,firstdayofweek,firstweekofyear)返回参数返回参数date的指定部分，的指定部分，interval参数参数表示将要返回的日期部分的格表示将要返回的日期部分的格式，参数式，参数firstdayofweek和和firstweekofyear是可选参数，它们分是可选参数，它们分别指定星期的第一天和年的第一个别指定星期的第一天和年的第一个星期星期DateAdd(interval,number,date)此函数会返回一个加上间隔值的日此函数会返回一个加上间隔值的日期，期，interval参数参数表示有关天、小时、表示有关天、小时、星期等时间单位，参数星期等时间单位，参数number表示表示添加到初始日期的间隔数，参数添加到初始日期的间隔数，参数date表示初始日期。表示初始日期。2828日期函数日期函数 Interval参数的值参数的值参数的值参数的值说说明明参数的值参数的值说明说明yyyy年年w工工作日作日Q季度季度ww星期星期m月月h小时小时y一年中的第几天一年中的第几天 n分钟分钟d天天s秒秒2929字符串操作函数字符串操作函数 2-1StrComp函数的返回值：函数的返回值：函数名称函数名称说说明明LCase(string)将传递的字符串参数转换成小写将传递的字符串参数转换成小写 UCase(string)将传递的字符串参数转换成大写将传递的字符串参数转换成大写StrComp(string1,string2,compare)会会比比较较两两个个字字符符串串并并返返回回一一个个值值(-1,0,1)或或为空为空 返回值返回值说说明明返回值返回值说明说明-1String1小于小于String21String1大于大于String20String1等于等于String2NullString1或或String2为空为空3030字符串操作函数字符串操作函数 2-2函数名称函数名称说说明明Left(string,number)返回从参数字符串返回从参数字符串string左边开始指定个数左边开始指定个数number的子字符串的子字符串Right(string,number)返回从参数字符串返回从参数字符串string右边开始指定个数右边开始指定个数number的子字符串。的子字符串。Len(string)返回参数字符串的长度返回参数字符串的长度 LTrim(string)用于删掉参数字符串左侧的空格用于删掉参数字符串左侧的空格RTrim(string)用于删掉参数字符串右侧的空格用于删掉参数字符串右侧的空格Trim(string)用于删掉参数字符串两侧的空格用于删掉参数字符串两侧的空格 3131设设置程序入口置程序入口可以在可以在“工程属工程属性性”对话框来设对话框来设置启动窗体或其置启动窗体或其他启动对象他启动对象缺省情况下，应用程序中创建的第一个缺省情况下，应用程序中创建的第一个窗体是启动窗体窗体是启动窗体3232自定自定义义 SUB MAIN 过过程程有时可能需要在启动时不加载任何窗体，或有时可能需要在启动时不加载任何窗体，或在加载前要在后台执行一些代码，可通过在在加载前要在后台执行一些代码，可通过在标准模块中建立标准模块中建立 Sub Main 过程来实现过程来实现要将要将 Sub Main 过程设置为启动对象，可以过程设置为启动对象，可以使用使用“工程属性工程属性”对话框对话框3333使用自定使用自定义义 SUB MAIN 过过程程Private Sub Main()frmSplash_scr.Show frmStart.ShowUnload frmSplash_scrEnd Sub闪屏是一个简单的显示信息窗闪屏是一个简单的显示信息窗体，可在启动时显示，后台去体，可在启动时显示，后台去执行一些比较复杂的过程，执执行一些比较复杂的过程，执行以后，就可以加载程序的第行以后，就可以加载程序的第一个窗体，并卸载闪屏。一个窗体，并卸载闪屏。3434总结总结使用过程和函数使用过程和函数过程和函数的作用域过程和函数的作用域使用使用EXIT关键词关键词参数和参数传递规则参数和参数传递规则VB支持的内部函数支持的内部函数算术函数算术函数日期函数日期函数字符串操作函数字符串操作函数使用使用SUB MAIN作为程序的入口作为程序的入口此课件下载可自行编辑修改，供参考！感谢您的支持，我们努力做得更好！