問答題編寫一段程序，有a，b 兩個整數(shù)，現(xiàn)在要把a(bǔ)變成兩數(shù)中的較大值，把b變成較小的值，比如原來a = 1， b= 5，通過程序要變成 a = 5，b = 1

您可能感興趣的試卷

你可能感興趣的試題

1.填空題

利用MediaPlayer 組件實(shí)現(xiàn)一個播放wav聲音文件的播放器。用戶可自己選擇要打開的 wav文件，并在播放時有播放進(jìn)度提示（如圖）。首先在在窗體中添加1個MediaPlayer組件MediaPlayer1、1個標(biāo)簽組件Label1、2個按鈕組件（“打開文件”－Button1，“退出”－Button2），1個時鐘組件Timer1和1個OpenDialog組件OpenDialog1，一個gauge組件（用作播放進(jìn)度顯示）。進(jìn)度提示條每隔0.1秒更新一次進(jìn)度。將程序補(bǔ)充完整。


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秒更新一次進(jìn)度 
gauge1.maxvalue := MediaPlayer1.length; 
gauge1. （⑥）   := MediaPlayer1.Position;   //更改進(jìn)度 
end;  
procedure TForm1.Button2Click(Sender: TObject); 
begin   
close; 
end;