VisualBasic程序设计案例教程 第7章 过程

《VisualBasic程序设计案例教程 第7章 过程》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第7过程理解通用过程和函数过程的工作原理和区别熟练掌握参数传递的两种方式：按地址传递和按值传递熟练掌握多窗体与SubMain过程教学重点与难点：对通用过程和函数过程的运用；理解掌握按地址传递和按值传递第七章过程7.1.1案例实现过程【案例说明】1.利用Sub过程，要求程序运行后结果如图7.1所示。图7.1运行结果1．2.利用Sub过，在弹出的窗口中输入y确定后，则在相应的窗体中输入内容，当输入n的时候，程序停止运行。程序运行后如图7.2所示。图7.2运行结果7.1通用过程和函数过程应用案例7.1.1案例实现过程【案例说明】1.利用Sub过程，要求程序运行后结果如图7.1所示。图7.1运行结果1

2、．2.利用Sub过，在弹出的窗口中输入y确定后，则在相应的窗体中输入内容，当输入n的时候，程序停止运行。程序运行后如图7.2所示。图7.2运行结果7.1通用过程和函数过程应用案例3．输入三个数，求出它们的最大数，要求将求两个数中的大数编写成Function过程，过程名为Max。4．从键盘上输入一个字符，判断它是不是英文字母。分析：英语字母有大小写之分，只要将该字符转换为大写，再判断是不是处于“A”-“Z”范围内。若是，则是英文字母，否则不是。【技术要点】该应用程序设计步骤如下。1．运用【案例说明】中的第一部份：利用Sub过程，要求程序运行后结果如图7.1所示。（1）本例直接采用Print直接在

3、窗体上输出结果。程序代码如下：PrivateSubForm_Load()ShowCallmysub1(30)Callmysub2Callmysub2Callmysub27.1通用过程和函数过程应用案例Callmysub1(30)EndSubPrivateSubmysub1(n)PrintString(n,"*")EndSubPrivateSubmysub2()Print"*";Tab(30);"*"EndSub在上述事件过程Form_Load()中，通过Call语句分别调用两个Sub过程。在Sub过程Mysubl(n)中，n为参数(也称形参)，当调用过程通过CallMysubl(30)(30称

4、为实参)调用时，就把30传给n。这样，调用后输出30个“*’’号。过程Mysub2()不带参数，其功能是输出左右两边的“*”号。我们可以用图7.3来表示调用过程。7.1通用过程和函数过程应用案例图7.3调用过程7.1通用过程和函数过程应用案例2．运用【案例说明】中的第二部份：利用Sub过，在弹出的窗口中输入y确定后，则在相应的窗体中输入内容，当输入n的时候，程序停止运行。程序运行后如图7.2所示。（1）本例直接采用Print直接在窗体上输出结果。程序代码如下：PrivateSubForm_load()ShowPrint"VB的基本特点是："Callsub_contPrint"面向对象的可视化编

5、程"Callsub_contPrint"事件驱动的编程机制"Callsub_contPrint"结构化的设计语言"EndSubPrivateSubsub_cont()DimrespAsStringDoWhileTrue7.1通用过程和函数过程应用案例resp=InputBox("是否继续(y/n)?")IfUCase(resp)="N"ThenEndIfUCase(resp)="Y"ThenExitDoLoopEndSub在事件过程Form_Load中，有3处调用Sub过程Sub_Cont。每次调用Sub_Cont时，都会提问“是否继续（y/n）?”。若用户回答“n”，结束程序运行；若用户回答

6、“y”，退出Do…Loop循环而返回调用语句（Call）的条件下一条哦语句继续执行。Ucase是转换为大写的函数，不管用户回答的是大写（如“Y”）还是小写（“y”），经过Ucase处理后都变成大写（“Y”）。3．运用【案例说明】中的第三部份：输入三个数，求出它们的最大数，要求将求两个数中的大数编写成Function过程，过程名为Max。本例采用InputBox函数输入三个数，判断出最大数后采用Print直接输出在窗体上程序代码如下：PrivateSubForm_load()DimaAsSingle,bAsSingle,cAsSingleDimsAsSingle7.1通用过程和函数过程应用案例S

7、howa=Val(InputBox("输入第一个数"))b=Val(InputBox("输入第二个数"))c=Val(InputBox("输入第三个数"))s=max(a,b)Print"三个数中的最大数是:";max(s,c)EndSubFunctionmax(m,n)AsSingleIfm>nThenmax=mElsemax=nEndIfEndFunction4．运用【案例说明】中的第四部份：