单人：
Public Function GetMonsterExp(MonsterBaseExp, CharacterLv, MonsterWorldLv, GetExpMod, MonsterTypeMod) As Single
Dim SubLvMod
Dim DiffLvMod
SubLvMod = MonsterWorldLv - CharacterLv
If SubLvMod > 10 Then
SubLvMod = 10
ElseIf SubLvMod < -10 Then
SubLvMod = -10
End If
DiffLvMod = MonsterBaseExp * SubLvMod / 10
GetMonsterExp = Int((MonsterBaseExp * (1 + SubLvMod / 10)) * GetExpMod * MonsterTypeMod)
End Function
组队：
Public Function GetMonsterExpForTeam(MonsterBaseExp, CharacterLv, MonsterWorldLv, GetExpMod, MonsterTypeMod, TeamAmount, TeamLvAmount) As Single
Dim SubLvMod
Dim DiffLvMod
Dim TeamAmountMod
SubLvMod = MonsterWorldLv - CharacterLv
If SubLvMod > 10 Then
SubLvMod = 10
ElseIf SubLvMod < -10 Then
SubLvMod = -10
End If
DiffLvMod = MonsterBaseExp * SubLvMod / 10
TeamAmountMod = (1 + ((TeamAmount - 1) * 0.35) * CharacterLv / (TeamLvAmount))
GetMonsterExpForTeam = Int((MonsterBaseExp + DiffLvMod) * GetExpMod * MonsterTypeMod * TeamAmountMod)
End Function