单选题 设窗体上有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”并按Enter键后,在文本框Text2中显示的是______。
【正确答案】 A
【答案解析】[解析] KeyPress事件的参数KeyAscii为所按键的ASCII码,Chr函数把这个ASCII码转换为对应的字符,Enter键的ASCII码值是13。程序中KeyPress过程的功能是统计Text1文本框中输入的字符串中A~Z之间字母的个数,按Enter键后把个数值显示在Text2文本框中。在Text1文本框中输入“Visual Basic 6.0”,其中A~Z的字母有2个,按Enter键后,Text2文本框中将会显示2。