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

admin2018-07-11  19

问题 设窗体上有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/7zFp777K
0

最新回复(0)