要实现下图功能,为什么计算结果从25-370开始显示啊,我想要从15-250开始显示啊.是不是循环写的有问题,肯请帮助!
代码如下:
Private Sub Command2_Click()
With MSFlexGrid2
    Dim a, b, c, d, e, n, x, row, col As Integer
   
    x = MSFlexGrid1.Rows
   
    For n = 1 To x - 2
  
   
    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))
   
    MSFlexGrid2.Rows = c - a + 2
    MSFlexGrid2.Cols = 2
      e = Int((d - b) / (c - a))
        MSFlexGrid2.TextMatrix(0, 0) = "高度"
        MSFlexGrid2.TextMatrix(0, 1) = "容积"
      MSFlexGrid2.TextMatrix(1, 0) = e
    For row = 1 To MSFlexGrid2.Rows - 1
   
   MSFlexGrid2.TextMatrix(row, 0) = a
   
    MSFlexGrid2.TextMatrix(row, 1) = b
     a = a + 1
     b = b + e
     Next row
   
     Next n
   
     End With
     
   
   
   

End Sub

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

n是要从1开始啊

应该是 For row = 1 To MSFlexGrid2.Rows - 1 中的row错了,但是怎么该呢?

怎么该啊?

怎么每人帮忙啊!

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

计算公式就是插值法.
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))

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

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

谢谢!

怎么还是这样可能代码错了.
 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