Даны целые числа a и b (a < b). вывести все целые числа от a до b включительно; при этом число a должно выводиться 1 раз, число a + 1 должно выводиться 2 раза и т. д.

нужно сделать в vba inputbox

что может быть не так?

private sub commandbutton1_click()

dim a, b, i, i2 as variant

a = val(textbox1.text)

b = val(textbox2.text)

for i = 0 to b - a

for i2 = 0 to i

textbox3.text = (a + i)

end sub

Gamonga    1   19.10.2019 00:29    4