Тестер на VB 6
 

Не нашел я по бэйсику темы, поэтому пишу сюда. Надеюсь на помощь. :)
Пишу программку-тест. Если ответ правильный, то при нажатии на кнопку "Next" к переменной (i) прибавляется 1. Изначально она равна 0.
В конце с помощью Case идет подсчет i, и выдает оценку в зависимоти от кол-ва правильных ответов.
На каждый вопрос - форма. 10 вопросов - 10 форм.
В каждой объявлена переменная i.
Но при подсчете i всегда выдает 0, хотя ответы правильные выбираются.
Извеняюсь за сумбурное описание, прикладываю исходник на VB 6.
Кто поможет исправить ошибку - с меня благодарность. :)

http://ifolder.ru/9385286
[3,35 Кб]

http://www.sendspace.com/file/t1fv2a
Объявляй переменные и не бойся SUB-ов )