[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)

[Не флужу]

Мда, надобыло сразу массив задавать...
kaster, Спасибо
Решена проблема- то

[Creat0R]

Переменные заносим в массив »

Необязательно:

Код:

$1 = 1
$2 = 1
$3 = 0
$4 = 1
$5 = 0
$6 = 0
$7 = 1
$8 = 1
$9 = 1

$index1 = 3
$index2 = 7

$iCalc = 0

For $i = $index1 To $index2
    $iCalc += Eval($i)
Next

MsgBox(64, 'Title', $iCalc)

А тему можно назвать также как и звучит задача: «Как подсчитать сумму нескольких переменных».

[Не флужу]

Creat0R, Хороший код. Спасибо