自己VB基础教程第5章.pptVIP

第5章 过 程 5.1 过程的定义与调用 5.2 变量的作用域 5.1 过程的定义与调用 在VB中是用过程来实现程序模块的。将一个程序分成若干个相对独立的过程，每个过程可实现单一的功能。由于各个模块的层次分明，因此也便于程序的阅读。VB除了可以使用前面已介绍的事件过程外，还可以使用Sub过程（子程序）和 Function过程（函数）。 【例5.1】在窗体上添加两个命令按钮。 说明： 程序中的第3个模块编写了两个单击事件都需要使用的一段代码，该模块叫做子程序（Sub）过程。子程序过程不与任何特定的事件相联系，而是被其他的过程来调用。调用子程序过程相当于执行该过程的程序代码（执行后返回到主调过程，并继续执行调用处下面的语句）。 [Private|Public][Static]Sub 子程序名 ([形参列表]) 语句组1 [Exit Sub] [语句组2] End Sub 关键字Private和Public中最多只能选其一。使用Private，表示该过程是私有的局部过程，只能被该过程所在的窗体或标准模块中的其他过程所调用。使用Public，表示该过程是公共的全局过程，可被应用程序中的任何窗体或任何标准模块中的过程所调用。VB默认所有标准模块中的子程序是Public。关键字Static的作用在5.2节中介绍。 第一种形式：Call 子程序名[(实参列表)] 第二种形式：子程序名[实参列表] 【例5.2】按值和按地址传递参数示例。根据下图所示的窗体设计界面。? 程序代码： 说明： VB除了用加括弧的方式区分按值或按址传递参数外，还可以在定义过程时，在相应的形参前加关键字ByVal或ByRef表示。按址传递是默认方式 Public Sub swap(x As String,y As String) t$ = x x = y y = t$ End Sub ?Private Sub Command1_Click() a$ = Text1.Text b$ = Text2.Text Call swap(a$, b$) Text1.Text = a$ Text2.Text = b$ End Sub ?Private Sub Command2_Click() Form2.Show Form1.Hide End Sub ?Private Sub Command1_Click() a$ = Text1.Text b$ = Text2.Text c$ = Text3.Text d$ = a$ If Val(d$) Val(b$) Then Call swap(d$, b$) If Val(d$) Val(c$) Then Call swap(d$, c$) Text4.Text = d$ End Sub ? Private Sub Command2_Click() Form1.Show Form2.Hide End Sub 说明： 在标准模块的声明段中用关键字Public定义的子程序为全局级子程序，这种子程序可被应用程序中的任何模块所调用。本例中Form1和Form2窗体就分别调用了全局级子程序swap，完成相同的交换功能； Private Sub Command1_Click() Text2.Text = sum(Val(Text1.Text)) Label2.Caption = “总和是” End Sub Private Sub Command2_Click() n% = Val(Text1.Text) Text2.Text = sum(n%) / n% Label2.Caption = “平均值是” End Sub Private Function sum(n As Integer) For i = 1 To n s = s + I Next I sum = s End Function 说明： 本例用到过程的另一种形式：函数过程。在解决实际问题时，如果没有现成的函数可用时，我们可以自定义函数过程。函数过程同Sub过程一样也是由一段独立的代码组成，可以被某个过程多次调用 Private Sub Command1_Click() Dim m As Integer, jsum As Single For m = 1 To 20 jsum = jsum + jch(m) Next m Text1.Text=”1！+ 2！+ 3！+ … + 20！=” jsum End Sub 说明： 变量