МАССИВ с ФИБОНАЧЧИ, Создание массива с произведением элементов Фибоначчи

[vcgcgc]

Первоначальное условие: Для заданного натурального числа n (n>=3) найти произведение первых n чисел Фибоначчи.
Нужно создать такую же программу с массивом, помогите пожалуйста
Программу без массива я смогла сделать, а с ним никак не могу разобраться((

[kuklp]

А учиться не пробовали? Здесь лодырей-студентов не любят так же, как и на Планете. Кросс:
http://www.planetaexcel.ru/forum/ind...-s-fibonachchi

[IgorGO]

а можно посмотреть программу без массива?

[vcgcgc]

Сообщение от IgorGO

а можно посмотреть программу без массива?

конечно, вот

[vcgcgc]

Сообщение от kuklp

А учиться не пробовали? Здесь лодырей-студентов не любят так же, как и на Планете. Кросс:
http://www.planetaexcel.ru/forum/ind...-s-fibonachchi

1. Этот форум создан не для критики других людей
2. Не стоит судить, если не знаете, о чем идёт речь (стереотипы)
Спасибо за внимание)

[IgorGO]

Sub ProductFrstFIBO()
  Dim ar(), N&, i&, P As Double
  N = Val(InputBox("Укажите число", "Сколько чисел Фибоначчи перемножить?", 9))
  ReDim ar(1 To N)
  ar(1) = 1: ar(2) = 1: P = 1
  For i = 3 To N
    ar(i) = ar(i - 2) + ar(i - 1): P = P * ar(i)
  Next
  MsgBox "равно  " & P & vbLf & vbLf & "сами числа: " & vbLf & Join(ar, ","), vbOKOnly, "Происзведение " & N & " первых чисел Фибоначчи"
End Sub

[vcgcgc]

Сообщение от IgorGO

Sub ProductFrstFIBO()
  Dim ar(), N&, i&, P As Double
  N = Val(InputBox("Укажите число", "Сколько чисел Фибоначчи перемножить?", 9))
  ReDim ar(1 To N)
  ar(1) = 1: ar(2) = 1: P = 1
  For i = 3 To N
    ar(i) = ar(i - 2) + ar(i - 1): P = P * ar(i)
  Next
  MsgBox "равно  " & P & vbLf & vbLf & "сами числа: " & vbLf & Join(ar, ","), vbOKOnly, "Происзведение " & N & " первых чисел Фибоначчи"
End Sub

Огромное спасибо за помощь, да ещё и так быстро
Но ещё один вопрос, а эта программа не может так же массивом выводить все произведения?

[IgorGO]

произведение элементов массива - это одно число
одно число выводится массивом как одно число, Вы знаете какой-то альтернативный способ? научите...

[IgorGO]

есть мысль))

Sub ProductFrstFIBO()
  Dim ar(), N&, i&, P As Double, s$
  N = Val(InputBox("Укажите число", "Сколько чисел Фибоначчи перемножить?", 9))
  ReDim ar(1 To N)
  ar(1) = 1: ar(2) = 1: P = 1: s = ""
  For i = 1 To N
    If i > 2 Then ar(i) = ar(i - 2) + ar(i - 1): P = P * ar(i)
    s = s & "чФ" & i & " = " & ar(i) & ",  произв. = " & P & vbLf
  Next
  MsgBox "равно  " & P & vbLf & vbLf & "получено так: " & vbLf & s, vbOKOnly, "Происзведение " & N & " первых чисел Фибоначчи"
End Sub

[vcgcgc]

Сообщение от IgorGO

произведение элементов массива - это одно число
одно число выводится массивом как одно число, Вы знаете какой-то альтернативный способ? научите...

Нет, нет, простите(
Я просто думала, что программа может выводить произведения для каждого элемента до n. Например, n=6, тогда для 3 произведение = 2, для 4 = 6, для 5 = 30, для 6 = 240.
Возможно я ошибаюсь в понимании данной задачи.
Ещё раз огромное спасибо за вашу помощь)