VB第12课时：函数与过程.pptVIP

Visual Basic 程序过程与函数 第12课时 学习重点： 1、 理解程序设计的特点 2、掌握程序过程的概念 3、自定义函数的设计与运用 1、 理解VB程序设计的特点 VB应用程序设计：程序模块化；按模块化的方式组成。 将一个大的程序按功能分割成相对独立、功能单一的小模块； 请问该VB程序中有几个模块： P77背 各个模块中的事件名是何义？ 5？ 请问该VB程序中有几个模块： 1 ① 注释程序中的注释是以单引号（’）开头的一串文字，对语句进行解释说明作用， 注意：注释的作用仅仅是为了增加程序的可读性，注释对程序执行的效果没有任何影响。 2、过程和函数 程序模块分为过程和函数两种， 过程强调的是动作，而函数强调的是值的计算。 过程分两类：① 事件处理过程 ② 通用过程 事件处理过程格式： Sub 对象名_事件的标准名（）  变量定义和常量定义 语句块 End Sub 注：事件处理过程名（参考P77表） Private Sub Command1_Click() Dim r, x, y As Double r = Val(Text1.Text) x = 2 * 3.14 * r y = 3.14 * r ^ 2 Text2.Text = Str(x) Text3.Text = Str(y) End Sub 事件处理过程格式： Sub 对象名_事件的标准名（）  变量定义和常量定义 语句块 End Sub 注：事件处理过程名（参考P77表） 常用的标准函数 P 52 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 类型名 变量定义和常量定义语句 语句块 函数名=表达式 End Function 注：在语句块中，至少要有一个形如 函数名=表达式 的语句 用Function开头定义 Abs (x):求x的绝对值 Function 函数名（参数表）As 类型名 变量定义和常量定义语句 语句块 函数名=表达式 End Function Function Abs (x As Double) As Double If x 0 And x 0 Then Abs = -x ElseIf x 0 Then Abs = x Else Abs = 0 End If End Function Private Sub Command1_Click() Dim x As Double a = Val(Text1.Text) Text2.Text = Str(Abs(