Visual Basic NET应用教程电子讲稿第五章

《Visual Basic NET应用教程电子讲稿第五章》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第5章过程本章要点：过程的概念与分类事件过程的定义与建立通用过程的定义、建立与调用函数过程的定义、建立与调用参数传递过程的嵌套调用与递归调用变量的作用域与静态变量5.1循序渐进学理论5.1.1过程的概念5.1.2Sub过程1．事件过程（1）事件过程的定义［格式］：PrivateSub对象名_事件名([<形式参数列表>])［局部变量和常量说明］执行部分EndSub（2）事件过程的建立2．通用过程（1）通用过程的定义［格式］：[Private

2、Friend

3、Public

4、Protected

5、ProtectedFriend]Sub过程名(<形式参数列表>

6、))［<局部变量和常量说明>］执行部分[ExitSub]执行部分EndSub（2）通用过程的建立（3）通用过程的调用①直接使用通用过程名调用通用过程[格式]：通用过程名([实际参数列表])②使用Call关键字调用通用过程[格式]：Call通用过程名([实际参数列表])【例5-1】编写一个实现如下功能的通用过程：要求用户输入姓名，然后输出若干行如下信息：“欢迎***同学参加VB.NET语言学习班”，输出的行数由用户决定。然后编写程序调用该过程进行验证。程序的设计界面如图5-7所示，程序运行时，在文本框中输入要显示欢迎词的次数，然后单击【显示】按钮将出现一个输入对话

7、框要求输入姓名，输入姓名后单击【OK】按钮将显示出指定次数的欢迎词，如图5-8所示。图5-7程序设计界面图5-8程序运行界面5.1.3函数过程（1）函数过程的定义[格式]：[Private

8、Friend

9、Public

10、Protected

11、ProtectedFriend]Function函数过程名[(参数列表)][As数据类型][语句块][过程名=表达式]

12、[Return表达式][ExitFunction][语句块]EndFunction（2）函数过程的调用[格式1]：变量名=函数过程名([实参列表])[格式2]：表达式运算符函数过程名([实参列表])【例5-2】

13、编写一个函数过程，该函数过程用来求任意一个整型数的各位数字的和。然后编写程序对该函数过程进行验证，验证程序的设计界面如图5-9所示。验证程序运行时在第一个文本框中输入任一个整数，然后单击【计算】按钮将计算出该整数的各位数字和并显示在第二个文本框中，如图5-10所示。图5-9程序设计界面图5-10程序运行界面5.1.4参数传递1．按值传递参数【例5-3】编写一个通用过程，该过程的作用是把两个变量的值给交换过来。然后编写程序对该通用过程的功能进行验证，验证程序的设计界面如图5-11所示。验证程序运行时输入任意两个数，如图5-12所示。然后单击【交换】按钮，将调用该通

14、用过程把交换两数，如图5-13所示。图5-11程序设计界面图5-12单击【交换】按钮前图5-13单击【交换】按钮后2．按引用传递参数【例5-4】用按引用传递参数的方式重新编写通用过程和验证程序。验证程序设计界面如图5-11所示，单击【交换】按钮前的程序运行界面如图5-12所示，单击【交换】按钮后的程序运行界面如图5-16所示。图5-16单击【交换】按钮后3．数组作为函数的参数数组也可以作为函数的参数，形参数组的一般定义形式如下：ByVal形参数组名()As类型说明符或ByRef形参数组名()As类型说明符【例5-5】编写一个通用过程用来求任意一维数组的各元素的平

15、均值并把平均值存放在最后一个元素的后面（新增加的一个元素），程序编写程序验证该通用过程。程序的设计界面如图5-19所示，程序运行时单击【产生数组】按钮将产生若干个随机数存放在一维数组中并把元素值显示在第一个文本框中，单击【求平均值】按钮将调用通用过程求得一维数组所有元素的平均值并显示在第二个文本框中，如图5-20所示。图5-19程序设计界面图5-20程序运行界面4．可选参数可选参数声明的一般格式如下：OptionalByVal

16、ByRef形参名As类型标识符=默认值【例5-6】已知在窗体上有一个名为TextBox1的文本框和一个名为Button1的命令按钮，有程

17、序代码如下，请观察程序的执行结果。[程序代码]PrivateFunctionAverage(OptionalByValaAsInteger=0,OptionalByValbAsInteger=0,OptionalByValcAsInteger=0)DimNumAsInteger=3Ifa=0ThenNum-=1:Ifb=0ThenNum-=1Ifc=0ThenNum-=1IfNum=0ThenMsgBox("没有可用数据")EndIfReturn((a+b+c)/Num)EndFunctionPrivateSubButton1_Click(……（省略参数）)Ha

18、ndlesButton1