今天遇到这样一个问题：
窗体上画一文本框，编写代码如下:
###############################################
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim str As String
str = Chr(KeyAscii)
KeyAscii = Asc(UCase(str))
Text1.Text = String(2, KeyAscii)
End Sub
#################################################
问：程序运行后，按字母“a”，文本框中显示的内容是什么？

我只知道 Text1.Text = String(2, KeyAscii) 这句代码中的string语句产生2个A，所以文本框中显示的内容应该是AA，才对吧？！ 可程序运行结果是3个A,即 "AAA"。

希望热心的朋友给我点点拨，在这里先谢谢了!
..........................................................
问题明白了，谢谢大家了啊！

[此贴子已经被作者于2007-8-2 12:43:26编辑过]

可最后一句是赋值语句啊，text1.text被赋值为2个A的啊！刚才的不保留了吧？

[此贴子已经被作者于2007-8-2 13:02:43编辑过]

你的说法不完全正确，我刚刚试了试，我输入的字符在前面，后面俩个是string语句显示出来的。

我试了试，我按a，输出是A**， 光标在A后面闪，不是在**后面闪。 请麻烦您也试试自己的方法，帮忙给我个更好的解释好么？

似乎又懂了。。。。。
我按下的时候是焦点在文本框的最前面；string语句后，文本框的内容为2个**，同时输出在屏幕上，end语句后把我按下的字母也输出到屏幕上，因为焦点在最前，所以最后这个A输出在2个**前面，光标也在紧挨A后闪，是吧？到这时候，事件结束，我才看到屏幕的结果，是A**， 这样解释比较合理了。。。应该是对的吧！
谢谢大家！