Visual Basic

<br />
for i = 1 to 36<br />
temp = (rnd * 3) + 1<br />
if temp = 1 then<br />
collection.add "grass", i<br />
elseif temp = 2 then<br />
collection.add "wall", i<br />
else<br />
collection.add "enemy", i<br />
end if<br />
next i<br />

' create the array

Dim grid(35) As String

' populate the array:

Dim rnd As New Random()
For i = 0 to 35
	temp = rnd.Next(1, 4)
	If temp = 1 Then
		grid(i) = "grass"
	ElseIf temp = 2 Then
		grid(i) = "wall"
	Else
		grid(i) = "enemy"
	End If
Next i

' change an item

grid(12) = "grass"