int nmbvopr=0; //номер вопроса
int potv=0; //правильных ответов
int qAns=0;//количество ответов
bool wasansw[40]={false};//был ли ответ
void __fastcall TForm1::Button1Click(TObject *Sender)
{
do
{
switch (nmbvopr)
{
case 0:
nmbvopr++;
if (wasansw[nmbvopr]) { continue; }
Image1->Picture->LoadFromFile(aPath+"Q"+nmbvopr+".jpg");
if (Edit1->Text=="1")
{ wasansw[nmbvopr]=true;
potv++;
qAns++;
}
else if(Edit1->Text==""){
wasansw[nmbvopr]=false;
}
else {wasansw[nmbvopr]=true;
qAns++;
break; }
Edit1->Text="";
return;
case 1:
......
while(qAns<40);// максимум может быть 40 ответов
Цикл для теста
Код:
[COLOR="Red"]Неправильное оформление кода.Читай [/COLOR]Правила форума Студентам.[COLOR="Red"]В названии темы надо указывать язык программирования.Название отредактируй.Нарушение -5 баллов за неправильное название[/COLOR].m_Valery