请大侠帮我看看哪儿错了？

Question

窗体中放一个MSFLEXGRID1   ,两个标签控件，运行老出错，程序如下：Private Sub Form_Load()
      MSFlexGrid1.Rows = 8   ' 设置行数和列数。
   MSFlexGrid1.Cols = 5
End SubPrivate Sub MSFlexGrid1_Click()
   ' 将文本放到当前单元中。
   MSFlexGrid1.Text = "Here"
   End Sub
Private Sub MSFlexGrid1_RowColChange()
    Msg = Chr(64 + MSFlexGrid1.Col)
   Mst = Msg & MSFlexGrid1.Row
   Label1.Caption = Msg
   
   
End SubPrivate Sub MSFlexGrid1_SelChange()
  Msg = "Selection: " & Chr(64 + MSFlexGrid1.SelStartCol)
   Msg = Msg & MSFlexGrid1.SelStartRow
   Msg = Msg & ":" & Chr(64 + MSFlexGrid1.SelEndCol)
    Msg = Msg & MSFlexGrid1.SelEndRow
    Label2.Caption = Msg
End Sub

Answer 1

你最好加上Option Explicit,这样强制检查类型,Msg最好定义成具体的类型.明显看到Private Sub MSFlexGrid1_RowColChange() 事件中第二行出来了个Mst

Answer 2

Private Sub Form_Load()
    MSFlexGrid1.Rows = 8  ' 设置行数和列数。
    MSFlexGrid1.Cols = 5
End SubPrivate Sub MSFlexGrid1_Click()
    ' 将文本放到当前单元中。
    MSFlexGrid1.Text = "Here"
End Sub
Private Sub MSFlexGrid1_RowColChange()
    Dim Msg As String
    Msg = Chr(64 + MSFlexGrid1.Col)
    Msg = Msg & MSFlexGrid1.Row
    Label1.Caption = Msg
End SubPrivate Sub MSFlexGrid1_SelChange()
    Dim Msg As String
    Msg = "Selection: " & Chr(64 + MSFlexGrid1.Col)
    Msg = Msg & MSFlexGrid1.Row
    Msg = Msg & ":" & Chr(64 + MSFlexGrid1.ColSel)
    Msg = Msg & MSFlexGrid1.RowSel
    Label2.Caption = Msg
End Sub

Answer 3

[Quote=引用 3 楼 qlming 的回复:]
谢谢你的帮助。

Answer 4

[Quote=引用 1 楼 sulipeng007 的回复:]
请看看我的另外一个问题能不能解决。