Microsoft Small Basic

Program Listing: DPS526
GraphicsWindow.Width=480
GraphicsWindow.Height=480
linii=10
coloane=10
dimensiune=40
For l = 1 To linii
For c = 1 To coloane
GraphicsWindow.BrushColor=GraphicsWindow.GetRandomColor()
boxes[l][c]=Shapes.AddRectangle(dimensiune,dimensiune)
Shapes.Move(boxes[l][c],c*dimensiune,l*dimensiune)
EndFor
EndFor