用vba模拟装备强化出现#VALUE!错误的疑惑

Samvy

尝试用vba模拟一般游戏的强化过程，强化成功升一级，强化失败降一级，表格中左边是当前强化等级，右边是目标强化等级，表格中的数字指的是强化等级n到强化等级m的概率，
求：强化n级到m级，平均需要多少次

思路是利用vba程序，进行10000次强化循环，记录每次到达目标等级的次数，然后取平均值
表格上传了，不知道为什么一直出现#VALUE!错误，求大大们帮忙看看！

Yalishanda30

当a=1的时候提示错误，arr(WorksheetFunction.Max(0, a - 1), a)下标越界

Yalishanda30

调试的时候可以这样：
Sub test()
Dim i
i = expectedValue(5, 6)
End Sub
然后F8观察运行结果，按一次F8运行一个语句

Samvy

Yalishanda30 发表于 2018-9-30 19:44
当a=1的时候提示错误，arr(WorksheetFunction.Max(0, a - 1), a)下标越界

为什么会这样呢

Samvy

Yalishanda30 发表于 2018-9-30 19:48
调试的时候可以这样：
Sub test()
Dim i

调试是另外开一行代码？

不知道为什么

Samvy 发表于 2018-9-30 20:44
调试是另外开一行代码？

如图

fkeih_007

Samvy 发表于 2018-9-30 20:43
为什么会这样呢

因为你arr数组的最小下标是1，不是0所以会出错