VB资源包第7章过程.pptxVIP

第七章过程

;7.1过程概述;7.2Sub过程;事件过程的命名规则如下：

（1）控件事件的过程名是由控件的名字（Name属性）、下划线和事件名组合构成。例如，cmdPlay_Click过程名。

（2）窗体事件的过程名由“Form”、下划线和事件名组合构成。例如:Form_Click过程名。

（3）MDI窗体的事件过程名有“MDIForm”、下划线和事件名组合构成。例如MDIForm_Load.;控件事件的格式：

PrivateSub控件名_事件名（[虚参表]）

[语句组]

EndSub

窗体事件的格式：

PrivateSubForm_事件名（[虚参表]）

[语句组]

EndSub;2．通用过程

通用过程是指必须由其他过程显式调用的代码块，通用过程由用户创建。

通用过程可以被其他过程调用，可以提高代码的利用率。

通用过程又分为子过程和函数过程。;结构形式:

事件过程的过程名由控件（对象）名和事件名连接而成

用户自定义子过程的名字是一个任意的合法标识符。;[Static][Public|Private]Sub子过程名

[(形式参数列表)]

局部变量或常数定义

语句

[ExitSub]

语句

EndSub;说明：;例：定义一无形式参数子过程。;PrivateSubtriangle(StrAsString,nAsInteger)

‘定义子过程，形参为Str,n

DimIAsInteger,jAsInteger

ForI=1Ton

Forj=1ToI

PrintStr;

Nextj

Print

NextI

EndSub;格式一：Call子过程名[（实际参数表）];例：调用Sub子过程。;例：编写一计算矩形面积的Sub过程，然

后调用该过程。;PrivateSubForm_Click()

DimA,B

A=InputBox(“请输入矩形的长”)

B=InputBox(“请输入矩形的宽”)

RecareaA,B

‘调用Recarea过程，实参为A,B

EndSub;7.3Function过程;1.函数过程的定义与调用;说明：;7）形参形式如下：;2.函数过程的调用;FunctionFact(kAsInteger)AsLong‘k的阶乘

DimiAsInteger

Fact=1

Fori=1Tok

Fact=Fact*i

Nexti

EndFunction;例：通过调用函数Passed,判断在

Text1文本框中输入的一个分数

(百分制)是否为合格成绩，其结

果显示在Text2文本框中。;PrivateFunctionPassed(ByValscore%)AsString

‘自定义函数Passed???形参为score，返回值为字符串

SelectCasescore

Case0To59

Passed=“不及格”‘调用结果值赋给自定义函数名

Case60To100

Passed=“及格”‘调用结果值赋给自定义函数名

Caseelse

Passed=“数据错！”

‘调用结果值赋给自定义函数名

EndSelect

EndFunction;7.4参数传递;选用传值还是传地址的使用规则：;求s=1!+2!+3!

PrivateSubCommand5_Click()

sum=0

Fori=1To3

Callfanb(i,sum)

s=s+sum

Nexti

Prints

EndSub

;例：函数的传址调用。;PrivateSubCommand1_Click()

Dima%,b%

a=5:b=2

text1=f(a,b)+2*a

text2=f(a,b)+2*a

EndSub;2.数组参数的传递;例：移动数组元素：利用传址调用，把一个6个元素的数组的第4个元素移动到第6个位置，原第5、6元素依次前移一个位置。;PrivateSubCommand1_Click()

Dimj%

n=6：