2. 计算机
  3. 设窗体上有2个文本框Textl和Text2，并有下面的事件过程： Dim n Private Sub Text1_KeyPress(KeyAscii As Integer) If"A"＜=Chr(KeyAscii)A

设窗体上有2个文本框Textl和Text2，并有下面的事件过程： Dim n Private Sub Text1_KeyPress(KeyAscii As Integer) If"A"＜=Chr(KeyAscii)A

admin2015-08-13  26
问题 设窗体上有2个文本框Textl和Text2，并有下面的事件过程：
    Dim n
    Private Sub Text1_KeyPress(KeyAscii As Integer)
            If"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”并按Enter键后，在文本框Text2中显示的是(    )。
选项 A、2
B、9
C、13
D、16
答案A
解析 KeyPress事件的参数KeyAscii为所按键的ASCH码，Chr函数把这个ASCII码转换为对应的字符，Enter键的ASCII码值是13。程序中KeyPress过程的功能是统计Text1文本框中输入的字符串中A～Z之间字母的个数，按Enter键后把个数值显示在Text2文本框中。在。rext1文本框中输入“Visual Basic 6．0”，其中A～z的字母有2个，按Enter键后，Text2文本框中将会显示2。
转载请注明原文地址:https://kaotiyun.com/show/iSQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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