'是下模橡标吗?自己修改一下,我看是索源码州引号的雹蔽吧Private Sub Text1_Click(Index As Integer) Dim a a = "下标为:" & Text1.LBound & vbNewLine & "索引号:" & Index MsgBox aEnd Sub