VB60基础教程 之第9章 过 程.ppt

第9章过程9.1函数过程的定义和调用函数过程的定义PrivateSubCommand1_Click()
s=“VB程序设计教程5.0版”
PrintMyReplace(s,"5.0","6.0")
EndSub子过程的调用是一句独立的调用语句，有两种形式：
Call子过程名[(实参列表)]
子过程名[实参列表]
用Call关键字时，若有实参，则实参必须用圆括号括起，无实参圆括号省略
注意：若实参要获得子过程的返回值，则实参只能是与形参同类型的简单变量、数组名、自定义类型变量，不能是常量、表达式，也不能是控件名。
将函数过程改为子过程，只需将函数过程的返回结果作为子过程的形参。例：编一子函数过程，求任意一维数组中各元素之积，主调程序调用该函数，分别求：

PrivateFunctionsum(nAsInteger)
StaticjAsInteger
j=j+n
sum=j
EndFunction递归过程在自身定义的内部调用自己。
例6.12编fac(n)=n!的递归函数

Functionfac(nAsInteger)AsInteger
Ifn=1Then
fac=1
Else
fac=n*fac(n-1)
EndIf
EndFunction