Visual Basic.NET程序设计教程 陈语林 p06

《Visual Basic.NET程序设计教程 陈语林 p06》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第六章过程VisualBasic.NET应用程序是由过程组成的。在设计应用程序时，除了定义常量和变量外，全部工作就是编写过程。在VisualBasic.NET中，通过过程分为两类，即子程序过程和函数过程，前者叫做Sub过程，后者叫做Function过程。6.1Sub过程6.1.1建立Sub过程⒈定义Sub过程通用Sub过程的结构与前面多次见过的事件过程的结构类似。一般格式如下：[Private][Public]Sub过程名[（参数表列）]语句块[ExitSub][语句块][Return]EndSub在S

2、ub和EndSub之间是描述过程操作的语句块，称为“过程体”或“子程序体”。Sub过程不能嵌套。也就是说，在Sub过程内，不能定义Sub过程或Function过程；不能用GoTo语句进入或退出一个Sub过程，只能通过调用执行Sub过程，而且可以嵌套调用。过程可以有参数，也可以不带任何参数。没有参数的过程为无参过程。对于无参过程，调用时只写过程名（包括括号）即可。⒉建立Sub过程通用过程不属于任何一个事件过程，因此不能用事件过程定义。通用过程可以在窗体、模块、类或结构中建立。如果在窗体中建立通用过程，则可

3、双击窗体进入代码窗口，在“类名”框中选择窗体名称，例如“Form1”，在“方法名称”框中选择“（Declarations）”，然后直接在窗口内键入过程名字，并按回车键。例如，键入“SubTryout()”，按回车键后，窗口内显示：SubTryout()EndSub此时即可在两行之间键入过程代码。6.1.2调用Sub过程Sub过程的调用有两种方式，一种是把过程的名字放在一个Call语句中，一种是把过程名作为一个语句来使用。⒈用Call语句调用Sub过程格式：Call过程名[（实际参数）]用Call语句调用

4、一个过程时，如果过程本身没有参数，则“实际参数”可以省略，但括号不能省略；如果过程本身带有参数，则应给出相应的实际参数，并把参数放在括号中。⒉把过程名作为一个语句来使用在调用Sub过程时，如果省略关键字Call，就成为调用Sub过程的第二种方式。与第一种方式相比，它只有一点不同，即去掉了关键字Call，例如：Tryout(a,b)【例6-1】编写一个计算矩形面积的Sub过程，然后调用该过程计算矩形面积。SubRecarea(ByValRlenAsSingle,ByValRwidAsSingle)DimA

5、reaAsSingleArea=Rlen*RwidDebug.WriteLine("TotalAreais"&Str(Area))EndSubPrivateSubForm1_load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadDimA,BAsSingleA=InputBox("Whatisthelength?")A=Val(A)B=InputBox("Whatisthewidth?")B=Val(B)Rec

6、area(A,B)EndSubSubRecarea(ByValRlenAsSingle,ByValRwidAsSingle,ByRefAreaAsSingle)Area=Rlen*RwidEndSubPrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadDimA,B,CAsSingleA=InputBox("Whatisthelength?")A=Val(A)B=InputBo

7、x("Whatisthewidth?")B=Val(B)Recarea(A,B,C)Debug.WriteLine("TotalAreais"&Str(C))EndSub6.2Function过程6.2.1建立Function过程Function过程定义的格式如下：[Private][Public]Function过程名[（参数表列）][As类型][语句块][过程名=表达式][ExitFunction][语句块][Return]EndFunction调用Sub过程相当于执行一个语句，不直接返回值；而调用

8、Function过程要返回一个值，因此可以像内部函数一样在表达式中使用。由Function过程返回的值放在上述格式中的“表达式”中，并通过“过程名=表达式”把它的值赋给“过程名”。为了能使一个Function过程完成所指定的操作，通常要在过程体中为“过程名”赋值。例如：FunctionBinarySearch(Lower,UpperAsInteger)AsBoolean……IfLower=UpperThenBinarySearch=True