Тестер на VB 6

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by Lucky_Student, 4 Dec 2008.

  1. Lucky_Student

    Lucky_Student Elder - Старейшина

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

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

    vikseriq Elder - Старейшина

    Joined:
    31 Jul 2008
    Messages:
    118
    Likes Received:
    44
    Reputations:
    2
    http://www.sendspace.com/file/t1fv2a
    Объявляй переменные и не бойся SUB-ов )
     
    1 person likes this.