VB程序设计课件以及作业9章节幻灯片.pptVIP

* 5.变量的作用域 局部变量 模块级变量 全局变量 6. 变量的生存期 动态变量 静态变量 * Dim X As Integer, Y As Integer, Z As Integer 定义排序过程Sort3 Public Sub Sort3(A As Integer, B As Integer, C As Integer) Dim T As Integer If A B Then T = A: A = B: B = T If A C Then T = A: A = C: C = T If B C Then T = B: B = C: C = T End Sub 单击Command1按钮产生并显示三个随机数 Private Sub Command1_Click() Randomize X= Int(100 * Rnd) Y = Int(100 * Rnd) Z = Int(100 * Rnd) * Text1.Text = Str(X) Str(Y) Str(Z) Text2.Text = End Sub 单击Command2按钮调用Sort3过程进行排序， 并显示排序结果 Private Sub Command2_Click() Sort3 X, Y, Z Text2.Text = Str(X) Str(Y) Str(Z) End Sub * 9.3 过程的嵌套 在一个过程执行期间又调用另一个过程，称为过程的嵌套调用。 调用过程 子过程S1 子过程S2 ┇ 调用S1 ┇ ┇ 调用S2 ┇ ┇ * 【例9-13】用Function过程求1!+2!+3!+…+20! Private Sub Command1_Click() Dim n As Integer n = Val(InputBox(n=)) Print Sigma(n) 调用Sigma过程 End Sub Function Sigma(n As Integer) As Double Dim i As Integer, sum As Double sum = 0 For i = 1 To n sum = sum + Fact(i) 调用Fact过程 Next i Sigma = sum End Function * Function Fact(n As Integer) As Double Dim i As Integer, f As Double f = 1 For i = 1 To n f = f * i Next i Fact = f End Function * 9.4 参数的传递 调用过程与被调用过程之间的一种数据通讯方法。 数据的传递可以是单向的，也可以是双向的。 9.4.1 形参和实参 形参: 出现在Sub或Function语句中。 实参: 出现在调用程序中。 例如，定义如下一个过程: Sub SubTest(n As Integer,Sum As Single) … End Sub 调用语句: Call SubTest( a , s) 形参 实参 * 说明: ? 在传递参数时，形参表与实参表中对应参数个数、类型、位置顺序必须一一对应。 ? 形参表中的参数可以是: 除固定长度字符串之外的合法变量名、数组名() ? 实参表中的参数可以是: 常量、变量、表达式、 数组名() ? 形参与实参的结合有两种方式: 按值传递和按地址传递。 * 9.4.2 按值传递和按地址传递 1. 按值传递 实参把其值传递给形参而不传递实参的地址。 数据的传递是单向的。 (1) 当实参为常量或表达式时，数据传递总是单向的。 例如: Call SubTest(10, 1+2) Sub SubTest( n As Integer,Sum As Single) * (2) 实参是变量时，要实现按值传递需要在形参之前通过关键字ByVal来实现。