vfp编程 输入正实数值中最大和最小的数 要求随意给出数字进行比较，但不少于5个数以上及解题流程图

来源：百度知道 编辑：UC知道 时间：2024/05/27 16:03:44

另类解法
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)