Тема: Массивы
Показать сообщение отдельно
Старый 18.02.2009, 18:24   #5
HolyDel
 
Регистрация: 26.09.2006
Сообщений: 6,035
Написано 1,474 полезных сообщений
(для 2,707 пользователей)
Ответ: Массивы

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
(Offline)
 
Ответить с цитированием