max( ) 函数示例

下面的示例使用 append blank 命令创建一个有 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 && 显示最大值