
- UID
- 8639
- 帖子
- 6898
- 精华
- 3
- 威望
- 60
- 阅读权限
- 100
- 注册时间
- 1970-1-1
|
写了个双注换四级武器的效率比较器,仅供参考
点击这里
Randomize
Dim a(2, 15) As Long, b(2, 15) As Long
For i = 1 To 15
a(1, i) = i
b(1, i) = 1
Next i
For i = 1 To Val(Text3.Text)
Number = Int(15 * Rnd + 1)
For j = 1 To 15
If a(1, j) = Number Then a(2, j) = a(2, j) + 15
If b(1, j) = Number Then b(2, j) = b(2, j) + 15
Next j
Next i
For j = 1 To 15
While a(2, j) >= 1500
a(2, j) = a(2, j) - 1500
acount = acount + 1
Wend
While b(2, j) >= 1500
b(2, j) = b(2, j) - 1500
bcount = bcount + 1
Wend
Next j
Text1.Text = acount
Text2.Text = bcount
随便看看,欢迎指正 |
|