P C O U N T 函数

P C O U N T 函数 - 图3 P C O U N T 函数 - 图4 返回传递给当前程序过程或用户自定义函数的参数的个数

语法

PCOUNT P C O U N T 函数 - 图5 P C O U N T 函数 - 图6

返值类型

数值型

说明

P C O U N T 函数 - 图7 P C O U N T 函数 - 图8 P C O U N T 函数 - 图9 P C O U N T 函数 - 图10 P C O U N T 用于确定有多少参数传递给了当前程序过程或用户自定义函数

示例

P C O U N T 函数 - 图11 P C O U N T 函数 - 图12 P C O U N T 函数 - 图13 示例 1 调用一个过程并且在等待窗口中显示传递参数的数量示例 2 用一个过程来显示 4 个数值的平均数

*示例 1

DO testpar WITH 1,2,3

PROCEDURE testpar PARAMETERS gn1,gn2,gn3

P C O U N T 函数 - 图14 gcMessage = ' PCOUNT P C O U N T 函数 - 图15 P C O U N T 函数 - 图16 ='+ALLTRIM(STR (PCOUNT P C O U N T 函数 - 图17 ))

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

*参数均通过后并返回平均值

FUNCTION getavg

PARAMETERS gnPara1,gnPara2,gnPara3,gnPara4,gnPara5, ; gnPara6,gnPara7,gnPara8,gnPara9

IF PCOUNT P C O U N T 函数 - 图20 P C O U N T 函数 - 图21 = 0 RETURN 0

ENDIF

gnResult = 0

FOR gnCount = 1 to PARAMETERS P C O U N T 函数 - 图22 P C O U N T 函数 - 图23 gcCompare = 'gnPara' +(STR(gnCount,1)) gnResult = gnResult + EVAL(g cCompare)

ENDFOR

gnResult = gnResult / (gnCount - 1)

RETURN gnResult

请参阅

D O , FUNCTION , LPARAMETERS , LOCAL , PARAMETERS , PARAMETERS

P C O U N T 函数 - 图24 P C O U N T 函数 - 图25 , PRIVATE , PROCEDURE , PUBLIC , SET UDFPARMS

P C O U N T 函 数