Question

VB代码求解：关于大小写字母转换的 Case "A"To"Z" aa=Chr$(KeyAscii+32) Case "a"To"z" aa=Chr$(KeyAscii-

32）这段程序启动后，我操作的时候，为何大写字母输入后并没有显示转换成小写字母呢？小写字母是完成转换的。是程序的问题吗？
貌似仍旧是有问题的啊。
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim aa As String * 1
aa = Chr$(KeyAscii)
Select Case aa
Case "A" To "Z"
aa = Chr$(KryAscii + 32)
Case "a" To "z"
aa = Chr$(KeyAscii - 32)
Case " "
Case Else
aa = "*"
End Select
Text2.Text = Text2.Text & aa

End Sub
这个是我过程的代码。麻烦再帮我看看：我的启动结果是：输入小写字母可以转换为大写字母的，空格不转换，其他符号转换成*，都完成了，只有输入大写字母没法转换成小写字母。请问，这个问题应该是出现在哪里啊？

Answer 1

注释是为了方便以后维护
以后有可能是其他程序员维护，一看注释就知道这代码是什么
建议养成注释的习惯！

页面执行的开始时间这个应该是用于显示整个页面所花的时间
在页面底部应该还会有一个取当前时间的，两个时间差就是当前页面所用时间

如果对您有帮助，请记得采纳为满意答案，谢谢！祝您生活愉快！

Answer 2

Private Function aa(b)
KeyAscii = Asc(b)
Select Case b
Case "A" To "Z"
aa = Chr$(KeyAscii + 32)
Case "a" To "z"
aa = Chr$(KeyAscii - 32)
End Select
End Function

Answer 3

Case "A" To "Z"
aa = Chr$(KryAscii + 32)

KeyAscii打错了