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

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

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

二级VB

NCRE全国计算机二级

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