④DataSourcel ⑤sname 26.(10分，每空2分) ①editl.text ②tablelcno.value Tablelquota.value=0 ④InsertRecord ⑤Post 五、编程题(10分) 27.procedure TForml.ButtonlClick(Sender:TObject); var x,y,z Integer begin x :strtoint(edit1.Text); y :=strtoint(edit2.Text); if ((x=1)and (x<=100))and ((y>>=1)and (y<=100))then begin case radiogroupl.ItemIndex of 0:z:=x十y; 1:z:=x-y; 2:z:=X*y; 3:Z :x div y; end end else begin showmessage(‘输入有错)； exit; end; edit3.Text :inttostr(z); end; 1455( DataSourcel ( sname 26. (1 0 ( edit1. text ( tablel cno. value ( T ablel quota. value= 0 ( InsertR ecord ( Post 五、编程题(1 27. procedure TForm1.ButtonlClick(Sender: TObject); var x ,y ,z : Integer; begin x : = strtoint(editl. Text); y : = strtoint(edit2. Text) ; if CCx>= 1) and (x<=lOO»and ((y>=1) and (y<=lOO» then begin case radiogroupl. Itemlndex of 0: z := ; l:z:=x-y; 2: z := 诀 y ; 3: z : = X div y ; end; end else begin showmessage( 入有 ; eXIt; end; edit3. Text: = inttostr(z) ; end; 1455