《VB第12课时：函数与过程.ppt》由会员分享，可在线阅读，更多相关《VB第12课时：函数与过程.ppt（14页珍藏版）》请在三一办公上搜索。
1、Visual Basic 程序过程与函数第12课时,学习重点：1、理解程序设计的特点 2、掌握程序过程的概念 3、自定义函数的设计与运用,1、理解VB程序设计的特点,VB应用程序设计：程序模块化；按模块化的方式组成。,将一个大的程序按功能分割成相对独立、功能单一的小模块；,请问该VB程序中有几个模块：,P77背,各个模块中的事件名是何义？,5？,请问该VB程序中有几个模块：,1,注释程序中的注释是以单引号（）开头的一串文字，对语句进行解释说明作用，注意：注释的作用仅仅是为了增加程序的可读性，注释对程序执行的效果没有任何影响。,2、过程和函数 程序模块分为过程和函数两种，过程强调的是动作，而函数
2、强调的是值的计算。,过程分两类：事件处理过程 通用过程,事件处理过程格式：Sub 对象名_事件的标准名（）变量定义和常量定义 语句块 End Sub 注：事件处理过程名（参考P77表）,Private Sub Command1_Click()Dim r,x,y As Doubler=Val(Text1.Text)x=2*3.14*ry=3.14*r 2Text2.Text=Str(x)Text3.Text=Str(y)End Sub,事件处理过程格式：Sub 对象名_事件的标准名（）变量定义和常量定义 语句块 End Sub 注：事件处理过程名（参考P77表）,常用的标准函数 P 52,Val
3、(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)
4、:求字符串x的长度(字节数),Mid(X,n,k):取字符串x中第n个字符开始，长度为k的子串,因为VB程序内部已定义好了，就可直接拿来运算,那我们能不能自己也定义个函数也直接调用呢？,2、函数 函数强调的是值的计算。通常称为自定义函数模块。,函数格式：Function 函数名（参数表）As 类型名 变量定义和常量定义语句 语句块 函数名=表达式 End Function 注：在语句块中，至少要有一个形如 函数名=表达式 的语句,用Function开头定义,Abs(x):求x的绝对值,Function 函数名（参数表）As 类型名 变量定义和常量定义语句 语句块 函数名=表达式 End Fun
5、ction,Function Abs(x As Double)As Double If x 0 And x 0 Then Abs=x Else Abs=0 End IfEnd FunctionPrivate Sub Command1_Click()Dim x As Doublea=Val(Text1.Text)Text2.Text=Str(Abs(x)End Sub,自定义函数,Abs(x):,那我能不能自己定义一个“求x的平方”的函数呢？,求x的绝对值,Function 函数名（参数表）As 类型名 变量定义和常量定义语句 语句块 函数名=表达式 End Function,Function
6、Abs(x As Double)As Double If x 0 And x 0 Then Abs=x Else Abs=0 End IfEnd FunctionPrivate Sub Command1_Click()Dim x As Doublea=Val(Text1.Text)Text2.Text=Str(Abs(x)End Sub,Abs(x):求x的绝对值,那我能不能自己定义一个“求x的平方”的函数呢？,函数格式：Function 函数名（参数表）As 类型名 变量定义和常量定义语句 语句块 函数名=表达式 End Function,Function,Pf,(),x as double
7、,AS Double,Pf=x2,End Function,Pf(x):求x的平方值,求Pf(5)=,25,例2：Function f(r as double,h as double)as double f=2*3.14*r*hEnd Function求f（10，2）的值,例1：Function x(a as double)as double x=2*aEnd Function请问x（10）的值,f（10，2）=2*3.14*10*2=125.6,实战练习18：用函数语句来求平方值1、运行VB,建立一个标准EXE工程。2、在窗体中添加相应的控件对象，界面如（图一）所示；3、并通过编辑代码语句，
8、实现以下效果：当在文本框Text1中输入任何数，点击“计算”按钮后，该输入数值的平方的结果就会显示在标签Label1上.4、保存窗体和工程到自己文件夹中，文件名分别为“函数求平方.frm”和“函数求平方.vbp”。5、生成“函数求平方.exe”可执行文件，保存在自己文件夹下。,Function pf(x As Double)As Doublepf=x 2End FunctionPrivate Sub Command1_Click()Dim a As Doublea=Val(Text1.Text)Label1.Caption=Str(pf(a)End Sub,实战练习18：用函数语句来求平方值1、运行VB,建立一个标准EXE工程。2、在窗体中添加相应的控件对象，界面如（图一）所示；3、并通过编辑代码语句，实现以下效果：当在文本框Text1中输入任何数，点击“计算”按钮后，该输入数值的平方的结果就会显示在标签Label1上.4、保存窗体和工程到自己文件夹中，文件名分别为“函数求平方.frm”和“函数求平方.vbp”。5、生成“函数求平方.exe”可执行文件，保存在自己文件夹下。,
