根据学生的成绩评出“优、良、中、及格、差”五个等级，90分以上，优；80-89　良；70-79　中；60-69　及格，小于60　差。创建一个函数，输入是学生的成绩，输出是“优、良、中、及格、差”中的一个

这个函数能否创建在对象的command1.click 中　？怎么使用　？

用分支判断不行吗？

给出一个分数 然后进行判断
DO CASE
   CASE lExpression1
   [Commands]
   [CASE lExpression2
   [Commands]]
   ...
   [CASE lExpressionN
   [Commands]]
   [OTHERWISE
   [Commands]]
ENDCASE

调试的时候可以放在command.click(参数)里，调试完成了，还是做成函数供各处调用
function 函数名(参数...)
...
endfunction

如果是gui界面的话,做成表单的自定义方法最佳,可反复调用.

楼主需要的是鱼，楼上各位给的却是渔，从渔到鱼还有不少的距离。

PARAMETERS cj
PRIVATE cjstr
cjstr="差差差差差差及中良优优"
cj=cj+0.000001
RETURN SUBSTRc(cjstr,CEILING(cj/10),1)
以上方法成绩用的字数必须一样，否则按字数最多的用空格补齐。调用VFP自带的foxtools.fll中的wordnum()函数更灵活。
PARAMETERS cj
SET LIBRARY TO foxtools.fll
PRIVATE cjstr
cjstr="差 差 差 差 差 差 及格 中 良好 优 优"
cj=cj+0.000000001
RETURN wordnum(cjstr, CEILING(cj/10))

[此贴子已经被作者于2022-5-6 15:58编辑过]

ICASE(成绩>=90,"优",成绩>=80,"良",成绩>=70,"中",成绩>=60,"及格","差")

使用9楼的函数最精简

成绩 = VAL(INPUTBOX("请输入学生成绩","成绩分类 "))
?ICASE(成绩>=90,"优",成绩>=80,"良",成绩>=70,"中",成绩>=60,"及格","差")