Delphi的编程问题建立一个数
form1。Tag := 0;
combobox1。Tag := 0;
combobox1。Clear ;
label1。Caption := format(#13+'重新开始!'+#13+#13+#13+'正确率为:'+#13+#13+'%f%%',[0。 00]);
edit2。SetFocus;
end;
procedure TForm1。FormActivate(Sender: TObject);
var
a, b, p, t : integer;
begin
Randomize;
a := Trunc(10 + Random(90));
b := Trunc(10 + Rand...全部
form1。Tag := 0;
combobox1。Tag := 0;
combobox1。Clear ;
label1。Caption := format(#13+'重新开始!'+#13+#13+#13+'正确率为:'+#13+#13+'%f%%',[0。
00]);
edit2。SetFocus;
end;
procedure TForm1。FormActivate(Sender: TObject);
var
a, b, p, t : integer;
begin
Randomize;
a := Trunc(10 + Random(90));
b := Trunc(10 + Random(90));
p := Trunc(Random(2));
if p = 0 then
begin Edit1。
text := format('%3d +%3d =', [a,b]);
edit1。Tag := a + b; // 将本题答案放入edit1。Tag中
end
else
begin
If a < b Then begin t := a; a := b; b := t; end;
begin Edit1。
text := format('%3d -%3d =', [a,b]);
edit1。Tag := a - b; // 将本题答案放入edit1。Tag中
end;
end;
edit2。
SelStart := 0;
edit2。Text := '';
edit2。SetFocus;
end;
procedure TForm1。Edit2KeyPress(Sender: TObject; var Key: Char);
var
x : single;
s : string;
begin
if key = #13 then
begin
Form1。
Tag := Form1。Tag + 1;
if strtoint(edit2。Text) = edit1。Tag then
begin
combobox1。
Items。Insert(0,format(edit1。text + '%3s √',[edit2。text]));
combobox1。Tag := combobox1。
Tag + 1;
end
else
combobox1。Items。Insert(0,format(edit1。text + '%3s ×',[edit2。
text]));
combobox1。ItemIndex :=0;
Form1。FormActivate(sender);
x := combobox1。
Tag * 100 / (form1。Tag);
s := #13 + '共做%d题' + #13 + #13 + #13 + '正确率为:' + #13 + #13 + '%f%%';
label1。
Caption := format(s,[form1。tag,x])
end;。收起
