VBA: subscript out of range (runtime error 9)

[Aberdham]

Hi guys, I would like to use the following code to produce the result of an array using the power of 3. i.e 0, 1.7320, 3, 5.1961 with the power interval of (1/2)

I have come up with the following code but I have come across with runtime error 9 pointing me to the line a(i) = 3^I

Could someone please advise how I can modify the code to get the desired result without changing the original code?

Thank you in advance!!

 

[bobsan42]

For i = 0 to n

 

[Aberdham]

For i = 0 to n

Hi thanks for your reply. I try to chance the 3 to n. still getting the same error on the same line. any reasons why that happen?

 

[Trebor76]

What result are you expecting from the function? Is it 15522.1266488259?

 

[bobsan42]

What is the value of i when the error happens.

 

[Aberdham]

What result are you expecting from the function? Is it 15522.1266488259?

1st: 0 (3^0)
2nd: 1.7320 (3^0.5)
3rd: 3 (3^1)
4th: 5.1961 (3 ^ 1.5)
...
with the power interval of (1/2)

like this

 

[Aberdham]

What is the value of i when the error happens.

It came out to be all 0?

 

[bobsan42]

Do you have

Option base 1

at the top of you module? What's the value of Lbound(a) ?
Try this:

Redim a (0 to n)
For i =0 to n

 

[Aberdham]

Do you have

Option base 1

at the top of you module? What's the value of Lbound(a) ?
Try this:

Redim a (0 to n)
For i =0 to n

oh almost there, now I have 1(3^0) , 3(3^1) , 9, 27... etc
how can I modify this with an interval of square 1/2 instead of 1

 

[StephenCrump]

It came out to be all 0?

If you use Option Explicit, it will identify this problem:

Function PowerThree(n)

    Dim a()
    ReDim a(n)
    For i = 0 To n
        a(i) = 3 ^ i
    Nexti
  
    PowerTwelve = a

End Function