Кароче,я сделал 2 списка с рабочим кодом

а вот с 3им проблема,выходит ошибка

это в экселе макрос вижуал бэйсик

.в двух списках записаны числа, указывающие первый член и знаменатель прогрессии. получить в третьем списке 10 первых членов прогрессии.

private sub commandbutton4_click()

dim a as single

dim b as single, m as single, i as integer

a = (listbox1.text)

b = (listbox2.text)

m = a

listbox3.additem str(a), 0

for i = 1 to 9

a= m

m = a* b^ i - 1

listbox3.additem str(m), i

next i

end sub

DendiYT    3   27.06.2019 17:53    2