Итоговая "КУРСОВАЯ" работа - VB

Формулировка задачи:

Создать проект, формы пользователя и программные модули: 1.При помощи макроса создать таблицу следующей структуры: - Марка телевизора; - диагональ; - цена, $; - выпущено за месяц штук: 1)май 2)июнь 3)июль 4)август 5)сентябрь 2.Найти стоимость каждого телевизора за 5 месяцев 3.Определить общее кол-во выпущенных телевизоров за 5 месяцев 4.Найти макс. и миним. диагональ телевизора 5.Найти отклонение каждого телевизора от средней цены [IMG]http://i041.***********/1105/aa/83570c435c82.jpg[/IMG] [IMG]http://i042.***********/1105/23/a0db95652c3b.jpg[/IMG] [IMG]http://s58.***********/i161/1105/f3/adf1f7074d3b.jpg[/IMG] [IMG]http://s005.***********/i210/1105/c8/4861e98dddb7.jpg[/IMG] [IMG]http://s52.***********/i135/1105/06/b1574d688a30.jpg[/IMG] [IMG]http://i057.***********/1105/9e/2117ceaa4121.jpg[/IMG] Заготовка формыhttp://narod.ru/disk/14536693001/%D0...inRAR.rar.html

Решение задачи: «Итоговая "КУРСОВАЯ" работа»

textual
                            Листинг программы 
                        
                            LR = Cells(Rows.Count, 1).End(xlUp).Row