VB第12课时：函数与过程PPT课件

1、2021/7/241Visual Basic 程序过程与函数程序过程与函数第第12课时课时学习重点：学习重点： 1、 理解程序设计的特点理解程序设计的特点 2、掌握程序过程的概念、掌握程序过程的概念 3、自定义函数自定义函数的设计与运用的设计与运用2021/7/242 1、 理解理解VB程序设计的特点程序设计的特点VB应用程序设计：应用程序设计：程序模块化；程序模块化；按模块化的方式组成。按模块化的方式组成。将一个大的程序按功能分割成相对独立、功能单一的小模块；将一个大的程序按功能分割成相对独立、功能单一的小模块；请问该VB程序中有几个模块：P77背各个模块中的事件名是何义？5？2021/7/

2、243请问该VB程序中有几个模块：12021/7/244 注释注释程序中的注释是以程序中的注释是以单引号（单引号（）开头的一串文字，对语句进行解释说明作用，开头的一串文字，对语句进行解释说明作用，注意：注释的作用仅仅是为了增加程序的可读性，注释对程序执行的效果没有任何影响。注意：注释的作用仅仅是为了增加程序的可读性，注释对程序执行的效果没有任何影响。2021/7/2452、过程和函数、过程和函数 程序模块分为程序模块分为过程过程和和函数函数两种，两种， 过程过程强调的是强调的是动作动作，而，而函数函数强调的是强调的是值的计算值的计算。过程分两类：过程分两类： 事件处理过程事件处理过程 通用过程

3、通用过程事件处理过程格式：事件处理过程格式： 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 Sub2021/7/246事件处理过程格式：事件处理过程格式： Sub 对象名对象名_事

4、件的标准名事件的标准名（）（） 变量定义和常量定义变量定义和常量定义 语句块语句块 End Sub 注：事件处理过程名（参考注：事件处理过程名（参考P77表）表）2021/7/247常用的标准函数常用的标准函数 P 52Val (x): 字符串（文本）类型转换成数值类型字符串（文本）类型转换成数值类型Str (x)：数值类型转换成字符串（文本）类型：数值类型转换成字符串（文本）类型Abs (x): 求求x的绝对值的绝对值Int (x): 求不大于求不大于x的最大整数的最大整数Fix (x): 求去掉求去掉x的小数部分（保留整数部分）的小数部分（保留整数部分） Sqr(x): 求求x的算术平方根

5、的算术平方根Asc (x): 把字符把字符 x 转换成转换成ASCII码码Chr (x)：把：把ASCII码转换成字符码转换成字符 （这两个函数跟（这两个函数跟ASCII码表码表有关）有关）Asc (“A”) = 65Chr (65) = “A”Abs (-23)=23Fix (3.124)= 3Int (4.3)= 4Int (- 4.3)= -5Sqr(16) =4Asc (“a”) =97Rnd( ):在在【0，1）的区间的随机数）的区间的随机数Len(x):求字符串求字符串x的长度的长度 (字节数字节数)Mid (X,n,k):取字符串取字符串x中第中第n个字符个字符开始开始，长度为，

6、长度为k的子串的子串因为因为VB程序内部已定义好了，就可直接拿来运算程序内部已定义好了，就可直接拿来运算那我们能不能自己也定义个函数也直接调用呢？那我们能不能自己也定义个函数也直接调用呢？2021/7/2482、 函数函数 函数函数强调的是强调的是值的计算值的计算。通常称为自定义函数模块。通常称为自定义函数模块。 函数格式：函数格式： Function 函数名（参数表）函数名（参数表）As 类型名类型名 变量定义和常量定义语句变量定义和常量定义语句 语句块语句块 函数名函数名=表达式表达式 End Function 注：注：在语句块中，至少要有一个形如在语句块中，至少要有一个形如 函数名函数名

7、=表达式表达式 的语句的语句 用Function开头定义开头定义 2021/7/249Abs (x):求求x的绝对值的绝对值Function 函数名（参数表）函数名（参数表）As 类型名类型名 变量定义和常量定义语句变量定义和常量定义语句 语句块语句块 函数名函数名=表达式表达式 End FunctionFunction 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(

8、Text1.Text)Text2.Text = Str(Abs(x)End Sub自定义函数自定义函数 2021/7/2410Abs (x):那我能不能自己定义一个那我能不能自己定义一个 “求求x的平方的平方”的函数呢？的函数呢？求求x的绝对值的绝对值Function 函数名（参数表）函数名（参数表）As 类型名类型名 变量定义和常量定义语句变量定义和常量定义语句 语句块语句块 函数名函数名=表达式表达式 End FunctionFunction Abs (x As Double) As Double If x 0 And x 0 Then Abs = x Else Abs = 0 End I

9、fEnd FunctionPrivate Sub Command1_Click()Dim x As Doublea = Val(Text1.Text)Text2.Text = Str(Abs(x)End Sub2021/7/2411Abs (x): 求求x的绝对值的绝对值那我能不能自己定义一个那我能不能自己定义一个 “求求x的平方的平方”的函数呢？的函数呢？函数格式：函数格式： Function 函数名（参数表）函数名（参数表）As 类型名类型名 变量定义和常量定义语句变量定义和常量定义语句 语句块语句块 函数名函数名=表达式表达式 End FunctionFunction Pf ( )x a

10、s doubleAS DoublePf = x2End FunctionPf (x):求求x的平方值的平方值求求Pf (5)=252021/7/2412例例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.62021/7/2413实战练习实战练习18：用函数语句来求平方值：用函数语句来求平方值

11、1、运行、运行VB,建立一个标准建立一个标准EXE工程。工程。2、在窗体中添加相应的控件对象，界面如（图一）所示；、在窗体中添加相应的控件对象，界面如（图一）所示；3、并通过编辑代码语句，实现以下效果：、并通过编辑代码语句，实现以下效果： 当在文本框当在文本框Text1中输入任何数，中输入任何数， 点击点击“计算计算”按钮后，按钮后， 该输入数值的平方的结果就会显示在标签该输入数值的平方的结果就会显示在标签Label1上上.4、保存窗体和工程到自己文件夹中，、保存窗体和工程到自己文件夹中， 文件名分别为文件名分别为“函数求平方函数求平方.frm”和和“函数求平方函数求平方.vbp”。5、生成、

12、生成“函数求平方函数求平方.exe”可执行文件，保存在自己文件夹下。可执行文件，保存在自己文件夹下。2021/7/2414Function 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中输入任何数，中输入任何数， 点击点击“计