设窗体上有2个文本框Textl和Text2,并有下面的事件过程: Dim n Private Sub Textl—KeyPress(KeyAscii As Integer) lf“A”

admin2013-11-29  28

问题 设窗体上有2个文本框Textl和Text2,并有下面的事件过程:
    Dim n
    Private Sub Textl—KeyPress(KeyAscii As Integer)
           lf“A”<=Chr(KeyAscii)And Chr(KeyAscii)<=“Z”Then
              n=n+1
           End If
           If KeyAscii=13 Then
              Text2.Text=n
           End If
    End Sub
    程序运行时,在文本框Textl中输入“Visual Basic 6.0”并按回车键后,在文本框Text2中显示的是(     )。

选项 A、2
B、9
C、13
D、16

答案A

解析 KeyPress事件的参数KeyAscii为所按键的ASCII码,Chr函数把这个ASCIl码转换为对应的字符,回车键的ASClI码值是13。程序中KeyPress过程的功能是统计Texll文本框中输入的字符串中A~z之间字母的个数,按回车键后把个数值显示在Text2文本框中。存Textl义本框中输入“Visual Basic 6.0”,其中A~z的字母有2个,按回车键后,Text文本框将会显示2。
转载请注明原文地址:https://kaotiyun.com/show/9WQp777K
0

最新回复(0)