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

复习要点 结构化程序设计的基本原则，程序中采用的三种控制结构，顺序、分支和循环 关于对象的叙述。对象的属性，对象的方法。 与数学表达式对应的Object Pascal表达式：如 Delphi应用程序中项目文件、备份文件等各类的扩展名 各个组件的属性要掌握，重点如：按钮，Edit，ListBox，Timer，DBGrid，MaksEdit，Canvas 报表部分主要是了解概念 多看看考试指导，熟悉题型 常用组件使用和循环操作 1、 本程序根据用户选择的运算符对输入的二个操作数进行运算，并显示运算结果。设计界面和运行界面如图所示。其中，运算符是一个含有4个单选按纽的RadioGroup1对象。 下面是单击“运算”按钮的事件处理程序，请根据功能要求完成程序填空。 --------------------------------------------------------------------------------------------------------------------- procedure TForm1.Button1Click(Sender: TObject);//运算 var x1,x2,y :Integer; begin x1 := StrToInt( Edit1. ① ); x2 := StrToInt( Edit2. ② ); Case ③ .ItemIndex of 0: y := x1 + x2 ; 1: y := x1 - x2; 2: y := x1 * x2; 3: y := x1 Div x2; End; Edit3. ④ := IntToStr( ⑤ ); end; ① text ② text ③ RadioGroup1 ④ text ⑤ y 2、 本程序设计界面和运行界面如下图所示： 程序的功能是：用户在edit1中输入一个正整数n，然后按“计算”按钮，程序计算1～n中奇数之和，并在edit2中显示计算结果。 请完成程序填空： procedure TForm1.Button1Click(Sender: TObject); //“计算”按钮 var i , n, sum : integer ; begin sum := 0 ; i := 1 ; n := StrToInt(edit1. ① ); //读入正整数n while i = n ② //循环语句 begin if odd( i ) then sum := ③ ; i := i +1 ; end; edit2.Text :=IntToStr( ④ ); //将结果在编辑框中显示 end; 在程序中，odd为系统函数，其功能为： ⑤ 。 ① Text ② do ③ sum + i ④ sum ⑤ 判断奇偶性的函数（若输入值为奇数，函数值为真，否则为假）。 多窗体；打开、保存文件对话框用法 3、 本程序由主窗体form1和子窗体form2组成，设计界面如下图所示： 主窗体上建立的对象有Panel1、Animate1、Button1（加载AVI文件）、Button2（退出）、Button3（播放）、Button4（停止）和OpenDialog1。 子窗体上建立的对象有Label1、BitBtm1（Yes）、BitBtm2（No）。 单击“加载AVI文件”按钮，会弹出打开文件对话框。用户指定一个.avi的文件后，动画文件加载到Animate1显示区中。单击“播放”按钮可播放动画，单击“停止”按钮可停止播放。 单击“退出”按钮，会弹出确认对话框（Form2）。如果用户按“Yes”键，程序结束；如果按“No”键，返回主窗体。 下面是Unit1的代码部分，请在下划线处完成程序填空。 --------------------------------------------------------------------------------------------------------------------- implementation {$R *.dfm} uses ①