标题:创建函数
只看楼主
sarge_xp
Rank: 2
等 级:论坛游民
帖 子:120
专家分:13
注 册:2006-4-30
结帖率:60%
已结贴  问题点数:5 回复次数:17 
创建函数
根据学生的成绩评出“优、良、中、及格、差”五个等级,90分以上,优;80-89 良;70-79 中;60-69 及格,小于60 差。创建一个函数,输入是学生的成绩,输出是“优、良、中、及格、差”中的一个

这个函数能否创建在对象的command1.click 中 ?怎么使用 ?
搜索更多相关主题的帖子: 函数 学生 及格 成绩 创建 
2022-05-06 07:03
a57598587
Rank: 2
等 级:论坛游民
威 望:4
帖 子:29
专家分:29
注 册:2022-1-24
得分:0 
用分支判断不行吗?
2022-05-06 07:30
a57598587
Rank: 2
等 级:论坛游民
威 望:4
帖 子:29
专家分:29
注 册:2022-1-24
得分:0 
给出一个分数 然后进行判断
DO CASE
   CASE lExpression1
   [Commands]
   [CASE lExpression2
   [Commands]]
   ...
   [CASE lExpressionN
   [Commands]]
   [OTHERWISE
   [Commands]]
ENDCASE
2022-05-06 07:33
laowan001
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:54
帖 子:802
专家分:1914
注 册:2015-12-30
得分:5 
调试的时候可以放在command.click(参数)里,调试完成了,还是做成函数供各处调用
function 函数名(参数...)
...
endfunction
2022-05-06 08:38
厨师王德榜
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:183
帖 子:942
专家分:4724
注 册:2013-2-16
得分:0 
如果是gui界面的话,做成表单的自定义方法最佳,可反复调用.
2022-05-06 09:19
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:396
帖 子:11713
专家分:43267
注 册:2006-5-13
得分:0 
楼主需要的是鱼,楼上各位给的却是渔,从渔到鱼还有不少的距离。

活到老,学到老! http://www. E-mail:hu-jj@
2022-05-06 09:24
xuminxz
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:40
帖 子:749
专家分:2475
注 册:2011-5-8
得分:0 
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编辑过]


dBase有人接盘了。
2022-05-06 15:47
my2318
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:12
帖 子:233
专家分:577
注 册:2014-3-18
得分:0 
以下是引用xuminxz在2022-5-6 15:47:46的发言:

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-05-06 16:10
zxplhzlt
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2009-5-23
得分:0 
ICASE(成绩>=90,"优",成绩>=80,"良",成绩>=70,"中",成绩>=60,"及格","差")
2022-05-07 07:51
a57598587
Rank: 2
等 级:论坛游民
威 望:4
帖 子:29
专家分:29
注 册:2022-1-24
得分:0 
使用9楼的函数最精简

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



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-509015-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.324591 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved