给你个例子:    Dim strbuff As String
    Dim intfile As Integer
    Dim intcol As Integer
    Dim introw As Integer
    '注意!要先指定最大范围
    msflexgrid1.Cols = 4
    msflexgrid1.Rows = 6    For introw = 0 To 5
      For intcol = 0 To 3
        strbuff = Str(introw) + Str(intcol)
        msflexgrid1.Col = intcol
        msflexgrid1.Row = introw
        msflexgrid1.Text = strbuff
      Next intcol
    Next introw