程序设计参数传递

VisualBasic.Net程序设计华中农业大学理学院计算机系章程华中农业大学理学院计算机系参数传递及作用域1参数传递2变量的作用域3变量的生存周期华中农业大学理学院计算机系1参数传递

Subsum()…..

EndSubPrivateSubButton1_Click()Dimf1%,f2%

Sum(f1,1,10)EndSubByRefTotal%,ByValvStart%,ByValvEnd%华中农业大学理学院计算机系2数组参数的传递当参数是数组时，一般通过传址方式进行传递。参数形式：

形参：数组名()AS类型实参：数组名()华中农业大学理学院计算机系例17-1函数tim,求某一维数组中各元素之积Functiontim(a()Asvariant)AsLongDimt#，i%t=1Fori=Lbound(a)ToUbound(a) t=t*a(i)Nextitim=tEndFunction调用：SubCommand1_Click()Dima()={4,5.3,2,1}Textbox1.text="a的各元素积为“&tim(a)EndSub2数组参数的传递华中农业大学理学院计算机系3变量、过程的作用域作用域:变量、过程可被访问的范围。它随变量、过程所处的位置不同而变化。华中农业大学理学院计算机系3.1变量的作用域(1)块范围在某块内声明的变量只能在该块内使用。(2)过程范围在某过程内声明的变量只能在该过程内部使用.全局变量在过程外部定义，可以被该模块的所有过程调用。华中农业大学理学院计算机系(3)模块范围包括VB.NET中的模块、类和结构。可以通过将声明语句放在模块、类或结构中的任一过程或块的外部来声明该级别的元素。(4)命名空间范围

Friend或Public声明模块级变量，则该变量可用于整个命名空间内的所有过程。3.1变量的作用域华中农业大学理学院计算机系在不同级声明相同的变量名,系统按局部、窗体/模块、全局次序访问

PublicTempAsinteger SubForm_Load（）

DimTempAsInteger Temp=10 Form1.Temp=20 Textbox1.text=Form1.Temp&vbcrlf&TempEndSub3.1变量的作用域华中农业大学理学院计算机系3.2过程的作用域(1)窗体/模块级

加Private关键字的过程，只能被本窗体或模块中的其它过程调用。PrivateSubMyRndSub(…)

EndSub华中农业大学理学院计算机系3.2过程的作用域(2)全局级

加Public关键字的过程，可供该应用程序的所有窗体和所有标准模块中的过程调用。

PublicSubMyRndSub(…)

EndSub华中农业大学理学院计算机系Dim声明：每次调用过程时给变量分配存贮单元并初始化变量。

PrivateFunctionsum(nAsInteger)DimjAsInteger

j=j+nsum=jEndFunction4动态变量华中农业大学理学院计算机系例17-4SubForm_Click()Dimi%Fori=1To5 textbox1.text=sum(i) NextiEndSub4动态变量的内存分配Functionsum(nAsInteger)

DimjAsInteger j=j+nsum=jEndFunction华中农业大学理学院计算机系5静态变量Static声明：

每次调用过程，变量保持上一次调用过程后的值。

Static变量名[AS类型]StaticFunction函数过程名([参数列表])StaticSub子过程名[(参数列表)]华中农业大学理学院计算机系例17-4SubForm_Click()Dimi%Fori=1To5 textbox1.text=sum(i) NextiEndSub5静态变量的内存分配Functionsum(nAsInteger)

StaticjAsInteger j=j+nsum=jEndFunction华中农业大学理学院计算机系例17-5

比较Dim和Static两者的区别例17-6

记录并显示某按钮的点击次数5静态变量华中农业大学理学院计算机系应用举例例17-6

编一函数，统计字符串中汉字的个数。若利用Asc函数求其码值为小于0（以补码表示），而西文字符的最高位为0，Asc函数求其码值为大于0华