在窗体上画一个命令按钮Command1和两个文本框,名称分别为Text 1和 Text 2 Text 2。编写如下两个事件过程: Dim str As String, strl As String Private Sub form_

admin2009-03-15  41

问题 在窗体上画一个命令按钮Command1和两个文本框,名称分别为Text 1和 Text 2 Text 2。编写如下两个事件过程:       Dim str As String, strl As String       Private Sub form_load()           TextText = " "           TextText = " "           TextEnabled = False           TextEnabled = False       End Sub       Private Sub Form KeyPress(KeyAscii As Integer)           str= str&Chr(KeyAscii)       End Sub       Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)           str1 = strl&Chr(KeyCode)       End Sub       Private Sub Command1_Click()           TextText =str           TextText = str1           str= " "           str1= " "       End Sub     当在设计阶段把窗体KeyPreview属性设置为True时,程序运行过程中,在键盘上输入小写字母abc,然后单击命令按钮,则文本框Text1中显示的内容为 ______ 。

选项 A、abc
B、不显示任何信息
C、ABC
D、出错

答案1

解析 在Command1的Click事件中将字符串变量str赋给Text1,str变量是在KeyPress事件中被赋值的,语句str=str&Chr(KeyAscii)将输入的字符存储并连接起来,在此处是通过参数KeyAscii来得到输入字符的(因此要区分字母的大小写),又因为在Form的Load事件中将Text1和Text2的Enabled属性设置成了 False,所以当前拥有输入焦点的对象是窗体,为了使窗体能接收键盘事件,已经将窗体的KeyPreview属性设置为了True,所以在输入小写字母abc后,单击Command1,触发其Click事件,使得Text1文本控件的值等于str字符中的值,即abc。
转载请注明原文地址:https://kaotiyun.com/show/KW1p777K
0

最新回复(0)