(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运行即可见效果

觉得是另类请鼓掌撒
哈哈

use 学生
记录指针第一条记录上