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

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

рассмотрим выражение x< 5. оно истинно для всех ответов рассмотрим выражение x< 3. оно истинно для 1, 2 и ложно для 3, 4 рассмотрим первую импликацию: две истины истину, значит для ответов 1,2 вторую импликацию (после или) можно не рассматривать, поскольку первая часть истинна.для вариантов 3,4 рассмотрим вторую импликацию.выражения x< 2 и x< 1 для вариантов 3,4 ложь. импликация, где оба аргумента ложь, истинна. получается, что для ответов 3,4 истинна вторая импликация, а значит значение первой несущественно (для оператора или).отсюда следует, что выражение "((x  <   5)→(x  <   3))  или  ((x  <   2)→(x  <   1))" истинно при всех перечисленных значениях х: 1, 2, 3, 4