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
Dim I123 As String = I1&"_"&I2&"_"&I3
Dim NumStudents As Int = Rnd(5, 35)
M.Put(I123, NumStudents)
End If
Next
Next
Next
Log(M)
Dim I123 As String = "Monday"&"_"&"North&"_"&5
Log(M.Get(I123))
Log(M.Get("Monday_North_5"))