視覺基本改變值上的值

基本上我有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

回答