Picking a random word from a series of words

Sub Globals
      
   Dim words As List ' this list will hold your words

End Sub

Sub Activity_Create(FirstTime As Boolean)

   words.Initialize ' Initializes an empty list ' Here we initialize the list as empty
   
words.Addall (Array As String ("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")) 'we add an array with 7 words to the list)

   Dim a As Int ' this variable will hold a random value

   a=Rnd (0,words.Size-1) ' between 0 and the size of the list (number of elements on the list)
   
       Dim test As String ' Let's create a variable to test
   
   test=words.Get(a) ' test will pick a string from the list based on the random number generated.

End Sub

label1.Initialize("")
label1.Text = words

label1.Initialize("")
label1.Text = test   'This is the random string selected from the list