《实验七 过程程序设计参考模板.doc》由会员分享，可在线阅读，更多相关《实验七 过程程序设计参考模板.doc（7页珍藏版）》请在三一文库上搜索。
1、实验七 过程程序设计一、实验目的与要求1掌握Sub子过程和Function函数过程的定义及其调用方法；2掌握参数按值传递和按地址传递的传递方式；3理解变量和过程的作用域；4掌握递归概念和使用方法。二、实验准备1预习子过程和函数过程的定义、创建及调用方法；2弄清形参、实参的概念及参数按值传递和按地址传递的区别；3熟悉变量和过程的作用域；4理解递归概念。三、实验案例【案例一】编写一个Sub过程，实现将三个数由大到小排序。分析：本题在Sub过程中引入三个参数A、B、C，在过程中对它们进行排序，执行完过程后还通过A、B、C返回排序后的结果，即参数传递方式采用按地址传递。具体实现步骤如下：1界面设计根据
2、题目要求，需要在窗体上添加两个命令按钮和两个文本框。界面如图7-1所示。图7-1排序过程（界面设计）2属性设置本题的属性设置见表7-1。表7-1排序过程的属性设置对象属性设定值Form1NamefrmSort3Caption案例7-1Text1NametxtInputTextText2NametxtOutputText1 / 7Command1NamecmdFrontCaption排序前Command2NamecmdBehindCaption排序后3代码编写本题需要在通用|声明部分定义三个变量X、Y、Z；编写一个三个数由大到小的通用排序子过程Sort3；对两个命令按钮cmdFront、cmdB
3、ehind的Click事件进行编程。程序清单如下：Dim X As Integer, Y As Integer, Z As Integer定义排序过程Sort3Public Sub Sort3(A As Integer, B As Integer, C As Integer) Dim T As Integer If A B Then T = A: A = B: B = T End If If A C Then T = A: A = C: C = T End If If B 0 s1length = Len(s1) 返回字符串s1的字符数 s1 = Left(s1,position-1) & R
4、ight(s1, s1length - (position + s2length) + 1) 当字符串s1中包含有子串s2时删除子串s2 position = InStr(s1, s2) 继续查找s2在新产生的s1中下一个可能出现的起始位置 LoopEnd SubPrivate Sub cmdDelete_Click()Dim s1 As Strings1 = txtSource.Text 在文本框中输入字符串s1Call DeleteStr(s1, txtChildren.Text) 在文本框txtChildren中输入字符串s2，调用DeleteStr过程进行删除字符串s2txtResul
5、t.Text = s1 用文本框txtResult显示删除字符串s2后的结果字符串End Sub4调试运行在主菜单运行项单击“启动”按钮，进入运行状态。在文本框中输入原字符串S1“abcd1234abcef”和子字符串S2“abc”然后单击“在S1串中删除S2串”命令按钮，则在结果字符串文本框中显示“d1234ef”。运行结果如图7-6所示。图7-6删除子串过程（运行结果）5保存以“案例7-3”为名称分别保存窗体文件和工程文件。四、问题与思考1.【案例1】中的参数传递能否采用按值传递方式？为什么？2.【案例2】中试输一个n的值为多大会产生数据溢出？五、课外实验1编写一个计算乘幂的Function过程，用来计算x的y次幂，其中y0。单击窗体时调用该过程在窗体上输出61、62、63、64、65、66的值。