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

[vcgcgc]

Сообщение от 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

сейчас

Сообщение от 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

Огромное спасибо, даже не знаю как вас благодарить! Очень признательна за помощь и потраченное время)

[IgorGO]

не стоит благодарностей, мне это не составило труда, потому что все числа Фибоначчи я помню на память

[kuklp]

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

1. Этот форум создан не для критики других людей

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

[vcgcgc]

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

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

Обходите стороной такие форумы, если не знаете для чего они созданы и не способны помогать людям. Также ещё раз посоветую не делать выводы по 1 сообщению на форуме.

[vcgcgc]

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

не стоит благодарностей, мне это не составило труда, потому что все числа Фибоначчи я помню на память

а не знаете как можно создать такой же массив, но только чтобы он выводил все данные в ячейках экселя?