21 lines
524 B
Plaintext
21 lines
524 B
Plaintext
'Dimension a numerical and string array
|
|
Dim myArray(5)
|
|
Dim myStringArray$(5)
|
|
|
|
'Fill both arrays with the appropriate data
|
|
For i = 0 To 5
|
|
myArray(i) = i
|
|
myStringArray$(i) = "String - " + str$(i)
|
|
Next i
|
|
|
|
'Set two variables with the names of each array
|
|
numArrayName$ = "myArray"
|
|
strArrayName$ = "myStringArray"
|
|
|
|
'Retrieve the array data by evaluating a string
|
|
'that correlates to the array
|
|
For i = 0 To 5
|
|
Print Eval$(numArrayName$ + "(" + str$(i) + ")")
|
|
Print Eval$(strArrayName$ + "$(" + str$(i) + ")")
|
|
Next i
|