搜索
编程论坛
→
数据库技术
→
『 VFP论坛 』
→ 创建函数
标题:
创建函数
只看楼主
sarge_xp
等 级:
论坛游民
帖 子:120
专家分:13
注 册:2006-4-30
结帖率:
60%
楼主
已结贴
√
问题点数:5 回复次数:17
创建函数
根据学生的成绩评出“优、良、中、及格、差”五个等级,90分以上,优;80-89 良;70-79 中;60-69 及格,小于60 差。创建一个函数,输入是学生的成绩,输出是“优、良、中、及格、差”中的一个
这个函数能否创建在对象的command1.click 中 ?怎么使用 ?
搜索更多相关主题的帖子:
函数
学生
及格
成绩
创建
2022-05-06 07:03
a57598587
等 级:
论坛游民
威 望:
4
帖 子:29
专家分:29
注 册:2022-1-24
第
2
楼
得分:0
用分支判断不行吗?
2022-05-06 07:30
a57598587
等 级:
论坛游民
威 望:
4
帖 子:29
专家分:29
注 册:2022-1-24
第
3
楼
得分:0
给出一个分数 然后进行判断
DO CASE
CASE lExpression1
[Commands]
[CASE lExpression2
[Commands]]
...
[CASE lExpressionN
[Commands]]
[OTHERWISE
[Commands]]
ENDCASE
2022-05-06 07:33
laowan001
等 级:
版主
威 望:
54
帖 子:802
专家分:1914
注 册:2015-12-30
第
4
楼
得分:5
调试的时候可以放在command.click(参数)里,调试完成了,还是做成函数供各处调用
function 函数名(参数...)
...
endfunction
2022-05-06 08:38
厨师王德榜
等 级:
版主
威 望:
183
帖 子:942
专家分:4724
注 册:2013-2-16
第
5
楼
得分:0
如果是gui界面的话,做成表单的自定义方法最佳,可反复调用.
2022-05-06 09:19
hu9jj
来 自:红土地
等 级:
贵宾
威 望:
396
帖 子:11713
专家分:43267
注 册:2006-5-13
第
6
楼
得分:0
楼主需要的是鱼,楼上各位给的却是渔,从渔到鱼还有不少的距离。
活到老,学到老! http://www. E-mail:hu-jj@
2022-05-06 09:24
xuminxz
等 级:
贵宾
威 望:
40
帖 子:749
专家分:2475
注 册:2011-5-8
第
7
楼
得分: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
等 级:
贵宾
威 望:
12
帖 子:233
专家分:577
注 册:2014-3-18
第
8
楼
得分: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
等 级:
新手上路
帖 子:1
专家分:0
注 册:2009-5-23
第
9
楼
得分:0
ICASE(成绩>=90,"优",成绩>=80,"良",成绩>=70,"中",成绩>=60,"及格","差")
2022-05-07 07:51
a57598587
等 级:
论坛游民
威 望:
4
帖 子:29
专家分:29
注 册:2022-1-24
第
10
楼
得分:0
使用9楼的函数最精简
成绩 = VAL(INPUTBOX("请输入学生成绩","成绩分类 "))
?ICASE(成绩>=90,"优",成绩>=80,"良",成绩>=70,"中",成绩>=60,"及格","差")
2022-05-07 12:55
18
1/2页
1
2
参与讨论请移步原网站贴子:
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