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

我有他的原程序，可是附件上传有限制，所以想通过qq请您指教一下。

他的代码写在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

[ 本帖最后由 TonyDeng 于 2015-5-16 11:30 编辑 ]

弱弱的问，怎么打开Column9.Text1.LostFocus事件？

位置在这里：先在表单上选中Grid，然后在右侧的屬性对话窗中点击上部的下拉框拉下，找到Column9，选其中的Text1控件。

找到了，可是我觉得代码太复杂了，如何精简。另外您说的na变量的意义是什么？

na是文本框Text1的值，就是输入的数据。

如何精简？查表法咯。这种处理本来不用写在代码中，那叫硬编码，当然缺乏灵活性，稍有修改，就迫使你改程序，正是你现在这样了。对比表放在外部，处理代码查表取对应的结果就可以了，表可以在外面维护的，这样不用改程序。

这人的界面功夫做的不错，可惜逻辑处理弱了一点。

谢谢了，我找了作个一晚，今一上午都没找到，你给我点出来了。麻烦您给点建议，有可能的话写一新的，给我学习学习。vf我只会简单的用用，编程实在是文盲级别的。不胜感激。

[ 本帖最后由 chychychy 于 2015-5-16 11:51 编辑 ]

原来的程序是用vfp6写的，我用vfp9，不好挂接。别人有用vfp6的帮你吧。