Dim i, j, SumExp, i150 As Integer 'i=計數器j=公式 SumExp=總和
i = 1 '從1等 Do While i If Check1(0).Value = vbChecked Then '若轉職被勾選 If i > 150 Then '若i算到轉職Lv>150 j = Round(2 ^ (3.3 * Log(i) / Log(2)) + 2 ^ (4.9 * Log(i - 150) / Log(2)), 0) '轉職Lv>150最大Exp Else '否則 j = Round(2 ^ (3.3 * Log(i) / Log(2)) + 50, 0) '轉過Lv>=1最大Exp End If Else '否則 j = Round(2 ^ (3.1 * Log(i) / Log(2)) + 5, 0) '沒轉Lv>=1最大Exp End If
SumExp = SumExp + j '總和加上算出來的 i = i + 1 'i往後一位 Loop
This entry passed through the Full-Text RSS service - if this is your content and you're reading it on someone else's site, please read the FAQ at fivefilters.org/content-only/faq.php#publishers.
You are receiving this email because you subscribed to this feed at blogtrottr.com.
留言列表
留言列表
