uses console

'indexbase 1 by default
dim fruit(2) as string = {"apple", "orange"}

dim length as integer = ubound(fruit) - lbound(fruit) + 1
print "The length of the fruit array is ", length

waitkey