在计算机VB课上有一个例题，回来按照书本教程试做之后发现存在问题。原题是要做一个简单的大小写切换工程

Question

在text1中输入英文，在text2中会对应的出现输入内容的大小写转换。但是，在将text1中的字母删除之后text2内的内容并没有消失，百度之后知道退格键也有自己的ASCII码，但是不知道怎样修改代码才能达到同步删除的效果，求大神指教。具体情况如图。

Answer 1

稍作修改即可，把删除键排除在外

Private Sub Text1_KeyPress(KeyAscii As Integer)
    On Error Resume Next
    If Chr(KeyAscii) = vbBack Then Text2 = Left(Text2, Len(Text1) - 1): Exit Sub
    
    Dim x As String, y As String
    x = Chr(KeyAscii)
    y = Chr(KeyAscii)
    If x >= "A" And x <= "Z" Then y = Chr(KeyAscii + 32)
    If x >= "a" And x <= "z" Then y = Chr(KeyAscii - 32)
    Text2 = Text2 + y
    
End Sub

追问

按照你的办法解决了问题！之前知道应该排除退格键的，但是不知道怎样将text的内容删去一格，现在实在是茅塞顿开！太感谢了！以后有问题还可以继续请教吗？

Answer 2

你把代码抄这里，我帮你。追问

太感谢了！