在Delphi中，有一隨機函數(shù)，是這樣定義的：
function Random [ ( Range: Integer) ];
其中，參數(shù)Range為一整數(shù)，
該函數(shù)返回值其范圍為：
0< =Random(Range)< Range   (指定Range)
0< =Random< 1   (不帶參數(shù)Range)

下面的過程for循環(huán)里第一條語句：在屏幕上輸出九九表內(nèi)乘法的隨機題；
第二條語句：在屏幕上輸出一百以內(nèi)的加法隨機題。
稍加修改，增加一些條件語句你即可得到得減法、除法及四則混合運算的隨機題。

 1procedure TForm1.Button1Click(Sender: TObject);
 2var
 3I: Integer;
 4begin
 5Randomize;
 6for I := 1 to 10 do begin
 7Canvas.TextOut(20,I*20,
 8IntToStr(Random(9)+1)+'×'+IntToStr(Random(9)+1)+'=');
 9Canvas.TextOut(220,I*20, 
10IntToStr(Random(100))+'+'+IntToStr(Random(100))+'=');
11end;
12end;
13