[hasherfrog]

Код:

dim array(), bAgain, i
i = 0
bAgain = true
Do 
  val = Inputbox("Введите a("&i&")")
  if val = Empty or val = Null or val = "" or IsNumeric(val) = false then
    bAgain = false
  else
    MsgBox ("val:" & val & vbcrlf & "type: " & typename(val))
    Redim Preserve array(i+1)
    array(i)=eval(val)
    i=i+1
  end if
Loop While ( bAgain )

Можно так, хотя можно и оптимизировать (либо наоборот, усложнить: делать проверку на мусорный код с повторным вводом)

[mrcnn]

hasherfrog
Спасибо

[mrcnn]

С:

Код:

k=5;
for (i=0;i<k;i++){
if (i==2)
k=10;
cout << i <<"\n";
}

VBS:

Код:

k=5
For i=1 To k
if i=2 then k=10 
msgbox i
Next

в VBS ущербная конструкция цикла For. Автора языка за такое издевательство над for следовало бы линчевать

[hasherfrog]

Ну зато много других циклов :] Да не, нормальный язык, просто привычки требует. А про то, что нельзя менять переменную, на которую завязан цикл, это и в обычном бейсике _с_самого_начала_ было, не только в vbS (дело же в этом? я правильно понял?).

[mrcnn]

А про то, что нельзя менять переменную, на которую завязан цикл, это и в обычном бейсике _с_самого_начала_ было, не только в vbS (дело же в этом? я правильно понял?).

Обычный бейсик я плохо знаю. Это плохо, что нельзя изменять переменную на которую завязан цикл. Кроме этого условия вроде бы нельзя вставить. Если будет стоять выбор между VBS и JS, я предпочту JS, хотя бы потому что там цикл for нормальный, а не обрезанный по самые гланды

Взять допустим сортировку Шелла

Код:

void shellsort(int v[], int n)
   {
       int gap, i, j, temp;

       for (gap = n/2; gap > 0; gap /= 2)
           for (i = gap; i < n; i++)
               for (j=i-gap; j>=0 && v[j]>v[j+gap]; j-=gap) {
                   temp = v[j];								 
                   v[j] = v[j+gap];
                   v[j+gap] = temp;
               }
   }

я не знаю, как это можно переписать на VBS используя только for.