简答题 结构化程序设计的基本原则是什么？ 

问答题编写一段程序，有a，b两个整数，现在要把a变成两数中的较大值，把b变成较小的值，比如原来a=1，b=5，通过程序要变成a=5，b=1

填空题利用MediaPlayer 组件实现一个播放wav声音文件的播放器。用户可自己选择要打开的 wav文件，并在播放时有播放进度提示（如图）。首先在在窗体中添加1个MediaPlayer组件MediaPlayer1、1个标签组件Label1、2个按钮组件（“打开文件”－Button1，“退出”－Button2），1个时钟组件Timer1和1个OpenDialog组件OpenDialog1，一个gauge组件（用作播放进度显示）。进度提示条每隔0.1秒更新一次进度。将程序补充完整。 procedure TForm1.Button1Click（Sender： TObject）；  begin if OpenDialog1.Execute Then   Begin      MediaPlayer1.filename := OpenDialog1. （①） ;      Label1.（②） := OpenDialog1.filename;      MediaPlayer1.open;     打开声音文件      MediaPlayer1. （③）    ;   开始播放      Timer1.enabled := （④）   ;    end;  end;  procedure TForm1.Timer1Timer(Sender: TObject);  begin  Timer1.Interval :=  （⑤） ;    每隔0.1秒更新一次进度  gauge1.maxvalue := MediaPlayer1.length;  gauge1. （⑥）   := MediaPlayer1.Position;    更改进度  end;   procedure TForm1.Button2Click(Sender: TObject);  begin    close;  end;

填空题在窗体上画一个名称为Command1、标题为“计算”的命令按钮；画3个文本框，名称分别为Text1、Text2和Text3；然后画4个标签，名称分别为Label1、Label2、Label3和Label4，标题分别为“操作数1”、“操作数2”、“运算结果”、“＝”符；再建立一个含有4个单选按纽的RadioGroup组件，名称为RadioGroup1，标题分别为“+”、“-”、“*”和“ ”。程序运行后，在Text1、Text2中输入两个整数值，选中一个单选按钮后单击命令按钮，相应的计算结果显示在Text3，程序运行情况如图所示。请填入适当的内容，将程序补充完整。 procedureTForm1.Button1Click(Sender:TObject); var x1,x2,y:Integer;begin x1:=StrToInt(Edit1.（①）); x2:=StrToInt(Edit2.（②）); Case（③）.ItemIndexof 0:y:=x1+x2; 1:y:=x1-x2; 2:y:=x1*x2; 3:y:=x1Divx2; End; Edit3.（④）:=IntToStr(⑤); end;

判断题时钟Timer组件的时间间隔是由Interval属性控制，该属性的计量单位是秒，即其值为1，则表示时间间隔为1秒。

判断题QuickReport组件用于产生报表，它只有一个组件。