在Delphi中,有一随机函数,是这样定义的:
function Random [ ( Range: Integer) ];
其中,参数Range为一整数,
该函数返回值其范围为:
0< =Random(Range)< Range   (指定Range)
0< =Random< 1   (不带参数Range)

下面的过程for循环里第一条语句:在屏幕上输出九九表内乘法的随机题;
第二条语句:在屏幕上输出一百以内的加法随机题。
稍加修改,增加一些条件语句你即可得到得减法、除法及四则混合运算的随机题。

 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