tablelquota..Value:=tablelquota.Value-l;∥名额减1 tablel.⑤ end; end. 得 分 评卷人 五、编程题(10分) 一个计算圆周长和面积的程序，设计界面及运行后界面如下图所示。在“半径”框中输入 圆的半径，单击“计算”按钮，在“周长”、“面积”框中显示圆的周长和面积。根据题意，请编写单 击“计算”按钮(Buttonl)的事件处理程序代码（π可直接使用系统定义常量PI)。 (提示：设圆的半径为r,则圆的周长=2πr,面积=πr2) 计克月K和西积 计算冈网K和面积 菌石网 半径： Edit1 Butlon1 半径： 6 计算 周长： Edit2 周长： 37.68 Button2 退出 面积：Ed3 面积： 113.04 procedure TForml.ButtonlClick(Sender:TObject); begin end; procedure TForm1.Button2Click(Sender:TObject); begin Close; end; 1417tablelquota. Value:=tablelquota. Value-1;/名额减1 tablel ⑤ ; end: end. 匡f- if-1k‘ ,}},}(lo分’ 一个计算圆周长和面积的程序，设计界面及运行后界面如下图所示。在“半径”框中输入 圆的半径，单击“计算”按钮，在“周长”、“面积”框中显示圆的周长和面积。根据题意，请编写单 击“计算”按钮(Buttonl)的事件处理程序代码(7(可直接使用系统定义常量 PI) o (提示:设圆的半径为 r，则 圆的周长二27[r，面积= 7Cr' ) procedure TForml. begin end; procedure TForml. begin close; end; Button IClick (Sender: TObject); Button2Click (Sender: TObject); 1417