内容提要
1、在类模块SubjectGrade里,定义三个变量:
Public SubjectName As String '//科目名称Public GradeName As String '//等级名称Public MinimumScore As Single '//等级分下限
2、在myModule里,addGrades、AddGrade过程,把科目名称、等级名称、等级分数添加到集合:
3、在myModule里,自定义函数getGrade,根据科目名称、分数,得出相应等级;函数IsCollectionEmpty,判断集合是否为空:
Function getGrade(ByVal subject As String, ByVal score As Single) As String
Dim grade As SubjectGrade
Dim result As String
If IsCollectionEmpty(collGrade) Then
Call addGrades
End If
result = "未知"
For Each grade In collGrade
If grade.SubjectName = subject And score >= grade.MinimumScore Then
result = grade.GradeName
Exit For
End If
Next
getGrade = result
End Function
Private Function IsCollectionEmpty(col As Collection) As Boolean
On Error Resume Next
Dim obj As Object
Set obj = col(1)
If Err.Number <> 0 Then
IsCollectionEmpty = True
Else
IsCollectionEmpty = False
End If
On Error GoTo 0
End Function
联系客服