Option Explicit Private Sub Command1_Click() Dim i As String 'i没用而且一般不会把它定义为string类型的 i = Text2 Label1.Caption = Mid(Text1, Val(Text2), 1) '这个1可能是i？ End Sub Private Sub Form_Activate() Text1 = "abcde" Text2 = 3 End Sub
Private Sub Command1_Click() Dim i As Integer, c1 As String c1 = Text1.Text : i = Val(Text2.Text) If i <= Len(c1) Then Label1.Caption = Mid(c1, i, 1) Else c1 = "文本框 Text2 中输入的数据太大！" MsgBox c1, 0 + 64, "系统提示" End If End Sub
菠萝蜜
