P A R A M E T E R S 函 数

返 回 传 递 给 程 序 过 程 或 用 户 自 定 义 函 数 的 参 数 数 目 这 里 是 指 最 近 调 用 的 程序 过 程 或 用 户 自 定 义 函 数

语 法

PARAMETERS

返 值 类 型

数值型

说 明

PARAMETERS 函数用以确定有多少参数传递给一个程序 过程 或用户自定义函数

注 意 每 次 调 用 程 序 过 程 或 用 户 自 定 义 函 数 或 者 执 行 ON KEY LABEL 命

令 时 PARAMETERS 函 数 的 返 回 值 都 要 被 重 置 和

示 例

示例 1 调用一个过程 并且在等待窗口中显示传递参数的数量示例 2 用一个过程来显示 4 个数值的平均数

*示例 1

DO testpar WITH 1,2,3

PROCEDURE testpar PARAMETERS gn1,gn2,gn3

gcMessage = ' PARAMETERS ='+ALLTRIM(STR (PARAMETERS ))

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

• 该用户定义函数允许通过 9 个参数

• 使用

  PARAMETERS 函数决定参数数量

• 全部通过并返回均值

FUNCTION getavg

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

IF PARAMETERS = 0

RETURN 0 ENDIF

gnResult = 0

FOR gnCount = 1 to PARAMETERS gcCompare = 'gnPara' +(STR(gnCount,1)) gnRe sult = gnResult + EVAL(gcCompare)

ENDFOR

gnResult = gnResult / (gnCount - 1)

RETURN gnResult

请 参 阅

DO, FUNCTION, LPARAMETERS, LOCAL, PARAMETERS, PCOUNT , PRIVATE, PROCEDURE, PUBLIC, SET UDFPARMS