单项选择题

窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下: Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) Dim c As String c=UCase(Chr(KeyCode)) Text2.Text=Chr(Asc(c)+2) End Sub 当向文本框Text1中输入小写字母a时,文本框Text2中显示的是( )。

A.A
B.a
C.C
D.c