将窗体的KeyPreview属性设置为True，然后编写如下过程： Private Sub Form. KeyDown(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyUp(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode+2) End Sub 程序运行后，如果按“A”键，则输出的结果为A．A AB．A BC．A CD．A D
将窗体的KeyPreview属性设置为True，然后编写如下过程： Private Sub Form. KeyDown(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_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
（ 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
把窗体的KeyPreView属性设置为True，并编写如下两个事件过程：Private Sub Form_KeyDown（KeyCode As Integer, Shift As Integer）Print KeyCodeEnd SubPrivate Sub Form_KeyPress（KeyAscii As Integer）Print KeyAsciiEnd Sub程序运行后，如果按下B键，则在窗体上输出的数值是 【12】 和 【13】 。
在窗体上画一个命令按钮Command1和两个文本框，名称分别为Text 1和 Text 2 Text 2。编写如下两个事件过程： Dim str As String, strl As String Private Sub form_load() TextText = " " TextText = " " TextEnabled = False TextEnabled = False End Sub Private Sub Form. KeyPress(KeyAscii As Integer) str= strChr(KeyAscii) End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) str1 = strlChr(KeyCode) End Sub Private Sub Command1_Click() TextText =str TextText = str1 str= " " str1= " " End Sub 当在设计阶段把窗体KeyPreview属性设置为True时，程序运行过程中，在键盘上输入小写字母abc，然后单击命令按钮，则文本框Text1中显示的内容为 ______ 。A．abcB．不显示任何信息C．ABCD．出错
在窗体上画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
把窗体的KeyPreview属性设置为Tree，然后编写如下事件过程 Private Sub Form_KeyPress(KeyAscii As Integer) Dim ch As String ch=Chr(KeyAscii) KeyAscii=Asc(UCase(ch)) Print Chr(KeyAscii+2) End Sub 程序运行后，按键盘上的“A”键，则在窗体上显示的内容是______。A． AB．BC．CD．D
把窗体的KeyPreview属性设置为True，然后编写如下事件过程Private Sub Form_KeyPress（KeyAscii As Integer）Dim ch As Stringch = Chr（KeyAscii）KeyAscii = Asc（UCase（ch））Print Chr（KeyAscii + 2）End Sub程序运行后，按键盘上的“A”键，则在窗体上显示的内容是（ ）。A．AB．BC．CD．D
编写如下两个事件过程： Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在一般情况下(即不按住“Shift”键和锁定大写键时)运行程序，如果按“A”键，则程序输出的结果是A． A AB．a AC． A aD．a a
在窗体上画一个命令按钮和一个文本框，并将窗体的KeyPreview属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Form_Load() Show Text1.Text=" " Text1.SetFocus End Sub Private Sub Command1_Click() Text1.Text = Ucase(SaveAll) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序运行后，在键盘上输入abcdefg，单击命令按钮，则文本框中显示的内容为A．abcdefgB．不显示任何信息C．ABCDEFGD．出错
把窗体的KeyPreview属性设置为True，并编写如下两个事件过程：Private Sub Form_KeyDown(KcyCode As Integer,Shift As Integer)Print Key Code；End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Print Key AsciiEnd Sub程序运行后，如果按下A键，则在窗体上输出的数值为【 】和【 】。
编写如下事件过程： Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) If(Button And 3)=3 Then Print "AAAA" End If End Sub 程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键为______。A．左B．右C．同时按下左、右D．按什么键都不显示
窗体上添加一个文本框Text1，编写如下代码： Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode+5)KeyCode End sub 程序运行时，在文本框中输入“ab”，则在窗体上输出为( )。A．F65 G66B．F65 F66C．G66 F65D．G65 G66
把窗体的KeyPreview属性设置为True，然后编写如下事件过程： Prirate Sub Form_KeyPress(KeyAscii As Integer) Dim ch As String ch=Chr(KeyAscii) KeyAscii=Asc(UCase(ch)) Print Chr(KeyAscii+2) End Sub 程序运行后，按键盘上的A键，则在窗体上显示的内容是A．AB．BC．CD．D
在窗体上画—个名称为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text==" " Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single，Y As Single) Print“程序设计” End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print "VisualBasic"； End Sub 程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容是 ______。A．Visual BasicB．程序设计C．A程序设计D．Visual Basic程序设计
在窗体上画一个名称为Text1的文本框，并编写如下程序： Private Sub Form Load() Show Text1.Text="" Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer,x As Single,Y As Single) Print"程序设计" End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print"Visual Basic"； End Sub 程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容_________。A．Visual BasicB．程序设计C．A程序设计D．Visual Basic程序设计
编写如下事件过程： Private Sub Form. KeyDown(KeyCode As Integer，Shift As Integer) If(Button And 3)=3 Then Print "AAAA" End If End Sub 程序运行后，为了在窗体上输出"AAAA"，应按下的鼠标键为 ______。A．左B．右C．同时按下左、右D．按什么键都不显示
在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Command1_Click() Text1.Text=UCase(SaveAll) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAseii) End Sub 程序运行后，在键盘上输入“abcdefg”，单击命令按钮，则文本框中显示的内容为 ______ 。A．abcdefgB．不显示任何信息C．ABCDEFGD．出错
编写了如下事件过程： Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) If(Button And 3)=3 Then Print "AAAA" End If End Sub 程序运行后，为了在窗体上输出"AAAA"，应按下的鼠标键是A．左B．右C．同时按下左和右D．按鼠标键没有反应
设有如下过程： Private Sub Form. KeyDpwn(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form. KeyUp(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+2) End Sub 若把窗体的KeyPreview属性设置为True，程序运行后，如果按“A”键，则输出结果为（ ）。A. A AB. A BC. A CD. A D
编写如下事件过程： Private Sub Form. KeyDown (KeyCode As Integer, Shift As Integer) Print Chr (KeyCode) End Sub Private Sub Form_KeyPress( KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在一般情况下(即不按住Shift键和锁定大写键时)运行程序，若按“T”键，则程序输出的结果是A．T TB．t TC．T tD．t t
在窗体上画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．
把窗体的KeyPreview属性设置为True，然后编写如下过程： Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyUp(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+2) End Sub 程序运行后，如果按“A”键，则输出结果为 ______。A．A AB．A BC．A CD．A D
把窗体的Key Preview属性设置为True，然后编写如下过程： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyUp(KeyVode As Integer, ShiftAs Integer) Print Chr(KeyCode+2) End Sub 程序运行后，如果按“A”键，则输出结果______。A．AB．AC．AD．A A B C D
在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，在属性窗口中把窗体的KeyPreview属性设置为True，然后编写如下程序： Diln S1 As String，S2 As String Private Sub Form. Load（ ） Text1．Text="" Text2．Text="" Text1．Enabled=False Text2．Enabled=False End Sub Private Sub Form. KeyDown(KeyCode As Integer，Shift As Integer) S2=S2＆Chr(KeyCode) End Sub Pri vate Sub Form. KeyPress(KeyAscii As Integer) S1=S1＆Chr(KeyAscii) End Sub Private Sub Command1 Click（ ） Text1．Text=S1 Text2．Text=S2 S1="" S2="" End Sub 程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为（ ）。A.abc和ABCB.空白C.ABC和abcD.出错
把窗体的KeyPreview属性设置为True,然后编写如下事件过程(KeyAscii As Integer)Dim ch As Stringch = Chr(KeyAscii)KeyAscii = Asc(UCase(ch))Print Chr(KeyAscii + 2)程序运行后,按键盘上的“A”键,则在窗体上显示的内容是( )。A.AB.BC.CD.D
把窗体的KeyPreview属性设置为True，然后编写如下过程： Private SubForm_KeyDown(KeyCode As Integer,Shift As Integer) PrintChr (KeyCode) End Sub Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) PrintChr(KeyCode+2) End Sub 程序运行后，如果按“A”键，则输出结果为 ______。A．A AB．A BC．A CD．A D
在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框，并把窗体的 KeyPreview 属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Form_ Load () Show Text1.Text = " " TextSetFocus End Sub Private Sub Command1 Click() TextText= LCase(SaveAll) End Sub Private Sub Form_ KeyPress (KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii) End Sub程序运行后，在键盘上输入ABCDEFG，单击命令按钮，则文本框中显示的内容为 ______。A．abodefgB．不显示任何信息C．ABCDEFGD．出错