sub skill()
dim i as double, j as double, sknum as integer, atktime as double, info() as variant, pstime as double
sknum = inputbox("要模擬的技能數", "技能數量", "16")
info = range("b2:e" & sknum + 1).value
atktime = inputbox("填寫模擬的輸出時長,單位為秒", "戰鬥時長", "600")
i = activesheet.usedrange.rows.count
range("d2:e" & i).clearcontents
for i = 0.1 to atktime step 0.1
pstime = 0.1
for j = sknum to 1 step -1 '遍歷所有技能
if info(j, 3) <= 0 then
info(j, 4) = info(j, 4) + 1 '當前技能釋放次數+1
info(j, 3) = info(j, 1) '當前技能進入cd
pstime = info(j, 2)
i = i + info(j, 2)
exit for
end if
next j
for k = 1 to sknum '所有技能冷卻減去0.1s
info(k, 3) = info(k, 3) - pstime
if info(k, 3) < 0 then
info(k, 3) = 0
end if
next k
next i
range("b2:e" & sknum + 1).value = info
end sub
對n個整數用O n 的時間進行排序
1 求得min,max 2 開闢空間 a 0,max min 1 3 if min 0 data i min else data i min 4 for i 0 to n a data i 1 5 index 0 for i 0 to max min if a i 1 data index i in...
n個小球t次跳出問題球的演算法問題
在此感謝原作者 小鎮之月光 的貢獻。有12個球,其中有1個球是次品,重量與其他球不同。現在有乙個沒有砝碼的天平,要求稱3次,將次品球挑出,並說出是輕是重。此題答案網上到處都有,在此就不作詳解了。我們現在要討論的問題是。遇到類似的題目,是否能夠找到一種通解呢?首先我們來看第一類題 有1個異常球,且已知...
java元件 開始時間的N個週期結束時間的實現
根據按月 按季 按年等,計算開始時間對應的結束時間。比如1月1號開始,週期是按月,那結束時間是什麼時候?比如1月31號開始,週期是按月,那結束時間是什麼時候?如果結束時間所在的月是2月 閏年2月 月數天數有31天,時間又如何變化?private string getperiodenddate str...