正在学vb 有这样的实际问题：  
  69.67 5.83 69.54 5.82 69.35 5.79 69.07 5.76 68.80 5.73 68.63 5.70 68.53 5.66 68.34 5.62
  68.09 5.58 67.92 5.54 67.95 5.49 68.14 5.44 68.28 5.39 68.53 5.34 68.85 5.29 69.35 5.23
  69.50 5.18 69.36 5.11 69.06 5.05 68.56 4.99 67.60 4.93 66.26 4.86 64.69 4.80 62.88 4.73
  60.99 4.67 59.28 4.61 58.56 4.54 58.68 4.48 59.04 4.40 59.48 4.33 60.07 4.26 60.51 4.19
  60.94 4.11 61.29 4.04 61.82 3.96 62.44 3.88 63.13 3.81 63.83 3.73 64.56 3.66 65.42 3.59
  66.35 3.51 67.44 3.44 68.58 3.37 69.77 3.30 70.76 3.23 71.59 3.16 72.43 3.09 73.25 3.02
  73.69 2.95 73.66 2.88 73.36 2.81 73.13 2.74 73.12 2.67 73.14 2.60 73.25 2.54 73.31 2.47
  73.36 2.40 72.96 2.34 72.48 2.28 72.22 2.21 71.73 2.15 71.13 2.09 70.50 2.03 69.80 1.97
像这样的数据存在文本中，奇数行是力，偶数行是位移 想通过公式：求和从1到n （Fi+Fi+1）*（Si+1-Si
）/2  请问vb高手能够解决吗？（ps：其中的Fi+1和Si+1 指的Fi的后一项；求和公式不会写……）
望大虾们指点一二 能窥得玄机一二 不胜感激！！！

呵呵 谢谢咯！
我还没能学这么深 有些地方都看不懂
不过我会努力的 我先看书和教程 到一定程度后再回过来看这段代码
如果那时还有不理解的地方 还请大侠别骂我笨 呵呵
以后学习中遇到不懂的地方请多多指教！