程序代码：

Option Explicit
Dim r As Integer
Private Sub Command1_Click()
  r = Val(Text1.Text)
  If r < 2 Then Exit Sub
  MSHFlexGrid1.Rows = r + 1
End Sub

Sub Init_Grid()
  MSHFlexGrid1.Cols = 9
  MSHFlexGrid1.TextMatrix(0, 0) = "序号↓"
  MSHFlexGrid1.TextMatrix(0, 1) = "地基系数m"
  MSHFlexGrid1.TextMatrix(0, 2) = "极限侧阻力"
  MSHFlexGrid1.TextMatrix(0, 3) = "内摩阻角"
  MSHFlexGrid1.TextMatrix(0, 4) = "有效重度"
  MSHFlexGrid1.TextMatrix(0, 5) = "凝聚力"
  MSHFlexGrid1.TextMatrix(0, 6) = "极限端阻力"
  MSHFlexGrid1.TextMatrix(0, 7) = "厚度"
  MSHFlexGrid1.TextMatrix(0, 8) = "土类别Δ"
End Sub

Private Sub Form_Load()
  Init_Grid
End Sub