[kaster]

Переменные заносим в массив. Потом просто делай классический цикл для суммы

Код:

Dim $c[10]
$c[1]=1
$c[2]=1
$c[3]=0
$c[4]=1
$c[5]=0
$c[6]=0
$c[7]=1
$c[8]=1
$c[9]=1

$index1 = 3
$index2 = 7

$s = 0
For $i = $index1 to $index2
          $s = $s + $c[$i]
Next

MsgBox(0, '', $s)