たとえばGEKIHA[21]に1が入って他が0でも構わないのであれば これはGEKIHA=21でも問題ないはずです FOR H=0 TO 21 IF GEKIHA==H THEN A[H]=A[H]+1 ELSE A[H]=0 NEXT こんなのとか