[单选题]

窗体上添加一个文本框Text1,编写如下代码: Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+5)&KeyCode End sub 程序运行时,在文本框中输入“ab”,则在窗体上输出为( )。

A.F65 G66

B.F65 F66

C.G66 F65

D.G65 G66

参考答案与解析:

相关试题

窗体上添加一个文本框Text1,编写如下代码:Private Sub Text1

[单选题]窗体上添加一个文本框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

  • 查看答案
  • 窗体上添加一个文本框Text1,编写下列代码:Private Sub Text1

    [单选题]窗体上添加一个文本框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

  • 查看答案
  • (17)窗体上添加了一个文本框Text1,编写下列代码: Private Sub

    [单选题](17)窗体上添加了一个文本框Text1,编写下列代码: Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+5)&KeyCode End Sub 程序运行时,在文本框中输入“ab”则在窗体上输出为 A.F65 G66 B.F65 F65 C.G66 F65 D.G65 G66

  • 查看答案
  • ( 32 )在窗体中有一个文本框 text1, 编写事件代码如下:Private

    [单选题]( 32 )在窗体中有一个文本框 text1, 编写事件代码如下:Private sub form_click()X=val(inputbox( “ 输入 x 的值 ” ))Y=1If x<> then y=2Text1.value=yE.nd sub打开窗体运行后。在输入框中输入整数 12 ,文本框 text1 中输出的结果是A. ) 1B. ) 2C. ) 3D. ) 4

  • 查看答案
  • 对文本框Text1编写如下事件过程:Private Sub Text1_KeyP

    [单选题]对文本框Text1编写如下事件过程:Private Sub Text1_KeyPress(KeyAscii As Integer)D.im b As Stringb = Chr(KeyAscii)KeyAscii = Asc(UCaseB、)E.nd Sub运行时,下列叙述正确的是( )。A. Text1中无法输入字符B. Text1中内容为"b"C. Text1中输入的字符都变为大写D. Text1中输入的字符都被转换成ASCII码

  • 查看答案
  • 设窗体上有一个名为Text1的文本框,并编写如下程序:Private Sub F

    [单选题]设窗体上有一个名为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 Sinqle) Print"程序设计" End Sub Private Sub Text1_Keynown(KeyCode As Integ

  • 查看答案
  • 设窗体上有一个名为Text1的文本框,并编写如下程序:Private Sub F

    [单选题]设窗体上有一个名为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,Sh

  • 查看答案
  • 设窗体上有一个名为Text1的文本框,并编写如下程序:Private Sub F

    [单选题]设窗体上有一个名为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,Sh

  • 查看答案
  • 设窗体上有一个名为Text1的文本框,并编写如下程序:Private Sub F

    [单选题]设窗体上有一个名为Text1的文本框,并编写如下程序:Private Sub Form_Load() Show Text1.Text="" Text1.SetFocusEnd SubPrivate Sub Form_MouseUp(Button As Integer,_Shift As Integer,X As Single,Y As Single) Print"程序设计"End SubPrinvate Sub Text1_KeyDown(KeyCode As Integer,Shift

  • 查看答案
  • 设在窗体上有个文本框,然后编写如下的事件过程 Private Sub Text1

    [单选题]设在窗体上有个文本框,然后编写如下的事件过程Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)C.onst Alt=4C.onst Key_F2=&H71altdown%=(Shift And Alt) > 0f2down%=(KeyCode=Key_F2)If altdown% And f2down% ThenText1.Text="BBBBB"E.nd IfE.nd Sub上述程序运行后,如果按(S

  • 查看答案
  • 窗体上添加一个文本框Text1,编写如下代码:Private Sub Text1