实训10.docVIP

实训10 过程的应用 一、实训目的 1. 掌握自定义过程的定义和调用方法。 2. 掌握形参和实参的对应关系。 3. 掌握值传递和地址传递的传递方式。 4. 掌握递归概念和使用方法。 二、实训内容 实训10.1 编一个过程，实现对窗体上的图片进行移动，每当单击“移动”按钮时，随机产生一个数据，如果该数据大于0.5，则图片向右下角移动，否则向左上角移动。实现效果如图1.10.1所示。 【问题分析】 （1）要移动图片，就要改变图片的位置，即修改其Left和Top属性。向右下角移动是增加Left和Top的值，向左上角移动则是减少二者的值。 （2）产生随机数要用到函数Rnd，产生数据在0-1之间。直接使用该数据作为参数移动图片，很难实现。由于当产生随机数大于0.5时向右下角移动，即增加属性值，故可以使用+1来表示，当产生随机数小于等于0.5时向左上角移动，即减少属性值，故可以使用-1来表示。 （3）移动图片和方向有关，可用参数来控制移动方向，参数为+1时向右下角移动，而当参数为-1时向左上角移动。 （4）定义过程的语句格式为： [Static][Private|Public] Sub 过程名[(形式参数表)] 局部变量和常数定义 语句块 [Exit Sub] 语句块 End Sub （5）调用过程的语句可分为两种形式： Call 过程名[(实参表)] 或者： 过程名 [实参表] （6）本实训题目只需定义一个过程，根据参数的不同进行图片的移动，并在Command1的单击事件中调用该过程即可。 【设计步骤】 1. 界面设计 根据题目要求，设计界面。本实训界面简单，只需在窗体上放置一个Image控件和一个按钮控件，如图1.10.1所示。 2. 属性设置 属性设置如表1.10.1所示。 表1.10.1 实训10.1控件的属性设置 控件名称 Name属性 Caption属性 窗体 Form1 使用过程移动图片 Image控件 Image1 无 命令按钮控件 Command1 移动 3. 代码编写 在代码窗口，编写如下代码： 4. 调试运行 运行程序，单击“移动”按钮，观察图片移动情况。 实训10.2 编写程序完成矩阵加法运算，使得矩阵C=矩阵A+矩阵B。运行效果如图1.10.2所示。 【问题分析】 （1）该实训题目中需要输入矩阵A和B的数据，故可设计一个过程用于对矩阵元素进行输入。由于不同矩阵输入时提示信息不同，所以可选择数组和字符串提示信息作为参数。 （2）Dim b() As Integer Dim c() As Integer Dim n As Integer 声明变量保存矩阵的行数 （2）编写数组元素输入过程，代码如下： （3）编写数组输出的过程，代码如下： （4）编写两个矩阵相加的过程，代码如下： （5）编写“输入矩阵”按钮的单击事件代码。 （6）编写“矩阵相加”按钮的单击事件代码，如下： 4. 调试运行 运行程序，单击“输入矩阵”按钮，首先输入矩阵行数，再依次输入矩阵A和矩阵B的元素。单击“矩阵相加”按钮，观察运行结果。 在Call readm(a, 输入矩阵A)语句处，设置断点，运行程序至此，按F8单步执行，观察程序中过程的调用与返回。 实训10.3 汉诺塔问题：如图1.10.3所示，有三个同样大小的柱子，其中在A柱子上放有n个大小不一样的盘子，最小的盘子在最上面，向下依次增大。现在若想把A柱子上的盘子全部移动到B柱子上，可以借助C柱子移动，但是要求每次只能移动一个盘子，且在小盘子上不能放大盘子，如何编写程序实现移动过程呢？ 【问题分析】 （1）本实训的背景知识如下： 传说印度教的主神梵天创造世界时，在印度北部佛教圣地贝拿勒斯圣庙里，安放了一块黄铜板，板上插着三根针，在其中一根针上自上而下放着由大到小的64个金盘。这就是所谓的梵塔（Hanoi）。梵天要僧侣们坚持不渝地按下面规则把64个盘子移到另一根针上： ① 一次只能移一个盘子； ② 盘子只许在3根针上存放； ③ 永远不许大盘压小盘。 梵天称，当把创造世界时所安放的64个盘子全部移到另一根针上之时，就是世界毁灭之日。 假设有n个圆盘，移动次数是f(n)。显然f(1)=1,f(2)=3,f(3)=7。一般地，f(k+1)=2×f(k)+1。不难证明，f(n)=2^n-1。当n=64时，f(64)=2^64-1=18 446 744 073 709 551 615。 假如每秒钟一次，共需多长时间呢？一年大约有31 536 926秒，计算表明移完这些圆盘需要5800多亿年，比地球寿命还要长。这就是为什么梵天称，当把他创造世界时所安放的64个盘子全部移到另一根针上时，就是世界毁灭之日。 （2）解决汉诺塔的基本思想是先把n个盘子除了最下面的盘子以外的所有盘子