array problems

[CarlPerkins]

Hi, I am probably stupid for asking this, but if I have an array and I want to add values into each index. Like this...

do while counter <= 200
y(counter) = whatever
counter = counter + 1
loop

But it doesn't work. Basically I want to put the answer of a math question into each of the 200 index for the array. I hope this makes sense, and it is probably obvious.

[peet]

Private Sub Command1_Click()
    Dim y(200) As Integer
    Dim counter As Integer
    Dim i As Integer
    
    'fill array
    Do While counter <= 200
        y(counter) = counter * Rnd
        counter = counter + 1
    Loop
    
    'show whats in the array
    For i = 0 To UBound(y)
        Debug.Print y(i)
    Next i
End Sub

[CarlPerkins]

I get an overflow error when I try that. There must be something I am doing wrong (or missing).

[peet]

uh.. at what line ?

[Harddisk]

Originally posted by peet

Private Sub Command1_Click()
    Dim y(200) As Integer
    Dim counter As Integer
    Dim i As Integer
    
    'fill array
    Do While counter <= 200
        y(counter) = counter * Rnd
        counter = counter + 1
    Loop
    
    'show whats in the array
    For i = 0 To UBound(y)
        Debug.Print y(i)
    Next i
End Sub

Or a similar code

Dim y(200) as integer
  Dim i as integer
 
  For i = 0 to Ubound(y)
    y(i) = i * Rnd
  Next

There, you save 2 bytes of memory.

** Posting for the sake of posting, havent posted anything for quite some time. **

[CarlPerkins]

your code doesn't cause an error, here is mine that causes the error

Do While counter <= A
Randomize
Y(counter) = Int((6 * Rnd) + 1) 'make a random number
M = M + Y(counter)
counter = counter + 1
Loop

a is equal to 200

[peet]

and are u using exact the same code as in the sample? or do u have any other calculations that might explain the overflow (div by zero or something unplecant like that )

[peet]

whats this line for

M = M + Y(counter)

and what is M ? and integer ?

[peet]

Private Sub Command1_Click()
    Dim y(200) As Integer
    Dim counter As Integer
    Dim i As Integer
    Dim M As Integer
      
 
    'fill array
    Do While counter <= 200
        Randomize Timer
        y(counter) = Int((6 * Rnd) + 1)
        counter = counter + 1
    Loop
 
    'show whats in the array
    For i = 0 To UBound(y)
        Debug.Print y(i)
    Next i
End Sub

works fine... no errors ?

u try?

[peet]

sorry forgot the M

Private Sub Command1_Click()
    Dim y(200) As Integer
    Dim counter As Integer
    Dim i As Integer
    Dim M As Integer
      
 
    'fill array
    Do While counter <= 200
        Randomize Timer
        y(counter) = Int((6 * Rnd) + 1)
        M = M + y(counter)
        counter = counter + 1
    Loop
 
    'show whats in the array
    For i = 0 To UBound(y)
        Debug.Print y(i)
    Next i
End Sub

still works without any errs

[CarlPerkins]

subscript out of range is the error i get at line

Y(counter) = Int((6 * Rnd) + 1)

[CarlPerkins]

though this is my y declaration

dim y() as integer

could that be the problem?

[CarlPerkins]

ya, your code works fine, but my other one doesn't. I don't know why, I guess i'll just keep working on it. It must be something somewhere else. Thanks!

[Harddisk]

Originally posted by CarlPerkins
though this is my y declaration

dim y() as integer

could that be the problem?

If you dimed y() means it has no array.

Do a
Dim y(200) as Integer

or a (if you've already dim y() as integer earlier in the code)
ReDim y(200) as Integer

or a (if you've already dim y() as integer earlier in the code)
ReDim Preserve y(200) as Integer

incase you already have values in y

Subscript out of range means you are accessing the index of a array which is not defined or as it speaks, out of range.

For eg:
y(200) = y(0) to y(200). y(201) is out of range.