过程与函数课件.pptxVIP

过 程 和 函 数过程和函数过程：强调的是动作，比如单击了按钮Command1,就产生了Command1_Click 这个过程VB应用程序是按模块化的方式组成的，一个程序模块是程序的一部分，每个模块负责解决整个应用问题的一部分任务。程序模块分成两种：1. 过程2. 函数1、过程（1）事件处理过程： 如：Sub Command1_Click() Text1.Text=“喜欢vb吗？？” End Sub 如：Sub Form_Load() Text2.Text=“我喜欢VB” End Sub当对象X上发生某个事件Y时，需要执行一段程序来响应这个事件1、过程（1）事件处理过程：格式： Sub 对象名_事件的标准名（参数表） 语句块 End Sub 事件处理过程名调用事件处理过程： Call 对象名_事件的标准名 如：Call Command1_Click 过程和函数事件处理过程（控件提供）过程通用过程（自己编写）函数 程序模块1、过程（2）通用过程：格式： Sub 过程名（参数列表） 语句块 End Sub 调用通用过程： Call 过程名 （参数列表） 过 程 和 函 数过程和函数事件处理过程（控件提供）过程通用过程（自己编写）函数 程序模块总 结过程：强调的是动作。Sub与End Sub之间的语句序列称为过程体1、过程Sub swap(x As Integer, y As Integer) Dim t As Integer t = x x = y y = t Print 调用前：a=; a; , b=; bEnd SubSub Form_Load() Dim sum As Integer sum = 0 For i = 1 To 10 sum = sum + i Next iEnd Sub通用过程事件处理过程过程和函数事件处理过程（控件提供）过程通用过程（自己编写）系统函数函数自定义函数（自己编写）函数：强调的是值的计算 程序模块2、函数（1）系统函数：常用的数字函数：Abs(x)求x的绝对值Sqr(x)求x的算术平方根Int(x)求不大于x的最大整数Rnd()产生[0，1）之间的随机小数Exp(x)求e的x次方Sin(x)求x的正弦值Cos(x)求x的余弦值Tan(x)求x的正切值常用的转换函数和字符函数：Asc(x)字符转换成ASCII码Len(x)计算字符串的长度Chr(x)ASCII码转换成字符Mid(x,n,k)取字符串x的第n个字符开始的k个字符Str(x)数值转字符串Val(x)数字字符串转数值问 题 判断一个数是否为偶数的函数是？？？？2、函数Y=val(“123”)数学中的函数：Y=f(x)F：函数名X：参数Vb中函数的调用变量名=函数名（参数）系统函数的调用2、函数（1）系统函数：常用的数字函数：Abs(x)求x的绝对值Sqr(x)求x的算术平方根Int(x)求不大于x的最大整数Rnd()产生[0，1）之间的随机小数Exp(x)求e的x次方Sin(x)求x的正弦值Cos(x)求x的余弦值Tan(x)求x的正切值常用的转换函数和字符函数：Asc(x)字符转换成ASCII码Len(x)计算字符串的长度Chr(x)ASCII码转换成字符Mid(x,n,k)取字符串x的第n个字符开始的k个字符Str(x)数值转字符串Val(x)数字字符串转数值2、函数（2）自定义函数：格式：Function 函数名（参数表） AS 数据类型名 语句块（其中至少有一个语句是: 函数名=表达式）End Function例：判断一个数是否为偶数的函数：Function ou（x As Integer） AS Boolean If x Mod 2=0 Then ou =true Else ou = false End IfEnd Function这样表达式的结果才能做为函数的返回值2、函数例二：编写函数leap，判断y年是否为闰年，若是，返回“是闰年”，否则返回“不是闰年”