④else ⑤lt 27.(10分，每空2分) ①unit2 2 opendialogl.Execute 3 opendialog1.FileName ④form2.Show Modal ⑤stop 28.(10分，每空2分) ①Next ②Prior ③Locate ④tablel[dno] ⑤Open 五、编程题(10分) 29.procedure TForml.ButtonlClick(Sender:TObject); var Num:Integer; begin Num:=StrToInt(editl.Text); IF (Num mod 3=0)and (Num mod 5=0)Then showmessage(该数可以同时被3、5整除) Else IF Num mod 3 =0 Then showmessage(该数只能被3整除) Else showmessage(该数只能被5整除) end; 1028( else ( it 27. (1 ( unit2 ( opendialogl. Execute ( opendialogl. FileName ( for m2. ShowModal ( stop 28. (1 ( Next ( Prior ( Locate ( table1['dno'] ( Open 五、编程题(l 29. procedure TForml. Button1Click(Sender: TObject); var Nurn: In teger; begin Num: =StrTolnt(editl. Text); IF (Num mod 3=0) and (Num mod 5=0) Then showmessageC该数 被3 、5 Else IF Num mod 3 = 0 Then showmessage( 被3 Else showmessage('该数 被5 end; 1028