VB第12课时：函数与过程

VisualBasic程序过程与函数第12课时,学习重点：1、理解程序设计的特点2、掌握程序过程的概念3、自定义函数的设计与运用,1、理解VB程序设计的特点,VB应用程序设计：程序模块化；按模块化的方式组成。,将一个大的程序按功能分割成相对独立、功能单一的小模块；,请问该VB程序中有几个模块：,P77背,各个模块中的事件名是何义？,5？,请问该VB程序中有几个模块：,1,注释程序中的注释是以单引号（）开头的一串文字，对语句进行解释说明作用，注意：注释的作用仅仅是为了增加程序的可读性，注释对程序执行的效果没有任何影响。,2、过程和函数程序模块分为过程和函数两种，过程强调的是动作，而函数强调的是值的计算。,过程分两类：事件处理过程通用过程,事件处理过程格式：Sub对象名_事件的标准名（）变量定义和常量定义语句块EndSub注：事件处理过程名（参考P77表）,PrivateSubCommand1_Click()Dimr,x,yAsDoubler=Val(Text1.Text)x=2*3.14*ry=3.14*r2Text2.Text=Str(x)Text3.Text=Str(y)EndSub,事件处理过程格式：Sub对象名_事件的标准名（）变量定义和常量定义语句块EndSub注：事件处理过程名（参考P77表）,常用的标准函数P52,Val(x):字符串（文本）类型转换成数值类型Str(x)：数值类型转换成字符串（文本）类型,Abs(x):求x的绝对值Int(x):求不大于x的最大整数Fix(x):求去掉x的小数部分（保留整数部分）Sqr(x):求x的算术平方根,Asc(x):把字符x转换成ASCII码Chr(x)：把ASCII码转换成字符（这两个函数跟ASCII码表有关）,Asc(“A”)=65,Chr(65)=“A”,Abs(-23)=,23,Fix(3.124)=,3,Int(4.3)=,4,Int(-4.3)=,-5,Sqr(16)=,4,Asc(“a”)=,97,Rnd():在【0，1）的区间的随机数,Len(x):求字符串x的长度(字节数),Mid(X,n,k):取字符串x中第n个字符开始，长度为k的子串,因为VB程序内部已定义好了，就可直接拿来运算,那我们能不能自己也定义个函数也直接调用呢？,2、函数函数强调的是值的计算。通常称为自定义函数模块。,函数格式：Function函数名（参数表）As类型名变量定义和常量定义语句语句块函数名=表达式EndFunction注：在语句块中，至少要有一个形如函数名=表达式的语句,用Function开头定义,Abs(x):求x的绝对值,Function函数名（参数表）As类型名变量定义和常量定义语句语句块函数名=表达式EndFunction,FunctionAbs(xAsDouble)AsDoubleIfx0Andx0ThenAbs=xElseAbs=0EndIfEndFunctionPrivateSubCommand1_Click()DimxAsDoublea=Val(Text1.Text)Text2.Text=Str(Abs(x)EndSub,自定义函数,Abs(x):,那我能不能自己定义一个“求x的平方”的函数呢？,求x的绝对值,Function函数名（参数表）As类型名变量定义和常量定义语句语句块函数名=表达式EndFunction,FunctionAbs(xAsDouble)AsDoubleIfx0Andx0ThenAbs=xElseAbs=0EndIfEndFunctionPrivateSubCommand1_Click()DimxAsDoublea=Val(Text1.Text)Text2.Text=Str(Abs(x)EndSub,Abs(x):求x的绝对值,那我能不能自己定义一个“求x的平方”的函数呢？,函数格式：Function函数名（参数表）As类型名变量定义和常量定义语句语句块函数名=表达式EndFunction,Function,Pf,(),xasdouble,ASDouble,Pf=x2,EndFunction,Pf(x):求x的平方值,求Pf(5)=,25,例2：Functionf(rasdouble,hasdouble)asdoublef=2*3.14*r*hEndFunction求f（10，2）的值,例1：Functionx(aasdouble)asdoublex=2*aEndFunction请问x（10）的值,f（10，2）=2*3.14*10*2=125.6,实战练习18：用函数语句来求平方值1、运行VB,建立一个标准EXE工程。2、在窗体中添加相应的控件对象，界面如（图一）所示；3、并通过编辑代码语句，实现以下效果：当在文本框Text1中输入任何数，点击“计算”按钮后，该输入数值的平方的结果就会显示在标签Label1上.4、保存窗体和工程到自己文件夹中，文件名分别为“函数求平方.frm”和“函数求平方.vbp”。5、生成“函数求平方.exe”可执行文件，保存在自己文件夹下。,Functionpf(xAsDouble)AsDoublepf=x2EndFunctionPrivateSubCommand1_Click()DimaAsDoublea=Val(Text1.Text)Label1.Caption=Str(pf(a)EndSub,实战练习18：用函数语句来求平方值1、运行VB,建立一个标准EXE工程。2、在窗体中添加相应的控件对象，界面如（图一）所示；3、并通过编辑代码语句，实现以下效果：当在文本框Text