[單項(xiàng)選擇題] 在窗體上畫(huà)一個(gè)文本框，然后編寫(xiě)如下事件過(guò)程：

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

程序運(yùn)行后，如果在鍵盤(pán)上輸入字母“a”，則文本框中顯示的內(nèi)容為 ______。

A．a(chǎn)

B．A

C．a(chǎn)aaaaaa

D．AAAAAAA

D

[評(píng)析] 該事件過(guò)程中首先用Chr函數(shù)記錄下輸入的字符，然后用UCase函數(shù)將其轉(zhuǎn)化為大寫(xiě)，再用Asc函數(shù)記錄下其碼值。最后使用String函數(shù)將其重復(fù)6遍并輸出到文本框中。當(dāng)文本框中的文本內(nèi)容發(fā)生變化的時(shí)候，會(huì)觸發(fā)文本框的Change事件，而KeyPress事件是在Change事件之前觸發(fā)的，在發(fā)生KeyPress事件之前，尚未觸發(fā)Change事件。在KeyPress事件中，改變了文本框的Text屬性，所以會(huì)觸發(fā)Change事件，之后，鍵盤(pán)輸入的信息“a”才在變?yōu)榇髮?xiě)之后輸入文本框，文本框中最終顯示的是7個(gè)“A”。