以下是引用TonyDeng在2015-5-16 11:29:26的发言:
他的代码写在Column9.Text1.LostFocus事件中,你自己改就是了,我不知道他的变量意义和处理逻辑是什么。
Na=this.Value
IF na<0
MESSAGEBOX('结果不可能为负的!',0+16,'是不是输入错误了?')
endif
if na<=0
repl cjp with 0
endif
&&女生组判分
if na>0 and na<=3.24 and 场次='B'
repl cjp with 100
endif
if na>3.24 and na<=3.27 and 场次='B'
repl cjp with 98
endif
if na>3.27 and na<=3.29 and 场次='B'
repl cjp with 96
endif
if na>3.29 and na<=3.32 and 场次='B'
repl cjp with 94
endif
if na>3.32 and na<=3.35 and 场次='B'
repl cjp with 92
endif
if na>3.35 and na<=3.38 and 场次='B'
repl cjp with 90
endif
if na>3.38 and na<=3.42 and 场次='B'
repl cjp with 87
endif
if na>3.42 and na<=3.46 and 场次='B'
repl cjp with 84
endif
if na>3.46 and na<=3.50 and 场次='B'
repl cjp with 81
endif
if na>3.50 and na<=3.54 and 场次='B'
repl cjp with 78
endif
if na>3.54 and na<=3.58 and 场次='B'
repl cjp with 75
endif
if na>3.58 and na<=4.03 and 场次='B'
repl cjp with 72
endif
if na>4.03 and na<=4.08 and 场次='B'
repl cjp with 69
endif
if na>4.08 and na<=4.13 and 场次='B'
repl cjp with 66
endif
if na>4.13 and na<=4.18 and 场次='B'
repl cjp with 63
endif
if na>4.18 and na<=4.23 and 场次='B'
repl cjp with 60
endif
if na>4.23 and na<=4.30 and 场次='B'
repl cjp with 50
endif
if na>4.30 and na<=4.37 and 场次='B'
repl cjp with 40
endif
if na>4.37 and na<=4.44 and 场次='B'
repl cjp with 30
endif
if na>4.44 and na<=4.51 and 场次='B'
repl cjp with 20
endif
if na>4.51 and 场次='B'
repl cjp with 10
endif
&&男生组判分
if na>0 and na<=3.30 and 场次='A'
repl cjp with 100
endif
if na>3.30 and na<=3.36 and 场次='A'
repl cjp with 98
endif
if na>3.36 and na<=3.38 and 场次='A'
repl cjp with 96
endif
if na>3.38 and na<=3.42 and 场次='A'
repl cjp with 94
endif
if na>3.42 and na<=3.46 and 场次='A'
repl cjp with 92
endif
if na>3.46 and na<=3.50 and 场次='A'
repl cjp with 90
endif
if na>3.50 and na<=3.54 and 场次='A'
repl cjp with 87
endif
if na>3.54 and na<=3.58 and 场次='A'
repl cjp with 84
endif
if na>3.58 and na<=4.02 and 场次='A'
repl cjp with 81
endif
if na>4.02 and na<=4.06 and 场次='A'
repl cjp with 78
endif
if na>4.06 and na<=4.10 and 场次='A'
repl cjp with 75
endif
if na>4.10 and na<=4.15 and 场次='A'
repl cjp with 72
endif
if na>4.15 and na<=4.20 and 场次='A'
repl cjp with 69
endif
if na>4.20 and na<=4.25 and 场次='A'
repl cjp with 66
endif
if na>4.25 and na<=4.30 and 场次='A'
repl cjp with 63
endif
if na>4.30 and na<=4.35 and 场次='A'
repl cjp with 60
endif
if na>4.35 and na<=4.45 and 场次='A'
repl cjp with 50
endif
if na>4.45 and na<=4.55 and 场次='A'
repl cjp with 40
endif
if na>4.55 and na<=5.05 and 场次='A'
repl cjp with 30
endif
if na>5.05 and na<=5.15 and 场次='A'
repl cjp with 20
endif
if na>5.15 and 场次='A'
repl cjp with 10
endif
&&计算总分和折算分数
rEPLACE cjtc WITH cjp*0.3+cjq*0.2
rEPLACE zscj WITH cjtc*0.5
一个简单问题这么长的代码,真是简单分支的专家。路过