问答题
简答题
编写一段程序，有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秒。
