Dim myArr()
Dim i as integer
For i = 1 to 10
redim preserve myArr(i)
myarr(i) = i
next i
for i = lbound(myArr) to uBound(myarrr)
if i = 0 then
myString = myArr(i)
else
myString = myString & ":" & myArr(i)
endif
next i
msgbox mystring
'
'or add to item in array
Dim myArr(2) as integer
myarr(0) = 1
myarr(1) = 2
myarr(2) = 3
dim i
for i = lbound(myarr) to ubound(myarr)
if i = 2 then
myarr(i) = (myArr(i) + 23)
endif
next i
msgbox myarr(2) 'should be 26
"A myth is not the succession of individual images,
but an integerated meaningful entity,
reflecting a distinct aspect of the real world."
___ Adolf Jensen
Reply With Quote
