示例1 调用一个过程，并且在等待窗口中显示传递参数的数量。
示例 2 用一个过程来显示 4 个数值的平均数。
*示例 1
do testpar with 1,2,3
procedure testpar
parameters gn1,gn2,gn3
gcmessage = 'pcount( ) ='+alltrim(str(pcount( )))
wait window (gcmessage)
return
*示例 2
set talk off
gnval1 = 10
gnval2 = 20
gnval3 = 30
gnval4 = 15
gnmin = getavg(gnval1, gnval2, gnval3, gnval4)
? 'average value is '
?? gnmin
* this user-defined function permits up to 9 parameters to be passed.
* it uses the pcount( ) function to determine how many
* were passed and returns the average value.
function getavg
parameters gnpara1,gnpara2,gnpara3,gnpara4,gnpara5, ;
gnpara6,gnpara7,gnpara8,gnpara9
if pcount( ) = 0
return 0
endif
gnresult = 0
for gncount = 1 to parameters( )
gccompare = 'gnpara' +(str(gncount,1))
gnresult = gnresult + eval(gccompare)
endfor
gnresult = gnresult / (gncount - 1)
return gnresult