在窗体上画一个命令按钮command1和两个文本框,名称分别为Text1和Text2。编写如下两个事件过程: Dim Str1 As String,str2 As String Private Sub form_load() Tex

admin2013-01-23  45

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

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

答案1

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

最新回复(0)