Question

Кароче,я сделал 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