dim el(8,8) dim img(4) for i = 1 to 4 img(i)=loadimage(i+".bmp") next For a=1 To 8 For b=1 To 8 El(i,j)=rand(1,4); Next Next For a=1 To 8 For b=1 To 8 DrawImage img(El(i,j)),-12+b*64,-24+a*64 Next Next