Проектирование приложений для обработки массивов данных - VB

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

Здравствуйте! Помогите подступиться к задаче: Пять парфюмерных фирм представили на конкурс по пять различных наименований духов. Опросили N человек. Каждый из опрошенных назвал не более трех наименований духов. Определить наименование духов и фирму – изготовитель, которые назывались чаще других. Предусмотреть проверку правильности ввода информации. Спасибо!

Пожалуйста, подскажите общие рецепты для решения задачи. В Visual basic 6.0 научилась делать с помощью wizard базы данных , а помощников для массивов нет?

Решение задачи: «Проектирование приложений для обработки массивов данных»

textual
                            Листинг программы 
                        

                            Dim n_max, n, mas(25)
Private Sub Form_Load()
n = 0 'кол-во выбранных духов
n_max = 3 'мах выбранных духов
For i = 0 To 24
    mas(i) = 0 'массив сумм голосов за каждые духи
Next
End Sub
                        