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

Sn = (b1(q^n - 1))/(q - 1).

S4 = (b1(q^4 - 1))/(q - 1);

0.4(q^4 - 1)/(q - 1) = 160;

(q - 1)(q + 1)(q^2 + 1)/(q - 1) = 160/0.4;

(q + 1)(q^2 + 1) = 400;

q^3 + q + q^2 + 1 - 400 = 0;

q^3 + q^2 + q - 399 = 0;

Среди делителей свободного члена находим один из корней:

x1 = 7.

Проверка:

7^3 + 7^2 + 7 - 399 = 0;

343 + 49 + 7 - 399 = 0;

399 - 399 = 0.

Ответ: q = 7.