delphi复习-程序填空(有答案)

《delphi复习-程序填空(有答案)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、复习要点l结构化程序设计的基本原则，程序中采用的三种控制结构，顺序、分支和循环l关于对象的叙述。对象的属性，对象的方法。l与数学表达式对应的ObjectPascal表达式：如lDelphi应用程序中项目文件、备份文件等各类的扩展名l各个组件的属性要掌握，重点如：按钮，Edit，ListBox，Timer，DBGrid，MaksEdit，Canvasl报表部分主要是了解概念l多看看考试指导，熟悉题型常用组件使用和循环操作1、本程序根据用户选择的运算符对输入的二个操作数进行运算，并显示运算结果。设计界面和运行界面如图所示。其

2、中，运算符是一个含有4个单选按纽的RadioGroup1对象。下面是单击“运算”按钮的事件处理程序，请根据功能要求完成程序填空。---------------------------------------------------------------------------------------------------------------------procedureTForm1.Button1Click(Sender:TObject);//运算varx1,x2,y:Integer;beginx1:=StrTo

3、Int(Edit1.①);x2:=StrToInt(Edit2.②);Case③.ItemIndexof0:y:=x1+x2;1:y:=x1-x2;2:y:=x1*x2;3:y:=x1Divx2;End;Edit3.④:=IntToStr(⑤);end;16①text②text③RadioGroup1④text⑤y2、本程序设计界面和运行界面如下图所示：程序的功能是：用户在edit1中输入一个正整数n，然后按“计算”按钮，程序计算1～n中奇数之和，并在edit2中显示计算结果。请完成程序填空：procedureTForm

4、1.Button1Click(Sender:TObject);//“计算”按钮vari,n,sum:integer;beginsum:=0;i:=1;n:=StrToInt(edit1.①);//读入正整数nwhilei<=n②//循环语句beginifodd(i)thensum:=③;i:=i+1;end;edit2.Text:=IntToStr(④);//将结果在编辑框中显示end;在程序中，odd为系统函数，其功能为：⑤。①Text②do③sum+i④sum⑤判断奇偶性的函数（若输入值为奇数，函数值为真，否则为假）

5、。多窗体；打开、保存文件对话框用法3、本程序由主窗体form1和子窗体form2组成，设计界面如下图所示：16主窗体上建立的对象有Panel1、Animate1、Button1（加载AVI文件）、Button2（退出）、Button3（播放）、Button4（停止）和OpenDialog1。子窗体上建立的对象有Label1、BitBtm1（Yes）、BitBtm2（No）。单击“加载AVI文件”按钮，会弹出打开文件对话框。用户指定一个.avi的文件后，动画文件加载到Animate1显示区中。单击“播放”按钮可播放动画，单

6、击“停止”按钮可停止播放。单击“退出”按钮，会弹出确认对话框（Form2）。如果用户按“Yes”键，程序结束；如果按“No”键，返回主窗体。下面是Unit1的代码部分，请在下划线处完成程序填空。---------------------------------------------------------------------------------------------------------------------implementation{$R*.dfm}uses①;procedureTForm1.Butt

7、on1Click(Sender:TObject);//加载AVI文件beginif②thenanimate1.FileName:=③;end;procedureTForm1.Button2Click(Sender:TObject);//退出beginif④=mrYesthenclose;end;procedureTForm1.Button3Click(Sender:TObject);//播放beginanimate1.Play(1,animate1.FrameCount,0);end;procedureTForm1.Bu

8、tton4Click(Sender:TObject);//停止beginanimate1.⑤;end;end.--------------------------------------------------------------------------------------------------------