要实现下图功能,为什么计算结果从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]]

For n = 1 To x - 2
这句
n要从0开始.

n是要从1开始啊

看错了.

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

第一次循环时row是应该从1开始.到第二次循环时,row就应该从12开始了.
出现这样的结果是你每次都认row从1开始循环了.

怎么该啊?

For row = 10 * (n-1)+1 To 10 * (n-1)+MSFlexGrid2.Rows - 1
   
这样试试

怎么每人帮忙啊!

不好意思，没看懂