Dim M As Map
M.Initialize
For Each I1 As String In Array As String("Monday", "Tuesday", "Wednesday", "Thursday", "Friday")
For Each I2 As String In Array As String("North", "South", "East", "Middle", "Gymnasium")
For Each I3 As String In Array As String("1", "2", "3", "Hall", "5", "6")
If Rnd(1, 100) <= 70 Then 'random 70% of rooms utilized
Dim I123 As String = I1&"_"&I2&"_"&I3
Dim NumStudents As Int = Rnd(5, 35) 'random data
M.Put(I123, NumStudents)
End If
Next
Next
Next
Log(M)
'there is a 30% chance this room won't have an entry, but let's give it a go anyway
Dim I123 As String = "Monday"&"_"&"North&"_"&5
Log(M.Get(I123))
Log(M.Get("Monday_North_5"))