How to assign values into an array ?

[jotis1]

Dear Friends/Erel,

Please see my program. It is simple.

Sub Globals
Dim NumberArray(0)
End Sub

Sub App_Start
NumberArray() = Array()
For i=0 To 4 Step+1
NumberArray(i) =i
Msgbox( NumberArray(i))
Next
End Sub



Here I can not assign values to my NumberArray.
Expected Output is 0 1 2 3 4 in Message box

Error description is
Index was outside the bounds of the array. Continue ?


I understood that the error in
NumberArray() = Array()

But I am not sure.

I just edited it with coma as like
NumberArray() = Array(,,,,,,,)

Now it is working.

So My question How can I give the size of the Array with out comma.
Can you help me for better program? :sign0085::sign0085:

rgds
Jotis

 

[Erel]

What error did it show?
How did you declare the array?

 

[jotis1]

Hi Erel,

I changed my question with another program. Please see my question again
rgds
Jotis:sign0085::sign0085:

 

[Erel]

You are using Array incorrectly.
Here are some examples:

NumberArray() = Array(0,1,2,3,4)

[COLOR=Navy]Sub Globals
      Dim NumberArray(5)    'Set the size in the declaration.
End Sub

Sub App_Start
         For i=0 To 4 Step+1
    [B][COLOR=Red]NumberArray(i) =i[/COLOR][/B]
    Msgbox( NumberArray(i)) 
    Next
End Sub
[/COLOR]

[COLOR=Navy]Sub Globals
      Dim NumberArray(0)    
End Sub

Sub App_Start
    [B][COLOR=Red]Dim NumberArray(5) 'Redim the array[/COLOR][/B]
    For i=0 To 4 Step+1
    [B][COLOR=Red]NumberArray(i) =i[/COLOR][/B]
    Msgbox( NumberArray(i)) 
    Next
End Sub
[/COLOR]

 

[jotis1]

Hi Erel,

Thank you very very much.

Regards
Jotis