窗体不有两个名称分别为Textl、Text2的文本框。Textl的KeyUp事件过程如下: Private Sub Textl__KeyUp(KeyCode As Integer,Shift As Integer) Dim C As Strin

admin2018-12-20  17

问题 窗体不有两个名称分别为Textl、Text2的文本框。Textl的KeyUp事件过程如下:
  Private Sub Textl__KeyUp(KeyCode As Integer,Shift As Integer)
    Dim C As String
    C=UCase(Chr(KeyCode))
    Text2.Text=Chr(Asc(C+2)
   End Sub
    当向文本框Textl中输入小写字母a时,文本框Text2中显示的是(     )。

选项 A、A
B、a
C、C
D、C

答案C

解析 KeyDown和KeyUp事件的keyCode参数返回的是“键”,即按字母“A”和“a”时得到的KeyCode的值是相同的,都是&H41。  因此程序中对输入“a”时得到的Key-Code,经Chr函数转为字符后为“A”,经Ucase函数转换仍为“A”。所以变量C中的字符为“A”,Asc(e)将返回变量C中的第一个字符的ASCII,加2后,再由Chr函数转为字符即为“A”后而的第2个字符,即“C”,所以答案成为选项C。
转载请注明原文地址:https://kaotiyun.com/show/RfFp777K
0

随机试题
最新回复(0)