Построить кабана в кумире с вектора

Public class form1     private sub form1_load(byval sender as system.object, _                             byval e as system.eventargs) handles mybase.load        dim s(9) as string         dim b as boolean         textbox1.multiline = true         textbox1.height = 100         for i = 1 to 9             s(i) = inputbox("введите элемент " & i)             if s(i) = "0" then b = true         next         for i = 1 to 9             if b then s(i) = "7"         next         for i = 1 to 9             textbox1.text = textbox1.text & s(i) & chr(32)             if i = 3 or i = 6 then _                 textbox1.text = textbox1.text & vbcrlf         next     end sub end classработает в visual studio 2010 (не думаю, что вы в vb6 пишите)перед запуском, киньте на форму textbox

1) всего точек а=512*512= 262144 количество цветов n= 256, отсюда вычислим глубину цвета n=2^i   256=2^i i=8 объем изображения= n*a= 262144*8= 2097152 бит= 256 кбайт 2)аналогично предыдущей : n=2^i   16177216=2^i   i =24 n*a= (1024*768)*24= 18874328 бит= 2,25 мбайт 3)n=2^i   65536=2^i i=16 n*a=(1280*1024)*16= 20971520 бит= 2,5 мбайт 4)количество информации(бит) получим разделив объем файла(бит) на количество пикселей. i=(1,5*1024*1024*8)/(1024*512)= 24 бит 5)определим глубину цвета i=v/n, где v-объем изображения (бит), n - количество пикселей i=(16*1024*8)/(256*128)= 4 бит найдем количество цветов n=2^i n=2^4= 16 цветов 6)количество памяти на 1 страницу: 640*480*24= 7372800 бит= 900 кбайт количество страниц= (2*1024)/900= 2,28 ответ: 2 страницы