Anonymous user
Array length: Difference between revisions
no edit summary
No edit summary |
|||
Line 2,392:
>>> </lang>
=={{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>
=={{header|Quackery}}==
| |||