这是一个学生体育测试,需要将体育测试原始成绩一个一个录入,并根据学生跑的快慢,折算一个分数。考的项目和标准年年变,我想学习并改进一下。所以求助高手。谢谢。我qq313693957
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