向各位大鸟请教一个问题

刚开始学VB 兴趣也蛮大的 但是遇到一个题目  老是调不好 题目如下
编写一个对输入字符进行转换的程序.转换规则为, 将其中的大写字母转换成小写字母,小写字母转换为大写字母,空格不转换,其余转换成"%". 我的代码如下
Private Sub Command1_Click()
End

End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim aa As String * 1
aa = Chr$(KeyAscii)
Select Case aa
Case "A" To "Z"
aa = Chr$(KeyAscii + 32)
Case "a" To "z"
aa = Chr$(KeyAscii - 32)
Case ""
Case Else
aa = "%"
End Select
Text2.Text = Text2.Text & aa
End Sub
但是当在TEXT1中键入一个字符时,TEXT2中前面总有个空格 ,但当清屏后 在输入时则没有这个问题了,而重新启动程序又出现问题  还有那个对空格的要求 我不能实现,按了空格 在TEXT2中还是出现%.请各位大鸟帮帮我吧  谢谢了

Case " "
注意：两个 ” 之间打上一个空格就行了，而不是两个 “ 紧挨在一起的

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text1.SelStart = 0
End Sub
原程序加上上面一段应该能解决开始有空格的问题，不见的是个好办法，不过我用这个办法解决你的问题了

还有你的Dim aa As String * 1的* 1也显得多余!!!!
方法同上 Case " "
注意：两个 ” 之间打上一个空格就行了，而不是两个 “ 紧挨在一起的
可我测试后怎么没发现TEXT2有空格呢?

[此贴子已经被作者于2005-5-21 14:10:10编辑过]

没有空格哦，只要把那个case""改成case" "即可