niusouti.com

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

题目

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


相似考题
参考答案和解析
正确答案:C

KeyDownKeyUp都有两个参数,即KeyCodeShiftKeyCode是按键的实际ASCII码,Shift是转换键。Chr函数为求ASCII字符,而ASC(C)=ASC(A)+2。因此输出结果应该为AC

更多“在窗体上画1个文本框,其名称为Text1,然后编写如下过程: PrivateSubText1_KeyDown(KeyCod ”相关问题
  • 第1题:

    在窗体上画一个文本框,其名称为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.bbb

    B.BBB

    C.BB

    D.bb


    正确答案:C
    解析:Ucase$(字符串)是指“字符串”中的小写字母转换为大写字母,Chr$(x)是把x的值转换为相应的ASCII字符。

  • 第2题:

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

    Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)

    Print Chr(KeyCode)

    End Sub

    Private Sub Text1_Key Up(KeyCode As Integer,Shift As Integer)

    Print Chr(KeyCode+2)

    End Sub

    程序运行后,把焦点移到文本框中,此时如果敲击“A”

    A.

    B.

    C.

    D.


    正确答案:C

  • 第3题:

    在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Textl),然后编写如下事件过程:

    程序运行后,在文本框中输入3,然后单击命令按钮,则Y的值变为__________。


    正确答案:
    9【解析】本题考查多分支语句SelectCase的知识。SelectCase用于实现多分支结构,其使用格式为: 其功能是根据“测试表达式”的值,从多个语句块中选择符合条件的一个语句块执行.如果测试表达式的值等于某一个表达式的值,则选择该语句块的语句执行,执行完毕后退出Case结构。本题中由于x的值为3,符合第一个Case语句的条件,所以执行y=x*x后退出Case结构,最后Y的值为9。

  • 第4题:

    在窗体上画二个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:

    程序运行后,单击命令按钮,在文本框中显示的值是

    A.2

    B.3

    C.4

    D.5


    正确答案:B
    题只能计算当i>1所循环的次数。注意i在循环体内被强行加3,到For循环时.还要再加步长1,这相当于因此,n=3。选择B。

  • 第5题:

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

    Private Sub Text1_KeyPress(KeyAscii As Integer)

    Dim str As String

    Str=Chr(KeyAscii)

    KeyAscii=Asc(UCase (str))

    Textl.Text=String(2, KeyAscii)

    End Sub

    程序运行后,如果在键盘上输入字母"b",则在文本框Text1中显示的内容是

    A.bbb

    B.BBB

    C.BB

    D.bb


    正确答案:C
    解析:考查对转换函数Ucase$和Chr$的概念和使用方法。Ucase$(字符串)是指"字符串"中的小写字母转换为大写字母,Chr$(x)是把x的值转换为相应的ASCII字符。