配列の値をプラス１したい

Question

（1,1）0を＋１して　１にしたい
（1,2）0を＋１して　１にしたい
（2,1）0を＋１して　１にしたい
（2,2）1を＋１して　２にしたい
・
・
・
1500行ぐらあります。
できますでしょうか？

Answer 1

できますでしょうか？

できます。

    dim vArr(1500,2)
    dim i as long,j as long

    For i = LBound(vArr, 1) To UBound(vArr, 1)
    
        '二次元目
        For j = LBound(vArr, 2) To UBound(vArr, 2)
        
            vArr(i, j)=vArr(i,j)+1
    
        Next j
    Next i

配列名とかは適当なんでそっちに合わせてください

Comments

[sekiguchi4301]

ありがとうございました。