MSHFlexGrid显示不了计算的输出结果，怎么办？

Question

我通过编程计算出的结果在MSHFlexGrid中显示不了，请问各位这是怎么一回事阿？我该怎么办？
请各位高手能够帮忙！

Answer 1

Private Sub Form_Load()
 Me.Width = 3105
 front = frmChoose.Combo1.Text
 
 MSHFlexGrid2.Clear
  With MSHFlexGrid2
    .cols = front + 1
    .rows = 13
    
    '表头
    For n = 1 To front
    .TextMatrix(0, n) = n & "档"
    .ColWidth(n - 1) = 1700
    Next n
    For n = 0 To 12
    .RowHeight(n) = 440
    Next n
    .TextMatrix(0, 0) = "档位"
    .TextMatrix(1, 0) = "传动比"
    .TextMatrix(2, 0) = "转速(r/min)"
    .TextMatrix(3, 0) = "轴的最小直径(mm)"
    .TextMatrix(4, 0) = "轴传递最大扭矩(N.m)"
    .TextMatrix(5, 0) = "圆周力(N)"
    .TextMatrix(6, 0) = "径向力(N)"
    .TextMatrix(7, 0) = "支座反力RA(N)"
    .TextMatrix(8, 0) = "支座反力RB(N)"
    .TextMatrix(9, 0) = "弯矩(N.m)"
    .TextMatrix(10, 0) = "当量系数"
    .TextMatrix(11, 0) = "当量最大弯矩(N.m)"
    .TextMatrix(12, 0) = "校核轴径(mm)"
    
    End With
   
'参数赋值
Ne = Val(Text1.Text)    '发动机的额定功率
ηZ1 = Val(Text2.Text)   '高效区工作时变矩器的效率
CZ = Val(Text4.Text)     '与材料有关的系数
Mtmax = Val(Text5.Text)    '涡轮的转矩
αZ = Val(Text6.Text)     '分度圆压力角
LA = Val(Text7.Text)   '距A端距离
LB = Val(Text8.Text)   '距B端距离
σZ11 = Val(Text10.Text) '距A端距离
σZ12 = Val(Text11.Text)   '距B端距离
End Sub

Answer 2

我该怎么编程才能够把结果输出出来，而不是一个空表格！
---------------------------------------------------------
问题是，你只是填写了表格的第一行和第一列，而其中的数据你并没有代码来填啊。
你应该把你各档位的数据一项项填进去，就是这样，你应该仔细看MSHFlexGrid的说明