帮忙分析一下简单的代码

Question

在窗体上一个文本框，其名称为Text1,然后编写如下事件过程：
                      Private Sub Text1_KeyPress(KeyAscii As Integer)
                          Dim str As String ,n As Integer
                          str = UCase (Chr(KeyAscii))
                          n=Len(str)
                          m=String(n, str)
                          Text1.text=m
                     End Sub
程序运行后，如果在键盘上输入单字母"k"，则在文本框Text1中显示的内容为“kK”。
为什么？不是只有一个“K”吗？str的内容为“K”，n为1，m的内容是“K”。结果怎么是“kK”。请高手帮忙分析一下。谢谢！

Answer 1

呵呵!~~~我知道了，我告诉你错误再那里
因为m得确是K，所以text接受到K，但是同时间text也经受到了键盘的小写k了….你只要最后msgbox一下m就可以看见结果是没有错误的，是最后text接受了小写k的问题，其实你多打几个字母很快就发现了