第07章VB子过程与函数.ppt

第七章子过程和函数VB模块VB文件的内容窗体模块文件*.frm标准模块文件*.bas类模块文件*.cls7.1子过程和函数7.2子过程通用过程事件过程7.3函数退出子过程和函数子过程和函数的参数数组作为参数示例函数的返回值函数示例1函数示例27.4子过程和函数的作用域7.5高级用法使用可选参数【例】修改查找姓名的子程序，增加查找起始位置和查找方向。DimstuNames()AsString

'按下【正向查找】按钮
PrivateSubCommand1_Click()
IftxtPos=""then
CallFind(txtName,stuNames) '从第1个元素向后查
Else
CallFind(txtName,stuNames,CInt(txtPos)) '从指定元素向后查
EndIf
EndSub

'按下【反向查找】按钮
PrivateSubCommand2_Click()
IftxtPos=""then
CallFind(txtName,stuNames,,False) '从第1个元素向前查
Else
CallFind(txtName,stuNames,CInt(txtPos),False) '从指定元素向前查
EndIf
EndSub子过程定义如下：
SubFind(oneAsString,all()AsString,OptionalstartAsInteger=0,OptionaldirectionAsBoolean=True)
DimiAsInteger,minAsInteger,maxAsInteger
min=LBound(all)
max=Ubound(all)
Ifstart>maxorstart<minThen
MsgBox"指定的起始位置超出范围!"
ExitSub
EndIf
Ifdirectionthen '向后查
Fori=startTomax
Ifone=all(i)Then
MsgBox"找到啦"
ExitSub
EndIf
Next使用不定数量的参数【例】编写计算任意个数字总和的Sum函数
PrivateSubcmdSum()
PrintSum(1,3,5,7,9) '计算5个数的总和
PrintSum(32,128,256) '计算3个数的总和
EndSub

FunctionSum(ParamArrayintNums())AsInteger
Dimx,ResultAsInteger
ForEachxInintNums
Result=Result+x
Nextx
Sum=Result
EndFunction7.6VB内部函数数值处理数值格式化处理字符串处理基本字符串操作基本字符串操作基本字符串操作字符串格式处理基本字符串操作基本字符串操作日期操作