Microsoft Small Basic

Program Listing:
Embed this in your website
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
Copyright (c) Microsoft Corporation. All rights reserved.