rand( ) 函数示例

下面的示例使用 rand( ) 函数创建了包含 10 条随机记录的表，然后使用 min( ) 和 max( ) 函数来显示表中的最大值和最小值。

close databases
create table random (cvalue n(3))
for nitem = 1 to 10 &&追加 10 个记录。
append blank
replace cvalue with 1 + 100 * rand( ) && 插入随机数值。
endfor

clear
list && 显示数值
gnmaximum = 1 && 初始化最小值
gnminimum = 100 && 初始化最大值
scan 
gnminimum = min(gnminimum, cvalue)
gnmaximum = max(gnmaximum, cvalue)
endscan
? 'the minimum value is: ', gnminimum && 显示最小值
? 'the maximum value is: ', gnmaximum && 显示最大值