Почему этот скрипт так нестабилен?

Question

[Nejtron]

Добрый вечер, весь день писал скрипт для нахождения слагаемых какой-то суммы, представленных натуральной степенью двойки (11 = 2**3 + 2 ** 1 + 2 ** 0). В каких-то случаях он нормально отрабатывает и выдаёт желаемую строку, а в каких-то виснет после приёма желаемой суммы.

скрипт

sum = inputbox("Введите желаемую сумму (до 1000):")
conv = array(512,256,128,64,32,16,8,4,2,1)
list = array()

number = 0
while sum <> 0
	for each item in conv
		if item <= sum then
			sum = sum - item
			redim preserve list(number)
			list(number) = item
			number = number + 1
		end if
	next
wend

str = ""

for each item in list
	str = str & " " & item
next

msgbox str

Расскажите недопрограммисту, что не так?

Comments

[Nejtron]

А в каком порядке он может обходить массив?

VBS тяжело даётся мне, избалованному Python-ом, я ведь пытался почти построчно перенести код, а VBS массивы в кач-ве аргумента функции не ест.

Я всегда тестирую принтами, т. е. мессаджбоксами код.

Зря вы думаете, что это первый раз, написано же: весь день писал скрипт, под конец нервы сдали (когда я про рабочую функцию print спрашивал), отдохнул часик, всё по-другому сделал. В первой версии я удалял из conv по 1 элементу.

[wisgest]

Извиняюсь, удалил своё замечание, не увидев ответа на него.

А в каком порядке он может обходить массив?

Кто его знает, может в порядке присваивания значений элементам (хотя на самом деле, думаю, в VBS это не так, но мало ли какие сюрпризы возможны).

VBS массивы в кач-ве аргумента функции не ест.

Я видел ваш вопрос. По-моему вы ошибаетесь.

[Nejtron]

VBS массивы в кач-ве аргумента функции не ест.

По-моему вы ошибаетесь.

Ошибаюсь, перегрелся

Могли бы вы посоветовать какие-нибудь учебные материалы по VBS, если есть на памяти?

Answer 1

[wisgest]

Если бы вместо строки
while sum <> 0
было бы более строгое условие
while sum > 0
то зависания не было бы (но не уверен, что ответ всегда был бы правильным), а так sum может стать отрицательной из-за того, что сразу после ввода она является строкой и, вероятно, в условии
if item <= sum then
сравниваются строки, а не числа. Чтобы этого не происходило сразу явно преобразуйте введённое значение к целочисленному типу:

sum = CInt( InputBox("Введите желаемую сумму (до ...):") )

Но в целом можно попроще

sum = CInt(InputBox("Введите желаемую сумму (до ...):"))
conv = 1
str = ""
while conv <= sum
	if sum and conv then str = conv & " " & str
	conv = conv * 2
wend
MsgBox Trim(str)