过程和自定义函数.ppt

《过程和自定义函数.ppt》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、自定义函数VB提供的标准函数Str()、Val()、Int()、Sqr()、Abs()……自定义函数Function函数名(参数表)As数据类型语句块EndFunctionVB函数自定义函数方式Function函数名(参数表)AS类型名语句块（其中至少有一个语句是:函数名=表达式）EndFunction说明:表达式的计算结果作为函数的返回值,被VB送到函数的调用点上.函数名的命名规则与变量名相同，长度不超过40个字符。As<类型>指定Function过程返回值的类型，可以是Integer，Long，Single，Double，string。如果没有As子句，缺省的类型为V

2、ariant（通用型）。语句系列:语句系列中可以用一个或多个ExitFunction语句从函数中退出。VB自定义函数VB自定义函数参数表表达式:<函数名>=<表达式>如果在Function过程中省略了表达式，则该过程返回一个默认值：数值函数过程返回0，字符串函数过程返回空字符串。因此，为了能使一个Function过程完成所指定的操作，通常要在过程中为函数赋值。自定义函数例子一'自定义求绝对值函数Functionjdz(xAsSingle)AsSingleIfx<0Thenjdz=-xElsejdz=xEndIfEndFunctionPrivateSubCommand1_C

3、lick()DimaAsDoublea=Val(Text1.Text)Label3.Caption=Str(a)+“绝对值是”+Str(jdz(a))‘调用jdz函数,a为实参EndSubJdz：函数名X：形参。形参类型可以不申明，若不申明就是通用型。若申明，实参的类型一定要与它一致。自定义函数里一定存在将结果赋值给函数数名的语句。实参类型不一致例:设计一个函数Leap，判断y年是否是闰年，若是，就返回1，否则，就返回0。自定义函数例子二Functionhudu(nAsDouble)AsString'弧度化角度函数DimaAsDoubleDimbAsDoubleDimcA

4、sDoubleConstpi=3.14159a=Int(n*180/pi)b=Int((n*180/pi-a)*60)c=Int(((n*180/pi-a)*60-b)*60)hudu=a&"度"&b&"分"&c&"秒"'返回值EndFunction函数名“hudu”返回值自定义函数例子三调用角度互化函数PrivateSubCommand1_Click()DimangelAsStringDimradianAsDoubleradian=Val(Text1.Text)angel=hudu(radian)PrintangelEndSub解析法：用解析的方法找出表示问题的前提条件

5、与结果之间关系的数学表达式，并通过表达式的计算来实现问题求解。如：根据半径r求出面积s和周长c解析算法枚举算法按照问题要求确定问题解的大致范围，然后在此范围内对这些解进行一一列举，再对当前列举出的解进行是否满足问题要求的判断，最后把符合要求的解输出直到所有可能的解全部列举完毕。如：求出1-100之内的所有素数。确定范围情况枚举条件判断得到真解多重循环PrivateSubCommand1_Click()DimiAsInteger,jAsIntegerFori=1To3Forj=1To3PrintStr(i)+"*"+Str(j)+"="+Str(i*j)NextjNexti

6、EndSub作业本：3.3——4.2导学案：第3课——第7课作业