复习与回顾,2、For语句一定可以改成Do语句，反之不一定成立。,1、For语句与Do语句的区别,（1）for语句：事先可知循环次数，通过次数控制循环；循环体先执行后判断次数完否，至少执行一次循环;控制循环次数的循环变量的值会按步长自动变化，循环会自动结束。,（2）do 语句：事先可不知循环次数，通过条件控制循环；条件先判断后执行循环体，循环次数可以为0次；控制循环条件的主要变量的值必须在循环体中改变，并要最终能终止循环。,（1）、有以下程序段： For i = 1 To 3 For j = 1 To 5 s = i*j Next j Next i 则语句s = i*j 的执行次数是 ( ) （A）15（B）16（C）17（D）18,3、程序阅读,A,（2）、有如下程序段： x = 1 y = 0 Do While x10 x = x * 2 y = y +1 Loop 该程序段运行后，y的值为( ) （A）0（B）2（C）3（D）4,3、程序阅读,D,4.4 过程与函数,一、概念： VB应用程序是按模块化的方式组成的，每个模块完成一部分任务。,模块分成两种：1. 过程 2. 函数 过程：强调的是动作，比如显示一个对话框 MsgBox “你输入东西了，哈哈“ 函数：强调的是值的计算，如求算术平方根，sqr(5),过程：将程序划分为一个个较小的逻辑单元， 每个逻辑单元构成一个过程。过程中的代码 被重复的调用。过程分为：事件处理过程和 通用过程。,二、过程的分类：,$4.4 过程与函数,模块分成两种：1. 过程 2. 函数 过程：强调的是动作，比如显示一个对话框 MsgBox “你输入东西了，哈哈“ 函数：强调的是值的计算，如求算术平方根，sqr(5),二、过程的分类：,（1）事件处理过程：当对象X上发生某个事件Y时，需要执行一段程序来响应这个事件。 常用格式 sub 对象名_事件的标准名（参数表） 语句块 end sub,如：Private Sub Command1_Click() a = InputBox(“请输入你的姓名:“) MsgBox (a + “我知道你了，哈哈!“) End Sub,事件处理过程名,（2）通用过程（教材省略，不作要求）,三、事件处理过程,1、例：文本框1，内容改变事件 Private Sub Text1_Change() MsgBox “你输入东西了，哈哈“ End Sub,2、事件处理过程名=对象名_事件的标准名 对象名:文本框(Text)、命令按钮（Command）、标签(label) 事件的标准名 单击(click)、双击(Dblclick)、改变内容(change)、键盘按下（KeyPress) (参见教材P84表4.4.1),4、事件处理过程以sub开始，并且以end sub结束,四、过程的调用,Private Sub Command1_Click() Dim a As String Label2.Caption = (“请输入你的姓名:“) a = Text2.Text If a “ Then Picture1.Print (a + “我知道你了，哈哈!“) End If End Sub Private Sub Label1_Dblclick() Picture1.Print “你双击我了，哈哈!“ Command1_Click End Sub Private Sub Text1_Change() Picture1.Print “你输入东西了，哈哈“ Command1_Click End Sub 演示“函数与过程调用工程中的过程调用(Form1)”,五、函数,函数也是一个程序模块，不同之处是函数执行完后会 返回一个函数值。函数的函数值是通过函数名返回的,五、函数,（一）函数分为标准函数和自定义函数,1、标准函数：,（1）、常用数学函数： Abs(x) Int(x) Sqr(x) Exp(x) Log(x) Sin(x) Cos(x) Tan(x),（2）、类型转化函数和字符串函数： Asc(x) asc(“A”)=65 Chr(x) chr(48)=“0” Val(x) val(“170”)=170 Str(x) str(170)=“170” Len(x) len(“asd”)=3 Mid(x,n,k) 如:mid(“abcde”,3,2)=“cd” Fix(x) fix(2.56)=2,2、自定义函数,自定义函数的格式： Function 函数名（参数表）AS 类型名 语句块 （其中至少有一个语句是: 函数名=表达式） End Function,例: Function ou(a) As String If a Mod 2 = 0 Then ou = “该数为偶数！“ Else ou = “该数为奇数！“ End If End Function,这样表达式的结果才能作为函数的返回值,Private Sub Text1_Change() Dim a As Integer a = Val(Text1.Text) Label2.Caption = ou(a) End Sub Function ou(a) As String If a Mod 2 = 0 Then ou = “该数为偶数！“ Else ou = “该数为奇数！“ End If End Function,（二）、调用(使用)函数 应用实例:判断一个数是否为偶数,演示“函数与过程调用工程中的函数调用(Form2)”,应用实例：在文本框text1和text2中输入两个整数，单击按钮 对象command1，在标签label1中显示这两个数的较大数。,Founction big(x,y) as integer if xy then big=x else big=y End if End Founction private sub command1_click() dim a1,a2 as integer a1=val(text1.text) a2=val(text1.text) Label1.caption=,Big(a1,a2),分析：自定义函数big用于求两个整数中的 较大数,由于输入的整数是a1,a2。即调用函数 时对应的参数为a1,a2，而不是x,y， 因此答案为Big(a1,a2),六、模块化程序设计的方法,1、把判断A是否为偶数这样的一个过程从整个程序中分离出来，成为一个独立的模块，(模块可以是函数，也可以是过程)，这是一种模块化程序设计方法。 2、VB应用程序是按模块化的方式组成的，一个程序模块是程序的一部分，每个模块负责解决整个应用问题的一部分。 3、使用这样的方法的好处是： 、使程序设计结构简单化 、过程规模小，容易调用和维护 、过程可以被反复使用，从而避免了重复编码,七、总结:,Vb是一种基于模块化的设计方法，函数与过程是模块的具体实现。 调用过程相当于执行了一条语句（过程名），强调的是动作，它不返回值。调用函数时，强调的是表达式中值的计算，返回值由函数名带回。,Public Function f(m, n) As Integer Do While m n Do While m n m = m - n Loop Do While n m n = n - m Loop Loop f = m End Function,Private Sub Command1_Click() Text1.Text = Str(f(24, 18) End Sub,运行结果:6 函数f的功能是:求最大公约数,演示: “函数与过程调用工程中的函数调用阅读练习(Form3,Form4)”,