实验七 过程程序设计.doc

《实验七 过程程序设计.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、实验七过程程序设计一、实验目的与要求1．掌握Sub子过程和Function函数过程的定义及其调用方法；2．掌握参数按值传递和按地址传递的传递方式；3．理解变量和过程的作用域；4．掌握递归概念和使用方法。二、实验准备1．预习子过程和函数过程的定义、创建及调用方法；2．弄清形参、实参的概念及参数按值传递和按地址传递的区别；3．熟悉变量和过程的作用域；4．理解递归概念。三、实验案例【案例一】编写一个Sub过程，实现将三个数由大到小排序。分析：本题在Sub过程中引入三个参数A、B、C，在过程中对它们进行排序，执行完过

2、程后还通过A、B、C返回排序后的结果，即参数传递方式采用按地址传递。具体实现步骤如下：1．界面设计根据题目要求，需要在窗体上添加两个命令按钮和两个文本框。界面如图7-1所示。图7-1排序过程（界面设计）2．属性设置本题的属性设置见表7-1。表7-1排序过程的属性设置对象属性设定值Form1NamefrmSort3Caption案例7-1Text1NametxtInputTextText2NametxtOutputTextCommand1NamecmdFrontCaption排序前Command2Namecmd

3、BehindCaption排序后3．代码编写本题需要在通用

4、声明部分定义三个变量X、Y、Z；编写一个三个数由大到小的通用排序子过程Sort3；对两个命令按钮cmdFront、cmdBehind的Click事件进行编程。程序清单如下：DimXAsInteger,YAsInteger,ZAsInteger'定义排序过程Sort3PublicSubSort3(AAsInteger,BAsInteger,CAsInteger)DimTAsIntegerIfA

5、nT=A:A=C:C=TEndIfIfB

6、,99]之间的三个整数X=Int(100*Rnd)Y=Int(100*Rnd)Z=Int(100*Rnd)txtInput.Text=Str(X)&""&Str(Y)&""&Str(Z)'输出三个随机整数EndSub4．调试运行在主菜单运行项单击“启动”按钮，进入运行状态。单击“排序前”命令按钮，则在文本框txtInput中显示三个[0,99]之间的随机整数，然后单击“排序后”命令按钮，则在文本框txtOutput中由大到小的排序显示这三个随机整数。运行结果如图7-2所示。图7-2排序过程（运行结果）5．保存

7、以“案例7-1”为名称分别保存窗体文件和工程文件。【案例二】编写Function过程求1！+2！+…+n！的值。分析：本题可用两个Function过程即Fact过程和Mul过程。Fact过程计算每一个数的阶乘，Mul过程求n个数阶乘的累加和。在“计算”命令按钮的单击事件过程中首先调用Mul过程，在Mul过程中又调用Fact过程，这种在一个过程执行期间又调用另外一个过程称为过程的嵌套调用。具体实现步骤如下：1．界面设计根据题目要求，需要在窗体上添加一个标签和一个命令按钮。界面如图7-3所示。图7-3阶乘累加过程

8、（界面设计）2．属性设置本题的属性设置见表7-2。表7-2阶乘累加过程的属性设置对象属性设定值Form1NamefrmMulCaption案例7-2Label1NamelblMulCaptionCommand1NamecmdMulCaption计算3．代码编写本题需要编写一个Function过程Fact计算每一数的阶乘，一个Function过程Mul求n个数阶乘的累加和，对命令按钮cmdMul的Click事件进行编程。程序清单如下：FunctionMul(nAsInteger)AsDouble'求累加和Dim

9、iAsInteger,sumAsDoublesum=0Fori=1Tonsum=sum+Fact(i)'调用Fact过程，过程的嵌套调用NextiMul=sumEndFunctionFunctionFact(nAsInteger)AsDouble'求n！DimiAsInteger,fAsDoublef=1Fori=1Tonf=f*iNextiFact=fEndFunctionPrivateSubcm