说明: [ Static][Private[Public]与子过程相同。 >As类型:指定返回函数值的类型。 Exit Function在函数过程中终止过程的运行。 > End Function函数结束标志
说明： ➢ [Static][Private][Public]: 与子过程相同。 ➢ As 类型: 指定返回函数值的类型。 ➢ Exit Function: 在函数过程中终止过程的运行。 ➢ End Function: 函数结束标志
例8-3判定成绩函数 Private Sub Command1_ click Text2 Text s Afirm(Val(Text1. Text)) End sub Private Function Afirm(cj As Integer) As String Select Case ci Case s≤60 Afirm="不及格 Case 60 To 69 Firn="及格" Case 70 To 79 Afirm="中 Case 80 To 89 Afirm="良" Case s >E 90 Afirm="优" 三 nd select 三 nd Function
➢ 例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 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