Dim a, b, c, d, e, n, x, row, col As Integer
Dim lngCount    As Long

    With MSFlexGrid2
   
        x = MSFlexGrid1.Rows
        
        lngCount = 1
        .Rows = lngCount
        .Cols = 2
        .TextMatrix(0, 0) = "高度"
        .TextMatrix(0, 1) = "容积"
        
        For n = 1 To x - 2
            
            lngCount = lngCount + 1
            .Rows = lngCount
            
            a = Val(MSFlexGrid1.TextMatrix(n, 0))
            b = Val(MSFlexGrid1.TextMatrix(n, 1))
            
            e = Int((d - b) / (c - a))
            
            .TextMatrix(lngCount - 1, 0) = e
            
            .TextMatrix(lngCount - 1, 0) = a
            
            .TextMatrix(lngCount - 1, 1) = b
            
            a = a + 1
            b = b + e
            
        Next n
   
    End With
没运行，不知道对错。看你自己改了

还是不行.我是要显示成这样的.

MSFlexGrid1是什么数据？看下，还有计算公式给我

计算公式就是插值法.
a = Val(MSFlexGrid1.TextMatrix(n, 0))
b = Val(MSFlexGrid1.TextMatrix(n, 1))
c = Val(MSFlexGrid1.TextMatrix(n + 1, 0))
d = Val(MSFlexGrid1.TextMatrix(n + 1, 1))
e = Int((d - b) / (c - a))

Dim a, b, c, d, e, n, x, row, col As Integer
Dim lngCount    As Long
Dim iRows       As Long

    With MSFlexGrid2
   
        x = MSFlexGrid1.Rows
        If x < 3 Then Exit Sub
        
        a = Val(MSFlexGrid1.TextMatrix(0, 0))
        b = Val(MSFlexGrid1.TextMatrix(0, 1))
        c = Val(MSFlexGrid1.TextMatrix(1, 0))
        d = Val(MSFlexGrid1.TextMatrix(1, 1))
        
        e = Int((d - b) / (c - a))
        
        iRows = MSFlexGrid1.Rows
        
        lngCount = 1
        .Rows = lngCount
        .Cols = 2
        .TextMatrix(0, 0) = "高度"
        .TextMatrix(0, 1) = "容积"
        
        For n = a To Val(MSFlexGrid1.TextMatrix(iRows - 1, 0))
            
            lngCount = lngCount + 1
            .Rows = lngCount
            
            
            
            .TextMatrix(lngCount - 1, 0) = n
            
            .TextMatrix(lngCount - 1, 1) = (n - a) * e + b
            
        Next n
   
    End With

再看看
在文本中输入数,MSFlexGrid1的rows是要变的.如输入5,则就是5行.

[[italic] 本帖最后由 lzxagy 于 2007-12-27 11:14 编辑 [/italic]]

a = Val(MSFlexGrid1.TextMatrix(0, 0))
        b = Val(MSFlexGrid1.TextMatrix(0, 1))
        c = Val(MSFlexGrid1.TextMatrix(1, 0))
        d = Val(MSFlexGrid1.TextMatrix(1, 1))
改成
a = Val(MSFlexGrid1.TextMatrix(1, 0))
        b = Val(MSFlexGrid1.TextMatrix(1, 1))
        c = Val(MSFlexGrid1.TextMatrix(2, 0))
        d = Val(MSFlexGrid1.TextMatrix(2, 1))

谢谢!

怎么还是这样可能代码错了.
 Dim a, b, c, d, e, n, m, x, row, col As Integer
    Dim lngCount    As Long
    Dim iRows       As Long

    With MSFlexGrid2
   
    x = MSFlexGrid1.Rows
   
    For m = 1 To x - 2
   
    a = Val(MSFlexGrid1.TextMatrix(m, 0))
    b = Val(MSFlexGrid1.TextMatrix(m, 1))
    c = Val(MSFlexGrid1.TextMatrix(m + 1, 0))
    d = Val(MSFlexGrid1.TextMatrix(m + 1, 1))
   
    e = Int((d - b) / (c - a))
        
        iRows = MSFlexGrid1.Rows
        
        lngCount = 1
        .Rows = lngCount
        .Cols = 2

        MSFlexGrid2.TextMatrix(0, 0) = "高度"
        MSFlexGrid2.TextMatrix(0, 1) = "容积"
   
     For n = a To Val(MSFlexGrid1.TextMatrix(iRows - 1, 0))
            
            lngCount = lngCount + 1
            .Rows = lngCount
            
            
            .TextMatrix(lngCount - 1, 0) = n
            
            .TextMatrix(lngCount - 1, 1) = (n - a) * e + b

   
     Next n
   

      Next m
     End With

a = Val(MSFlexGrid1.TextMatrix(m, 0))
    b = Val(MSFlexGrid1.TextMatrix(m, 1))
    c = Val(MSFlexGrid1.TextMatrix(m + 1, 0))
    d = Val(MSFlexGrid1.TextMatrix(m + 1, 1))
为什么要这样改?
我给你的代码并没有错.

我给你的代码显示出来哪里错了?
你截个图