#include <iostream>
#include <vector>
using namespace std;
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
math = new My_math;
}
void __fastcall TForm1 BitBtn1Click(TObject *Sender)
{
if(RadioButton1->Checked==true)i=1;//проверяем, какой ответ был выбран
if(RadioButton2->Checked==true)i=2;
if(RadioButton3->Checked==true)i=3;
if(RadioButton4->Checked==true)i=4;
RadioButton1->Checked=false;//очищаем нажатую кнопку
RadioButton2->Checked=false;
RadioButton3->Checked=false;
RadioButton4->Checked=false;
if(i==pravil_otvet)
{
s++;
nomer++;//номер вопроса изменяется тогда, когда был выбран правильный ответ
}
switch(nomer)
{
case 1:
Form2->Label5->Caption="Кто вырос в джунглях среди диких зверей?";
Form2->Label1->Caption="Колобок";
Form2->Label2->Caption="Маугли";
Form2->Label3->Caption="Бэтмен";
Form2->Label4->Caption="Чарльз Дарвин";
pravil_otvet=2;
break;

case 2:
Form2->Label5->Caption="Как называлась детская развлекательная программа, популярная в прошлые годы?";
Form2->Label1->Caption="АБВГДейка";
Form2->Label2->Caption="ЁКЛМНейка";
Form2->Label3->Caption="ЁПРСТейка";
Form2->Label4->Caption="ЕЖЗИКейка";
pravil_otvet=1;
break;

case 3:
Form2->Label5->Caption="Как звали невесту Эдмона Дантеса, будущего графа Монте-Кристо? ";
Form2->Label1->Caption="Мерседес";
Form2->Label2->Caption="Тойота";
Form2->Label3->Caption="Хонда";
Form2->Label4->Caption="Лада";
pravil_otvet=1;
break;

case 4:
Form2->Label5->Caption="Какой цвет получается при смешении синего и красного?";
Form2->Label1->Caption="Коричневый";
Form2->Label2->Caption="Фиолетовый";
Form2->Label3->Caption="Зелёный";
Form2->Label4->Caption="Голубой";
pravil_otvet=2;
break;

case 5:
Form2->Label5->Caption="Из какого мяса традиционно готовится начинка для чебуреков?";
Form2->Label1->Caption="Баранина";
Form2->Label2->Caption="Свинина";
Form2->Label3->Caption="Телятина";
Form2->Label4->Caption="Конина";
pravil_otvet=1;
break;

case 6:
Form2->Label5->Caption="Какой народ придумал танец чардаш?";
Form2->Label1->Caption="Венгры";
Form2->Label2->Caption="Румыны";
Form2->Label3->Caption="Чехи";
Form2->Label4->Caption="Молдаване";
pravil_otvet=1;
break;

case 7:
Form2->Label5->Caption="Изучение соединений какого элемента является основой органической химии?";
Form2->Label1->Caption="Кислород";
Form2->Label2->Caption="Углерод";
Form2->Label3->Caption="Азот";
Form2->Label4->Caption="Кремний";
pravil_otvet=2;
break;

case 8:
Form2->Label5->Caption="Кто открыл тайну трёх карт графине из «Пиковой дамы» А. С. Пушкина?";
Form2->Label1->Caption="Казанова";
Form2->Label2->Caption="Калиостро";
Form2->Label3->Caption="Сен-Жермен";
Form2->Label4->Caption="Томас Воган";
pravil_otvet=3;
break;

case 9:
Form2->Label5->Caption="В какой стране была пробурена первая промышленная нефтяная скважина?";
Form2->Label1->Caption="Кувейт";
Form2->Label2->Caption="Иран";
Form2->Label3->Caption="Ирак";
Form2->Label4->Caption="Азербайджан";
pravil_otvet=4;
break;

case 10:
BitBtn1->Enabled=false;
RadioButton1->Enabled=false;//делаем кнопки "не нажимаемыми", чтобы пользователь нажал на "закончить тест"
RadioButton2->Enabled=false;
RadioButton3->Enabled=false;
RadioButton4->Enabled=false;
}
}