④text ⑤y 2.(10分，每空2分) ①unit2 2 opendialogl.Execute 3 opendialog1.FileName ④Play ⑤form2.ShowModal 3.(10分，每空2分) ①editl.Text ②tablelbno..Value ③tablelnum.Value=0 ④InsertRecord ⑤Edit 五、编程题（共10分） procedure TForm1.ButtonlClick(Sender:TObject); var m,n i:integer; begin m :StrToInt(edit1.Text); n :StrToInt(edit2.Text); Memol.Clear; for i:=m to n do if i MOD 3 0 then memol.Lines.Add(IntToStr(i)); end; 1459( t ext ( y 2. (1 ( unit2 ( opendialogl. Execute ( opendialog1. FileName ( Play ( form2. ShowModal 3. (1 0 每空 ( editl. Text ( table1bno. Value ( tablel num. Value = 0 ( InsertRecord ( Edit 五、编程题{共 procedure TForml. Button1ClickCSender: TObject); var n , 1 : Integer ; begin m : = StrToIntCeditl. Text); n : = StrTolntCedit2. Text); Memol. Clear; for i ,= m to n do if i MOD 3 = 0 then memo1. Lines. AddC IntToStr(i) ); end; 1459