Text2.Text = Text2.Text&aa 这样表示为什么编译的时候会出现语法错误？
Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim aa As String * 1
aa = Chr$(KeyAscii) '将ascii码转换成字符
Select Case aa
Case "A" To "Z"
aa = Chr$(KeyAscii + 32)
Case "a" To "z"
aa = Chr$(KeyAscii - 32)
Case ""
aa = ""
Case Else
aa = "*"
End Select
Text2.Text = Text2.Text&aa
End Sub
