视觉基本改变值上的值

基本上我有10个整数命名为：视觉基本改变值上的值

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

现在我有一个计算，并且每当它返回1-10之间的一个值，那么它必须增加由1根据整数。

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

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

2013-03-16 Jaanus

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

例如：

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

2013-03-16 19:04:20 Sam

这是很好的，但有一个oneliner，让我初始化所有10个值'2'？或者我必须做'myArray（1）= 2'十次？ – Jaanus 2013-03-16 19:20:12

for i = 1 to 10 .... myArray（i）= 2 .... next i – enderland 2013-03-16 21:50:12

or ... myArray = [2,2,2,2,2,2,2,2,2,2 ]（但你必须为此使用一个变体数组） – enderland 2013-03-16 21:51:26

回答