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

admin2016-08-24  53

问题 在窗体上画一个名称为Text1的文本框,编写如下事件过程代码:
    Private Sub Text1_KeyPress(KeyAscii As Integer)
    Dim ch As String
    ch=Chr(KeyAscii)
    If Not(eh>="0" And ch<="9")Then
    __________
    End If
    End Sub
    程序的功能是,当程序运行时,只能向文本框中输入数字字符,则以下叙述中正确的是(    )。

选项 A、当该事件被触发时,形参KeyAscii表示的是所输入字符的ASCII码
B、程序代码中,横线处应填入的语句为KeyAseii=""
C、程序运行过程中,若按下字母键,则不执行此事件过程
D、将该事件过程中的代码移到Text1的KeyDown事件过程中时,程序功能不变

答案A

解析 KeyPress事件过程中参数Ke—yAscii是所按键的ASCII码,A选项叙述正确;Chr为转换函数,可以将ASCII码转换为对应的字符,程序中使用If语句判断ch是否为非数字字符,若ch为非数字字符,则退出程序,故程序横线处应填入语句Exit Sub,结束程序,B选项叙述错误;程序中按下键盘上任意按键,都会触发该事件,C选项叙述错误;与KeyPress事件不同,KeyDown事件返回的是键盘的按下状态,而KeyPress并不反映键盘的按下状态。故两个事件过程执行的功能不同,D选项叙述错误。本题选择A选项。
转载请注明原文地址:https://jikaoti.com/ti/ajJ0FFFM
0

最新回复(0)