（ 29 ）在窗体上画 1 个文本框，其名称为 Text1 ，然后编写下列过程：Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode+2)End Sub程序运行后，把焦点移到文本框中，此时如果敲击 A 键，则输出结果为（ ）。A ） AAB ） ABC ） ACD ） AD
（ 29 ）在窗体上画 1 个文本框，其名称为 Text1 ，然后编写下列过程：
Private 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> 键，则输出结果为（ ）。
A ） A
A
B ） A
B
C ） A
C
D ） A
D
相关考题：
在窗体上画1个文本框，其名称为Text1，然后编写如下过程：Private Sub Text1_KeyDown（KeyCode As Integer,Shift As Integer）Print Chr（KeyCode）End SubPrivate Sub Text1_KeyUp（KeyCode As Integer，Shift As Integer）Print Chr（KeyCode+2）End Sub程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为。A．AAB．ABC．ACD．AD
在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Labell，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(Text1.Text)+0.5) Labell.Caption=Str(x) End Sub 程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是 ______。A．27B．28C．29D．30
在窗体上画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”键，则输出结果为______。A．A AB．A BC．A CD．A D
在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Label1，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(Text1.Text)+0.5) Label1.Caption=Str(x) End Sub 程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是： ______。A．27B．28C．29D．30
在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Labe11，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(TextText)+0.5) LabeCaption=Str(x) End Sub 程序运行后，在文本框中输入653，单击命令按钮，标签中显示的内容是______。A．27B．28C．29D．30
在窗体上画一个文本框，其名称为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
在窗体上画1个文本框，其名称为Text1，然后编写如下过程：Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Text1_Key Up(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode+2)End Sub程序运行后，把焦点移到文本框中，此时如果敲击“A”A．B．C．D．
在窗体上画一个文本框,其名称为Text1,然后编写如下事件过程:Private Sub Text1_KeyPress(KeyAscii As Integer)Dim str As StringStr=Chr(KeyAscii)KeyAscii=Asc(UCase (str))Textl.Text=String(2, KeyAscii)End Sub程序运行后,如果在键盘上输入字母"b",则在文本框Text1中显示的内容是A．bbbB．BBBC．BBD．bb