2.(15分，每空3分) ①editl.Text ②tablelcno.Value 3tablelquota.Value=0 ④InsertRecord ⑤Post 五、编程题(10分)】 procedure TForm1.Button1Click(Sender:TObject); Var r,C,S real; begin r:=StrToFloat(edit1.Text); C:=2*PI￥r; S:=PI￥r*r;/或者为PI*sqr(r) edit2.Text :FloatToStr(C); edit3.Text :FloatToStr(S); end; 14192. (15分，每空 3分) )editl. Text ②tablelcno. Value } 3tablelquota. Value=0 .InsertRecord ⑤Post 五、编程题 (10分 ) procedure TForml. ButtonlClick (Sender: TObject); Var r,C,S:real; begin r:=StrToFloat(editl. Text); C:”2*PI*r; S: =PI * r * r;//或者为 PI * sqr(r) edit2. Text:= FloatToStr(C); edit3. Text:“ F1oatToStr(S); end; 1419