在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