(vf题）从键盘输入3个数,求他们的最大值,最小值和平均值.

clear
dimension a(3)
cstr=""
cstrmax=""
cstrmin=""
cstraverage=""
for i=1 to 3
accept "请输入第"+alltrim(str(i))+"个数：" to a(i)
IF EMPTY(ALLTRIM(a(i)))
MESSAGEBOX("数字不能为空,请重新输入数字","系统提示")
i=i-1
loop
ENDIF
cstr=cstr+a(i)+","
cstraverage=cstraverage+a(i)+"+"
endfor
n=len(cstr)
cstr=left(cstr,n-1)
m=LEN(cstraverage)
cstraverage=LEFT(cstraverage,m-1)
cstrmax="max"+"("+cstr+")"
cstrmin="min"+"("+cstr+")"
cstraverage="("+cstraverage+")"+"/"+alltrim(str(i-1))
"最大值：",EVALUATE(cstrmax)
"最小值：",EVALUATE(cstrmin)
"平均值：",EVALUATE(cstraverage)
提供个另类解法
运行是绝对没有问题了
以上代码存入prg运行即可见效果
觉得是另类请鼓掌撒
哈哈