⑤sname 28.(10分，每空2分) ①Locate ②Next ③Prior ④ParamByName(‘bno').Value ⑤queryl[‘num'] 五、编程题(10分) 29.procedure TForm1.Button1Click(Sender:TObject); var x,y,z integer begin x :strtoint(editl.Text); y :strtoint(edit2.Text); z:=strtoint(edit3.Text); if radiogroupl.ItemIndex=0 then begin if(x >y)and (x>z)then edit4.Text inttostr(x) else if (y>x)and (y>z)then edit4.Text :inttostr(y) else edit4.Text ;inttostr(z); end else begin if(x<y)and (x<z)then edit4.Text :inttostr(x) else if (y<x)and (y<z)then edit4.Text :=inttostr(y) else edit4.Text :inttostr(z); end end; 1196( snam 28. (1 ( Locate ( Next ( Prior ( ParamByName( ‘ bno ' ) . Value ( queryl [ ‘ num ' ] 五、编程题(1 29. procedure TForml. ButtonlClick(Sender: TObject); var x ,y,z : integer; begin X : = strtoint(edit1. Text) ; Y : = strtoint(edit2. Text); Z : = strtoint(edit3. Text); if radiogroupl. Itemlndex = O then begin if(x >y) and (x>z) then edit4. Text: = inttostr(x) else if (y>x) and (y>z) then edit4. Text: = inttostr(y) else edit4. Text : = inttostr(z) ; end else begin if(x <y) and (x<z) then edit4. Text: = inttostr(x) else if (y<x) and (y<z) then edit4. Text: = inttostr(y) else edit4. Text: = inttostr(z) ; end; end; 1196