课件：Mainfo教学十过程自定义函数.ppt

2.3 函数的定义 用户自定义函数是用Function…End Function结构来定义的，其语法如下： Function name([ [ByVal] parameter As datatype] [,[ByVal] parameter As datatype…]) As return_type statement_list End Funtion name是函数名 paremeter是该函数中的参数名 datatype是变量类型，例如整数型 return_type是标准变量类型而数组和自定义类型不被承认 statement_list是将要执行的函数中用到的语句列表 2.3 函数的定义 例 自定义函数CubeRoot,它返回一个数值的立方根（这个数字的1/3次方） Declare Function CubeRoot(ByVal x As Float) As Float Declare Sub Main Sub Main Dim f_result As Float f_result=CubeRoot(23) Note Str$(f_result) End Sub Function CubeRoot(ByVal x As Float) As Float CubeRoot=x^0.33333333333 End Function 2.5 退出用户函数 如果要退出一个Function…End Function结构，可以采用Exit Function语句.Exit Function语句可以使MapBasic退出当前函数，因此，Exit Function语句只能在Function…End Function语句中定义使用 函数是可以嵌套使用的。一个函数中可以调用另一个函数，同样，被调用的函数还可以继续调用其它函数，一个单独的Exit Function语句只能退出当前的函数 THANK YOU SUCCESS * * 可编辑 可编辑 可编辑 第十章 过程、自定义函数 第一节 过程 第二节 自定义函数 1.1 过程 MapBasic的过程包含主过程和子过程，是MapBasic程序结构中的一个不可缺少的部分。一个典型的MapBasic程序由许多过程组成，每个过程包含一组完成某一特定任务的语句。 1.2 过程定义 创建一个过程的一般形式为 Sub 过程名[（ByVal）] 参数名 As 变量类型[,…])] 语句列表 End Sub Sub…End Sub 结构定义了一个子过程（通常简称为过程）.过程一旦定义,程序的其他部分可以使用Call语句调用该过程. 1.2 过程定义 一个过程可以不带参数也可以带多个参数.当一个过程带有参数时,它的每一个参数必须是唯一的.当参数不止一个时,参数必须用逗号隔开. 形式参数 在缺省情况下,MapBasic的参数为形式参数,当过程带有形式参数时,调用者必须将该形式参数指定一个特定变量.在调用过程中,如果过程执行中改变了形式参数的值,则指定变量的值随之改变,即过程可以通过形式参数把值随之改变,即过程可以通过形式参数把值返回给调用者,从而允许调用者检查子过程返回的值. 1.2 过程定义 值参数 MapBasic还提供另一类型的参数，即通常所称的值参数。在过程定义中 ，值参数名称前有ByVal 关键词，当一个参数是以值参数方式传递时，子过程通过调用者的表达式得到一个表达式值的复制品，这样，调用者可以使用任何表达式，而不必像形式参数那样必须使用变量来传递参数的值，而且子过程可以改变值参数的值但不会对调用者提供的变量或表达式造成任何影响，即子过程不能通过值参数把一个值返回给调用者，这是值参数和形式参数最大的区别。 1.2 过程定义 数组参数 子过程的参数还可以是一个数组，要声明子过程的参数为数组，在Sub…End Sub结构的参数名后面加上一对圆括号即可，如下的例子定义了一个带有整数数组作为形式参数的子过程： Sub Example（X As Integer） … … End Sub 当调用一个带数组参数的子过程时,调用者只需在调用语句中指定传递值的数组名即可,而不必在后面加上圆括号,如调用上例的Example子过程,可以使用以下语句: Call Example(items) 其中，items是为形式参数指定特定值的数组，从中可见items后面不用带圆括号. 1.2 过程定义 以上说明了如何定义一个过程，但在定义一个过程之前必须先对付过程进行声明，这需要使用Dec