[单选题]

在窗体上画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 A

B.A B

C.A C

D.A D

参考答案与解析:

相关试题

在窗体上画1个文本框,其名称为Text1,然后编写如下过程:Private Su

[单选题]在窗体上画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.

  • 查看答案
  • 在窗体上画1个文本框,其名称为Text1,然后编写如下过程: PrivateSu

    [单选题]在窗体上画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”键,则输出结果为。A.AA.B.AB.

  • 查看答案
  • ( 29 )在窗体上画 1 个文本框,其名称为 Text1 ,然后编写下列过程:

    [单选题]( 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,然后编写如下事件过程: Private

    [单选题]在窗体上画一个文本框,其名称为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

    [单选题]在窗体上画一个文本框,其名称为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,然后编写如下程序: PrivateSub

    [试题]在窗体上画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)=______ThenC.lose 1E.ndE.lseWrite#1,______Text1.Text=""

  • 查看答案
  • 在窗体上一个文本框,其名称为Text1,然后编写如下事件过程:PrivateSu

    [单选题]在窗体上一个文本框,其名称为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 ,然后编写下列事件过程

    [试题]( 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 ,

  • 查看答案
  • 在窗体上面有一个文本框,其名称为Text1,然后编写如下事件过程:Private

    [单选题]在窗体上面有一个文本框,其名称为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 Su

    [单选题]在窗体上有一个文本框,其名称为Text1,编写下列事件过程:Private Sub Text1_KeyPress(KeyAscii As Integer)D.im str As Stringstr=Chr(KeyAscii)KeyAscii=Asc(UCase(str))Text1.Text=Stririg(2,KeyAscii)E.nd Sub程序运行后,如果在键盘上输入字母“a”,则在文本框Text3中显示的内容为( )。A.aaaB.AAAC.AAD.aa

  • 查看答案
  • 在窗体上画1个文本框,其名称为Text1,然后编写如下过程: Pfivme Su