Array length: Difference between revisions

=={{header|QB64}}==

<lang QB64>

Dim max As Integer, Index As Integer

Randomize Timer

max = Int(Rnd * 10) + 1

Dim StringAr(1 To max) As String

For Index = 1 To max

If Int(Rnd * 6) + 1 <= 3 Then StringAr(Index) = "Apple" Else StringAr(Index) = "orange"

Next

Print UBound(Stringar)

End

</lang>