vba - Visual basic根据值改变值

Question

基本上我有10个整数命名：

i1,i2,i3,i4,i5,i6,i7,i8,i9,i10

现在我有一个计算，每当它返回一个介于 1-10 之间的值时，它必须将相应的整数增加 1。

我知道我可以用 case 或 10 ifs 来做到这一点，但是有没有办法生成变量名，我想改变什么。伪代码：

value = x // a value is being returned
(i+x)++;  // increase the according variable by one

Answer 1

简单地创建一个数组并根据返回的值在给定索引处增加数组中的值不是更容易吗？

例如：

Dim myArray(1 To 10) As Integer
value = x                          'a value is being returned
myArray(x) = myArray(x) + 1        'increment value in array