例8-31判定成绩函数 Private Sub Command1_Click() Text2.Text Afirm(Val(Text1.Text)) End Sub (待续)
例[8-3] 判定成绩函数 Private Sub Command1_Click() Text2.Text = Afirm(Val(Text1.Text)) End Sub （待续）
(接上) Private Function Afirm(cj As Integer)As String Select Case cj Case ls 60 Afirm三"不及格" Case 60 To 69 Afirm="及格" Case 70 To 79 Afirm="中" Case 80 To 89 Afirm="良" Case Is >90 Afirm="优” End Select End Function
(接上页) Private Function Afirm(cj As Integer) As String Select Case cj Case Is < 60 Afirm = "不及格" Case 60 To 69 Afirm = "及格" Case 70 To 79 Afirm = "中" Case 80 To 89 Afirm = "良" Case Is >= 90 Afirm = "优" End Select End Function
例8-4求最大公约数函数 Private Sub Command1_Click() Dim a As Integer,b As Integer,x As Integer a Text1.Text b Text2.Text fa<b Then交换部分不要也可 x=a:a=b:b=x End If Label3.Caption="最大公约数为："& Gcd(a,b) End Sub (待续)
例[8-4] 求最大公约数函数 Private Sub Command1_Click() Dim a As Integer, b As Integer, x As Integer a = Text1.Text b = Text2.Text If a < b Then '交换部分不要也可 x = a: a = b: b = x End If Label3.Caption = "最大公约数为：" & Gcd(a, b) End Sub （待续）
(接上页) Public Function Gcd(x As Integer,y As Integer) As Integer Dim ret As Integer Do While y<>0 ret x Mod y x=y y=ret Loop Gcd=x End Function
（接上页） Public Function Gcd(x As Integer, y As Integer) As Integer Dim ret As Integer Do While y <> 0 ret = x Mod y x = y y = ret Loop Gcd = x End Function
8.2函数和过程的参数传递 >在调用过程时，过程中使用的是实际参数，它要与 定义过程时的形式参数一一对应，并以适当的形式 将实参传给形参，这便是参数传递，也是虚（形参） 实（实参）结合。 >VB中参数传递方式有两种：传值和传址。 8.2.1传值 ·传值：将实参的值传给形参后，实参与形参间便无任何 联系，即形参的变化不会对实参产生任何影响。传值时， 在形参前用ByVal来界定
8.2 函数和过程的参数传递 ➢ 在调用过程时，过程中使用的是实际参数，它要与 定义过程时的形式参数一一对应，并以适当的形式 将实参传给形参，这便是参数传递，也是虚（形参） 实（实参）结合。 ➢ VB中参数传递方式有两种：传值和传址。 8.2.1 传值 ▪ 传值：将实参的值传给形参后，实参与形参间便无任何 联系，即形参的变化不会对实参产生任何影响。传值时， 在形参前用 ByVal来界定