9 lines
225 B
Text
9 lines
225 B
Text
|
' FB 1.05.0 Win64
|
||
|
|
|
||
|
|
Dim fruit(1) As String = {"apple", "orange"}
|
||
|
|
Dim length As Integer = UBound(fruit) - LBound(fruit) + 1
|
||
|
|
Print "The length of the fruit array is"; length
|
||
|
|
Print
|
||
|
|
Print "Press any key to quit the program"
|
||
|
|
Sleep
|