VB第3章第4节.pptVIP

第3章 VB.NET面向对象程序设计——第4节 如何利用过程过函数来优化代码设计 问题：在文本框内输出5行“*”号，每行分别是5个，30个，40个，70个，27个。 方法一、依次逐行输出 方法二、用嵌套for循环实现 方法三、用过程或函数实现 主程序（事件过程）与子程序（过程或函数）： Sub 事件过程名…… …… …… Call 过程名（实在参数1，……，实在参数n） …… …… End Sub Sub 过程名（形式参数1，……，形式参数n） …… …… End Sub 3.4 过程和自定义函数 对于重复或需要共享的代码，可将其设计成子程序（过程或自定义函数）。需要时可直接调用。 过程与自定义函数的区别： 过程可以带参数，也可以不带参数，且不返回值。 函数通常都要求带参数，并有返回值。 3.4.1 Sub过程的定义与调用 一、Sub过程的定义 过程的语法格式： [Private|Public] [Static] Sub 过程名（参数表） 局部变量和常量声明 语句 ： ： [Exit Sub] 语句 ： ： EndSub 说明： （1）过程名的命名规则与变量名的命名规则相同。 （2）过程必须以Sub开始，EndSub结束。 Public：全局（公有）过程； Private：局部（私有）过程。 Static：静态过程（每次调用该过程后，都将保留其中的局部变量值）。 （3）过程中说明的变量和常量仅在该过程中有效。 （4）Exit Sub表示退出过程，返回到调用过程的主程序的下一个语句继续执行。 （5）参数表中若有多个参数，各个参数之间用逗号分隔。若过程无参数，括号不能省略。 （6）括号中的参数称为形式参数，它是过程与主程序（调用过程的程序）之间进行数据传递的介质。 形式参数格式： ByVal | ByRef 参数名 [()] [As 数据类型] 形式参数的两种类型： ByVal表示该参数以传值的方式传递数据（值传递）。值传递时，参数值在过程中的变化不返回主程序。 ByRef表示以传地址的方式传递数据，即参数值在过程中的任何变化都返回主程序。 如： ByRef a() As Single, ByVal n As Integer, ByRef s As Single 参数a、s是传址方式的形式参数，其中a（带有括号）为数组；n是传值方式的形式参数。 【例3—27】编写计算阶乘的过程。 Public Sub JC(ByVal x, ByRef p) Dim K As Integer p = 1 For K = 1 To x p = p * K Next K End Sub 说明： 1、形式参数 x 接受主程序传递来的数据（计算阶乘的具体数值）； 2、p 是传址方式的形式参数，它可以将计算结果传送回主程序。 二、Sub过程的调用 调用过程语句： [Call] 过程名（[实在参数表]） 过程调用时的参数称为实在参数。实在参数的个数、类型以及前后次序必须和形参一致。 调用过程时可省略关键字Call。 实在参数可以是用逗号分隔的变量、常数、表达式等。程序运行时，将实参（过程调用时的参数）按次序一一对应形参（过程说明中的参数）。即：将实参的值传送给对应的形参，而后进行计算。 调用过程时，若实在参数为数组，则不必写数组的维数。 例：调用例3-27所写的计算阶乘的过程。 Private Sub Form1_Click…… Dim c As Long, m As Integer m = 10 Call JC(m, c) MessageBox.Show(c= c) End Sub 说明： m=10，对应形参x，即计算10阶乘； 变量c对应形参p，接受形参p传送回的计算结果。 例3-27 Private Sub Form1_Click…… Dim c As Long, m As Integer m = 10 Call JC(m, c) MessageBox.Show(c= c) End Sub Public Sub JC(ByVal x, ByRef p) Dim K As Integer p = 1 For K = 1 To x p = p * K Next K End Sub 过程定义与调用： Sub 事件过程名…… …… …… Call 过程名（实在参数1，