你的题目要求的还是可以实现的，但是要是获取光标位置的字符，还没有见过， 第一个字符 = Mid(Text1.Text, 1, 1) n = 4 If n > Len(Text1.Text) Then n = Len(Text1.Text) 第N个字符 = Mid(Text1.Text, n, 1) MsgBox 第一个字符 & "," & 第N个字符
