Function test(a As Integer)'构造函数名字为test参数为a且为int型
If a >= 90 Then
Debug.Print "优秀"
test = "优秀" '赋值到单元格，跨表依然适用
ElseIf a >= 60 Then
Debug.Print "及格"
test = "及格"
Else
Debug.Print "不及格"
test = "不及格"
End If
End Function