Yoko

всё равно пишет
Line 416 :Runtime error

Leo wrote:Размерность массива не та. Изменяй

Code: Select all

Dim Lumb[475]

на

Code: Select all

Dim Lumb[360]

Code: Select all

    for i = 1 to 475

на

Code: Select all

    for i = 1 to 360

спасибо огромное добрый человек

начинает рубить проходит несколько деревьев и только потом пишет линия 416 ерор , непойму что там может быть нетак ...

sub main()
var i
Dim Lumb[475]

Lumb[1] = "3294 2636 1251 0"
Lumb[2] = "3294 2628 1254 0"
Lumb[3] = "3230 2629 1252 5"
Lumb[4] = "3291 2632 1245 5"
Lumb[5] = "3230 2629 1244 5 ...