[单选题]

设在窗体上有一个文本框,然后编写如下的事件过程: Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Intcger) Const Alt=4 Const Key_f2=&H71 altdown%=(Shift And Alt) > 0 f2down% And f2down% Then If altdown% And f2down% Then Text ="abl" End If Ead Sub 程序运行后,清除文本框中原有内容,如果按Shift+F2键,则在文本框中显示的是

A.Alt+F2

B.abl

C.随机出儿个数

D.不发生变化

参考答案与解析:

相关试题

设在窗体上有个文本框,然后编写如下的事件过程: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上述程序运行后,如果按“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

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

    [单选题]设在窗体上有个文本框,然后编写如下的事件过程。 Private Sub Text1_KeyDown(KeyCode As Integef,Shift As Integer) Const Alt=4 ConstKey_F2=&H71 altdown%=(Shift And Alt)>0 f2down%=(KeyCode=Key_F2) If altdown% And f2down% Then Text1.Text= "BBBBB" End If End Sub 上述程序运行后,如果按[

  • 查看答案
  • 在窗体上画一个文本框(Textl),然后编写如下事件过程:Private Sub

    [单选题]在窗体上画一个文本框(Textl),然后编写如下事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(Ucase(char)) Print String(4,KeyAscii) End Sub 程序运行后,在文本框Text1中输入A,则程序在窗体上的输出结果为A.aB.AC.aaaaD.AAAA

  • 查看答案
  • 在窗体上绘制一个文本框,然后编写如下事件过程:Private Sub Form_

    [单选题]在窗体上绘制一个文本框,然后编写如下事件过程: Private Sub Form_Click() x=InputBox("请输入一个整数") Print x+Text1.Text End Sub 程序运行时,在文本框中输入456,然后单击窗体,在输入对话框中输入123,单击“确定”按钮后,在窗体上显示的内容为( )。A.123B.456C.579D.123456

  • 查看答案
  • 在窗体上画一个文本框,然后编写如下事件过程:Private Sub Form_C

    [单选题]在窗体上画一个文本框,然后编写如下事件过程: Private Sub Form_Click() x=InputBox("请输入一个整数") Print x+Text1.Text End Sub 程序运行时,在文本框中输入456,然后单击窗体,在输入对话框中输入123,单击“确定”按钮后,在窗体上显示的内容为______。A. 123B.456C.479D.123456

  • 查看答案
  • 在窗体上画一个文本框,然后编写如下事件过程:Private Sub Text1_

    [单选题]在窗体上画一个文本框,然后编写如下事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(UCase(char)) Text1.Text=String(6,KeyAscii) End Sub 程序运行后,如果在键盘上输入字母“a”,则文本框中显示的内容为 ______。A.aB.AC.aaaaaaaD.AAAAAAA

  • 查看答案
  • 在窗体上画一个文本框,然后编写如下事件过程:Private Sub Text1_

    [单选题]在窗体上画一个文本框,然后编写如下事件过程:Private Sub Text1_ KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(UCase(char)) Text1. Text= String(6,KeyAscii)End Sub程序运行后,如果在键盘上输入字母“a”,则文本框中显示的内容为______。A.aB.AC.aaaaaaaD.AAAAAAA

  • 查看答案
  • 在窗体上画一个文本框,然后编写如下事件过程:Private Sub Text1_

    [单选题]在窗体上画一个文本框,然后编写如下事件过程: Private Sub Text1_KeyPress(Key Ascii As Integer) Dim char As String char=Chr(Key Ascii) KeyAscii=Asc(UCase(char)) Text1.Text=Sting(6,KeyAscii) End Sub 程序运行后,如果在键盘上输入字母“a”,则文本框中显示的内容为______。A.aB.AC.aaaaaaaD.AAAAAAA

  • 查看答案
  • 在窗体中有一个文本框Textl,编写事件代码如下:Private Sub For

    [单选题]在窗体中有一个文本框Textl,编写事件代码如下:Private Sub Form. Cl ick() ’X=val(Inputbox(“输入X的值”))Y=1If X<>0 Then Y:2Textl.Value=YE.nd Sub打开窗体运行后,在输入框中输入整数12,文本框Textl中输出的结果是A.1B.2C.3D.4

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