UC知道请大家帮我写个小程序
来源：百度知道 编辑：UC知道 时间：2024/05/12 09:28:48
小弟学业不精 以前学的都忘了~~~
下面是内容....
装备不强化数值在17以前每强化一次+5，到18每强化一次+4，19+3，20+1，21到38+2，39+4，40以后+5 现在按最高能强化12
也就是说有个装备的不强化属性是1 那么他强化1就是6 强2就是11 但如果有个装备不强化属性是18 强化就是22 而不是每次+5了
请大家帮我编下 输入现在是强化多少 现在数值是多少 就算出不强化数值的代码~~~~
Public Function LevNumber(n As Integer, Num As Integer)
Dim lNum() As Integer
Dim i, index As Integer
ReDim lNum(1) As Integer
index = 0
For i = 1 To 17
If n * 5 + i = Num Then
index = index + 1
ReDim Preserve lNum(index)
lNum(index) = i
Exit For
End If
Next i
For i = 21 To 38
If n * 2 + i = Num Then
index = index + 1
ReDim Preserve lNum(index)
lNum(index) = i
Exit For
End If
Next
If 18 + n * 4 = Num Then
index = index + 1
ReDim Preserve lNum(index)
lNum(index) = 18
End If
If 19 + n * 3 = Num Then
index = index + 1
ReDim Preserve lNum(index)
lNum(index) = 19
End If
If 20 + n * 1 = Num Then
index = index + 1
ReDim Preserve lNum(index)
lNum(index) = 20
End If
If 39 + n * 4 = Num Then
index = index + 1
ReDim Preserve lNum(index)
lNum(index) = 39
End