Предыдущая страница реферата | 1  2  3  4  5  6  7 | Следующая страница реферата

3: Form1.Button3.Visible := false;

4: Form1.Button4.Visible := false; end; end; closefile (Namebzd);

end;

procedure TForm1.ExitClick(Sender: TObject); begin

Halt(0); end;

procedure TForm1.Button1Click(Sender: TObject); begin

Select := Select*10+1;

ReLoad (form1); end;

procedure TForm1.Button2Click(Sender: TObject); begin

Select := Select*10+2;

ReLoad (form1); end;

procedure TForm1.Button3Click(Sender: TObject); begin

Select := Select*10+3;

ReLoad (form1); end;

procedure TForm1.Button4Click(Sender: TObject); begin

Select := Select*10+4;

ReLoad (form1); end;

procedure TForm1.BackClick(Sender: TObject); begin if Select > 10 then Select := Select div 10;

ReLoad (form1); end;

procedure TForm1.Button5Click(Sender: TObject); begin help.visible :=true; end;

procedure TForm1.FormCreate(Sender: TObject); begin
Reload (Form1); end;

end.

Результаты тестирования

|Вопрос |Ответ 1 |Ответ |Ответ 3|Ответ|Желаемый |Действительный|
| | |2 | |4 |результат|результат |
|К какому|Насекомо| | | |Вы пьете |Вы пьете |
|виду? |е | | | |кровь? |кровь? |
| | |Птица | | |Вы |Вы домашняя? |
| | | | | |домашняя?| |
| | | |Млекопи| |Вы |Вы прыгаете с |
| | | |тающее | |прыгаете |ветки на |
| | | | | |с ветки |ветку? |
| | | | | |на ветку?| |
| | | | |Не |Вы |Вы жужжите? |
| | | | |знаю |жужжите? | |
|Какое |Дерево | | | |У вас |У вас есть? |
|семейств| | | | |есть? | |
|о? | | | | | | |
| | |Трава | | |Вы |Вы запрещены |
| | | | | |запрещены|законом? |
| | | | | |законом? | |
| | | |Водорос| |В вас |В вас много |
| | | |ль | |много |йода и вас |
| | | | | |йода и |едят? |
| | | | | |вас едят?| |
| | | | |Не |У вас |У вас есть |
| | | | |знаю |есть |кора? |
| | | | | |кора? | |

Список литературы

Рекомендуем скачать другие рефераты по теме: курсовые, отечественная война реферат.



Предыдущая страница реферата | 1  2  3  4  5  6  7 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки