正在学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的后一项；求和公式不会写……）
望大虾们指点一二 能窥得玄机一二 不胜感激！！！

用两个for 循环，再用IF判断是 奇数行还是偶数行，应该可以写出你要的公式来。

???

Option Explicit

Private Sub cmdO_Click()
Dim FilePath As String

    Text1.Text = "": Text1.ToolTipText = ""
    Dialog1.ShowOpen
    FilePath = Dialog1.FileName
    
    If FilePath <> "" Then
        Text1.Text = FilePath
        Text1.ToolTipText = Text1.Text
    End If
    
    FilePath = ""
    
End Sub

Private Sub cmdS_Click()
Dim FilePath As String, TempString As String, Temp() As String
Dim FileNum As Integer, i As Integer
Dim All_F As Double, All_S As Double

    FilePath = Trim(Text1.Text)
    
    FileNum = FreeFile: i = 0: All_F = 0: All_S = 0
    Open FilePath For Input As #FileNum
        Do While Not EOF(FileNum)
            Line Input #FileNum, TempString
            
            If TempString <> "" Then
                
                Temp = Split(TempString, " ")
                
                For i = 0 To UBound(Temp) - 1
                    If i Mod 2 = 0 Then
                        All_F = All_F + CDbl(Temp(i))
                    Else
                        All_S = All_S + CDbl(Temp(i))
                    End If
                Next i
                
                Erase Temp
            End If
        Loop
    Close #FileNum
    
    MsgBox ((All_F * All_S) / 2)
    
End Sub

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

其实这并不深～

[ 本帖最后由 wube 于 2011-6-24 20:10 编辑 ]