实验七 过程程序设计

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-1text1nametxtinputtexttext2nametxtoutputtextcommand1namecmdfrontcaption排序前command2namecmdbehindcaption排序后3代码编写本题需要在通用|声明部分定义三个变量x、y、z；编写一个三个数由大到小的通用排序子过程sort3；对两个命令按钮cmdfront、cmdbehind

3、的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) & right(

4、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过程进行删除字符串s2txtresult.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的值为多大会产生数据溢出？五