以下是引用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