什么叫停止,可以百度HI找我。Private Sub Form_KeyPress(KeyAscii As Integer) Cls Static istr As String If KeyAscii = 32 Then end istr = istr & Chr(KeyAscii) Print StrReverse(istr)End SubPrivate Sub Form_Load() Me.KeyPreview = TrueEnd Sub