Кароче,я сделал 2 списка с рабочим кодомА вот с 3им проблема,выходит ошибкаЭто в экселе макрос вижуал бэйсик.В двух списках записаны числа, указывающие первый член и знаменатель геометрической прогрессии. Получить в третьем списке 10 первых членов геометрической прогрессии.Private Sub CommandButton4_Click()Dim a As SingleDim b As Single, m As Single, i As Integera = (ListBox1.Text)b = (ListBox2.Text)m = aListBox3.AddItem Str(a), 0For i = 1 To 9a= mm = a* b^ i - 1ListBox3.AddItem Str(m), iNext iEnd Sub
Кароче,я сделал 2 списка с рабочим кодомА вот с 3им проблема,выходит ошибкаЭто в экселе макрос вижуал бэйсик.В двух списках записаны числа, указывающие первый член и знаменатель геометрической прогрессии. Получить в третьем списке 10 первых членов геометрической прогрессии.Private Sub CommandButton4_Click()Dim a As SingleDim b As Single, m As Single, i As Integera = (ListBox1.Text)b = (ListBox2.Text)m = aListBox3.AddItem Str(a), 0For i = 1 To 9a= mm = a* b^ i - 1ListBox3.AddItem Str(m), iNext iEnd Sub
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Проблема в вашем коде заключается в неправильной формуле для расчета следующего члена геометрической прогрессии. Вот исправленный код:
Private Sub CommandButton4_Click()
a = Val(ListBox1.Text)Dim a As Single
Dim b As Single
Dim m As Single
Dim i As Integer
b = Val(ListBox2.Text)
m = a
ListBox3.Clear
For i = 1 To 10
m = m * b
ListBox3.AddItem Str(m)
Next i
End Sub
Этот код должен корректно добавить 10 первых членов геометрической прогрессии в третий список. Убедитесь, что значения в первом и втором списках корректно сконвертированы в числа при помощи функции Val.