测绘程序设计基础（VC++net）第六章 过程.pptVIP

例：矩阵相加函数 6.7 应用举例 6.7.1 查找问题 例6.11　使用顺序查找法，在一组数中查找某给定的数x 算法设计： 设一组数据存放在数组a(0)---a(n)中，待查找的数据放在x 中，把x与a数组中的元素从头到尾一 一进行比较查找。用变量p表示a数组元素下标，p初值为1，使x与a(p)比较，如果x不等于a(p)，则使p=p+1，不断重复这个过程；一旦x等于a(p)则退出循环；另外，如果p大于数组长度，循环也应该停止，则可由以下语句来实现它。 For P=1 to n IF a(p)=x then Exit For Next P 下面编写一查找函数Find()，若找到x则返回下标值，找不到返回 -1 Private Function Find( a() As Single, x As Single) As Integer Dim n%,p% n=Ubound(a) For P=0 to n IF a(p)=x then Exit For Next P If pn then p=-1 return p End Function 6.7.2 插入问题 例6.13　把一个给定数插到有序数列中，插入后数列仍然有序 分析：设n+1个有序数（从小到大）存放在数组a(0)—a(n)中，要插入的数x。首先确定x插在数组中的位置p；（可由以下语句实现） ReDim Preserve a(n + 1)　　让数组长度增加1，以便存放插入的数 p=0 do while xa(p) and p=n p=p+1 loop a(p)—a(n)元素向后顺移一个位置以空出a(p)元素放入x.。（可由以下语句实现） for i=n to p step -1 a(i+1)=a(i) next i a(p)=x * * 第六章 过 程 6.1 过程概述 过程是用特定格式组织起来的一组代码，通常用来完成一个特定的功能，可以被其它过程作为一个整体来调用。 除了系统提供的内部函数过程和事件过程外，用户可自定义过程下列四种过程： ▲ “Sub” 保留字开始的为子过程 ▲“Function” 保留字开始的为函数过程 “Property”保留字开始的为属性过程 “Event”保留字开始的事件过程 在VB中，的Sub子过程分为：事件过程和通用过程 6.2.1 事件过程 （1）窗体事件的语法 Private Sub Form_事件名(参数列表) [Handles 事件列表] ＜语句组＞ End Sub （2）控件事件的语法 Private Sub 控件名_事件名(参数列表) [Handles 事件列表] ＜语句组＞ End Sub 6.2 Sub过程 说明： Handles关键字为可选参数，指示此过程是否可以处理一个或多个特定事件。 事件列表包括所有共享此过程的（事件）过程名。 语句组就是程序设计者编写的事件响应程序代码。 虽然可以自己键入事件过程的声明语句，但VB.NET可自动声明，自动声明不仅快捷，而且不会出现人为错误，是一种值得提倡的方法。具体方法如下： 在代码窗体中，从“对象下拉列表框”中选择一个对象，从“过程下拉列表框”中选择一个事件过程名，就可在代码窗口中生成一个事件过程声明模板。例如：当对象选为窗体Form1，过程选择为Click，则在代码窗口就生成如下图所示的声明模板。 子过程的定义形式如下： [Public|Private][Static] Sub 子过程名([形参表]) 局部变量或常数定义 ＜语句组＞ [Exit Sub] ＜语句组＞ End Sub 6.2.2 通用过程（Sub过程）的定义 说明： （1）子过程名：命名规则与变量名规则相同。子过程名不返回值，而是通过形参与实参的传递得到结果，调用时可返回多个值。 （2）形式参数列表：形式参数通常简称“形参”，仅表示形参的类型、个数、位置，定义时是无值的，只有在过程被调用时，虚实参结合后才获得相应的值。 （3）过程可以无形式参数，但括号不能省。 （4）参数的定义形式： [Optional] [{ByVal]|[ByRef}] [ParamArray]变量名[As类型][=默认值] 其中： -- Optional表示参数不是必须的关键字。如果使用了该选项，则（形参表）中的后续参数都必须是可选的，而且必须都使用Optional关键字声明。如果使用了ParamArray，则任何参数都不能使用Optional。 -- ByVal表示该参数按值传递；ByRef表示该参数按地址传递。ByRef是VB的默