Funkce ve Visual Basic v Excelu (vyřešeno)

[Unholy]

může mi někdo prosím pomoci s úkolem do školy? možná to tu trochu nepatří, ale potřebuju napsat fci která počítá geometrické řady o vzorci " s=1+q+q^2+q^3+...+q^n-1 " s pomocí cyklu FOR.. Cpou se do toho samo ty kvocienty "q" a člen "n"...

napadlo mě něco jako:

Kód: Vybrat vše

Function soucet_s(q As Double, n As Double) As Double
Dim i As Double
For i = 0 To n - 1
soucet_s = q ^ i
Next i
End Function

jen právě nevím jak tam dostat ten cyklus ať to opakuje dokud není to n-1..
prosím pomoc, děkuju

[Luboš]

Ve Visual Basic for Application (např. v Excelu) by to mohlo být např.:

Function soucet_s(q As Double, n As Double) As Double
Dim i As Double
i = 0
Do Until (i = n - 1)
soucet = q ^ i
i = i + 1
Loop
End Function

Vyzkoušej, zda je to ono.

[orlik]

ja myslim ze staci tento kod se zminovanym for .. next

s = soucet_s(5, 3)


Function soucet_s(q As Double, n As Integer) As Double
Dim i As Integer
For i = 0 To n - 1
soucet_s = soucet_s + q ^ i
Next i
End Function

[Unholy]

Děkuju za pomoc, řešení zaslané orlikem se zadá být v pořádku :) Navíc sem to potřeboval řešit tím cyklem FOR :) Jste machři :))