填空题(30 分,每题 10 分) 程序填空题(
1、 (10 分,每空 2 分) ① text ③ RadioGroup1 ⑤ y 2、 (10 分,每空 2 分) ① True ③ DataSource1 ⑤ sname 3、 (10 分,每空 2 分) ① edit1.Text ③ table1num.Value = 0 ⑤ Edit ② text ④ text
② Table1 ④ DataSource1
② table1bno.Value ④ InsertRecord
五、编程题(10 分) 编程题(
procedure TForm1.Button1Click(Sender: TObject); var x : integer ; begin x := strtoint(edit1.Text); if (x<100) or (x>999) then showmessage('输入数据不在范围内'); edit2.Text := inttostr(x DIV 100) ; edit3.Text := inttostr( (x DIV 10 ) Mod 10 ) ; edit4.Text := inttostr(x Mod 10) ; end;