在窗体上有一个文本框，其名称为Text1，编写下列事件过程：

Private Sub Text1_KeyPress(KeyAscii As Integer)

D．im str As String

str=Chr(KeyAscii)

KeyAscii=Asc(UCase(str))

Text1.Text=Stririg(2,KeyAscii)

E．nd Sub

程序运行后，如果在键盘上输入字母“a”，则在文本框Text3中显示的内容为( )。

A．aaa

B．AAA

C．AA

D．aa

[单选题]（17）在窗体上有一个文本框，其名称为Text1，编写下列事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer ) Dim str As String Str=Chr(KeyAscii) KeyAscii=Asc(UCase(str)) Text1.Test=String(2,KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“a”则在文本框Text3中显示的内容为 A.aaa B.AAA C.AA D.aa

[单选题]在窗体上画1个文本框，其名称为Text1，然后编写如下过程：Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode)E．nd SubPrivate Sub Text1_Key Up(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode+2)E．nd Sub程序运行后，把焦点移到文本框中，此时如果敲击“A”A．B．C．D．

[单选题]在窗体上画一个文本框,其名称为Text1,然后编写如下事件过程:Private Sub Text1_KeyPress(KeyAscii As Integer)D．im str As StringStr=Chr(KeyAscii)KeyAscii=Asc(UCase (str))Textl.Text=String(2, KeyAscii)E．nd Sub程序运行后,如果在键盘上输入字母"b",则在文本框Text1中显示的内容是A．bbbB．BBBC．BBD．bb

[单选题]在窗体上面有一个文本框，其名称为Text1，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String str=Chr(KeyAscii) KeyAscii=Asc(UCase(str)) TextText=String(2,KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“a”，则在文本框Text1中显示的内容为( )。A．aaaB．AAAC．AAD．aa

[单选题]在窗体上面有一个文本框，其名称为Text1，编写如下事件过程： 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”，则在文本框Text3中显示的内容为( )。A．aaaB．AAAC．AAD．aa

[单选题]在窗体上画一个文本框，其名称为Text1，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim sb As String Str=Chr(KcyAscii) KeyAscii=Asc(UCase(str)) Text1.Text=String(2，KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“b”，则在文本框Text1中显示的内容是A．bbbB．BBBC．BBD．bb

[单选题]（ 29 ）在窗体上画 1 个文本框，其名称为 Text1 ，然后编写下列过程：Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode)E．nd SubPrivate Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode+2)E．nd Sub程序运行后，把焦点移到文本框中，此时如果敲击 <A> 键

[单选题]在窗体上一个文本框，其名称为Text1,然后编写如下事件过程：PrivateSubText2_KeyPress(KeyAsciiAsInteger)D．imstrAsString,nAsIntegerstr=Ucase(Chr(KeyAscii))n=Len(str)Text1=String(n,str)E．ndSub程序运行后，如果在TEXT2中通过键盘上输入单字母"k"，则在文本框Text1中显示的内容为( )A．kB．KC．KKD．Kk

[试题]（ 11 ）在窗体上画 1 个文本框，名称为 Text1 ，然后编写下列事件过程：Private Sub Form_Load( )Open"d:/temp/dat.txt"For Output As#1Text1.Text= “ “E．nd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)lf ( 13 ) =13 ThenIf UCase(Text1.Text)= ( 14 ) ThenC．lose 1E．ndE．lseWrite#1 ,

[单选题]在窗体上画1个文本框，其名称为Text1，然后编写如下过程： Pfivme Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode＋2) End Sub 程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为______。