在窗体上画一个文本框，然后编写如下事件过程:

Private Sub Text1_KeyPress(KeyAscii As Integer)
    Dim char As String
    char = Chr(KeyAscii)
    KeyAscii = Asc(UCase(char))
    Text1.Text = String(6, KeyAscii)
End Sub

程序运行后，如果在键盘上输人字母“a”，则文本框中显示的内容是什么？

    解：在该事件过程中，参数KeyAscii是所按键的ASCII码，区分大小写。程序运行后，如果在键盘上输人字母“a”，则KeyAscii的值为97,经过转换后，KeyAscii的值变为 65。最后执行String函数，在文本框中输人6个“A”，即：
AAAAAA

来源：visual basic程序设计教程第四版答案(刘炳文)

本文链接：http://www.wb98.com/vb1/post/vb_10.3.html