过程与函数课件VIP免费

过程和函数VB应用程序是按模块化的方式组成的，一个程序模块是程序的一部分，每个模块负责解决整个应用问题的一部分任务。程序模块分成两种：1.过程2.函数过程和函数过程：强调的是动作，比如单击了按钮Command1,就产生了Command1_Click这个过程1、过程（1）事件处理过程：如：SubCommand1_Click()Text1.Text=“喜欢vb吗？？”EndSub如：SubForm_Load()Text2.Text=“我喜欢VB”EndSub当对象X上发生某个事件Y时，需要执行一段程序来响应这个事件1、过程格式：Sub对象名_事件的标准名（参数表）语句块EndSub（1）事件处理过程：调用事件处理过程：Call对象名_事件的标准名如：CallCommand1_Click事件处理过程名过程和函数程序模块过程函数事件处理过程（控件提供）通用过程（自己编写）1、过程格式：Sub过程名（参数列表）语句块EndSub（2）通用过程：调用通用过程：Call过程名（参数列表）过程和函数过程和函数程序模块过程函数事件处理过程（控件提供）通用过程（自己编写）1、过程Subswap(xAsInteger,yAsInteger)DimtAsIntegert=xx=yy=tPrint"调用前：a=";a;",b=";bEndSubSubForm_Load()DimsumAsIntegersum=0Fori=1To10sum=sum+iNextiEndSub事件处理过程通用过程过程：强调的是动作。Sub与EndSub之间的语句序列称为过程体总结过程和函数程序模块过程函数事件处理过程（控件提供）通用过程（自己编写）系统函数自定义函数（自己编写）函数：强调的是值的计算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数据类型名语句块（其中至少有一个语句是:函数名=表达式）EndFunction这样表达式的结果才能做为函数的返回值例：判断一个数是否为偶数的函数：Functionou（xAsInteger）ASBooleanIfxMod2=0Thenou=trueElseou=falseEndIfEndFunction2、函数例二：编写函数leap，判断y年是否为闰年，若是，返回“是闰年”，否则返回“不是闰年”