2. 计算机
  3. 在窗体上画一个名称为Text1的文本框，编写如下事件过程代码： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim ch As String ch=Chr(KeyAscii)

在窗体上画一个名称为Text1的文本框，编写如下事件过程代码： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim ch As String ch=Chr(KeyAscii)

admin2017-07-28  44
问题 在窗体上画一个名称为Text1的文本框，编写如下事件过程代码：
    Private Sub Text1_KeyPress(KeyAscii As Integer)
    Dim ch As String
    ch=Chr(KeyAscii)
    If Not(ch>="0"And ch<="9")Then
    End If
    End Sub
    程序的功能是，当程序运行时，只能向文本框中输入数字字符，则以下叙述中正确的是(    )。
选项 A、当该事件被触发时，形参KeyAscii表示的是所输入字符的ASCII码
B、程序代码中，横线处应填入的语句为KeyAscii=""
C、程序运行过程中，若按下字母键，则不执行此事件过程
D、将该事件过程中的代码移到Text1的KeyDown事件过程中时，程序功能不变
答案A
解析 KeyPress事件过程中参数KeyAscii是所按键的AscII码，A选项叙述正确；Chr为转换函数，可以将AscII码转换为对应的字符，程序中使用If语句判断ch是否为非数字字符，若ch为非数字字符，则退出程序，故程序横线处应填入语句Exit Sub，结束程序，B选项叙述错误；程序中按下键盘上任意按键，都会触发该事件，C选项叙述错误；与KeyPress事件不同，KeyDown事件返回的是键盘的按下状态，而KeyPress并不反映键盘的按下状态。故两个事件过程执行的功能不同，D选项叙述错误。本题选择A选项。
转载请注明原文地址:https://kaotiyun.com/show/7xGp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)