query2.ParamByName('sno').Value :editl.Text query2.ParamByName('cno').Value :tablelcno.Value query.2.④ tablel.⑤ tablelquota..Value:=tablelquota.Value-1;/课程名额减1 tablel.Post end; end. 得 分 评卷人 五、编程题(10分) 28.下图是本程序的设计界面（左）和运行界面（右）： 7 Formi 口x Form1 操作数1Edit1 操作数121 「显示余数 户显示余数 操作数2巨dit2 操作数213 结果：dit3 余数：dit4 结采 余数招 除键 除键 在forml上建立的对象有：Labell~Label5、Editl~Edit4、Buttonl(除键)和CheckBox1等。 该程序实现除法运算。用户输入两个操作数，按除键后，整除结果显示在结果框中。 输入的操作数必须是1~50之间的整数。如果输入有误，程序要给出错误提示信息“输入 有错，请重新输人”。 如果“显示余数”复选框选中，则除法余数显示在余数框中，否则不显示余数。 请编写单击“除键”按钮的事件处理程序。 procedure TForm1.ButtonlClick(Sender:TObject); begin end; 1401query2. ParamByNameC ‘sno'). Value: = edit1. Text; query2. ParamByNameC ‘eno'). Value: = table1eno. Value; query2. table1. table1quota. Value:= table1quota. Value - 1;// 减1 tablel. Post ; end; end. 得分|评卷人 五、编程题(l 28. 本程 设计 运行 : 一一一一一一一一一一一 1上建立的对象有: Labell La elS、Edit 1 Edi 4、 tton Bo 该程序实现除法运算。用户输入两个操作数，按除键后，整除结果显示在结果框中。 输入的操作数必须是 O之间的整数。如果输入有误，程序要给出错误提示信息"输入 有错，请重新输入"。 如果"显示余数"复选框选中，则除法余数显示在余数框中，否则不显示余数。 请编写单击"除键"按钮的事件处理程序。 procedure TForm1. Button1ClickCSender: TObject); begin end; 1401