![[单项选择题] 在窗体上画一个命令按钮command1和两个文本框,名称分别为Text1和Text2。编写如下两个事件过程:Dim Str1 As String,str2 As StringP,第1张 [单项选择题] 在窗体上画一个命令按钮command1和两个文本框,名称分别为Text1和Text2。编写如下两个事件过程:Dim Str1 As String,str2 As StringP,第1张](/aiimages/%5B%E5%8D%95%E9%A1%B9%E9%80%89%E6%8B%A9%E9%A2%98%5D+%E5%9C%A8%E7%AA%97%E4%BD%93%E4%B8%8A%E7%94%BB%E4%B8%80%E4%B8%AA%E5%91%BD%E4%BB%A4%E6%8C%89%E9%92%AEcommand1%E5%92%8C%E4%B8%A4%E4%B8%AA%E6%96%87%E6%9C%AC%E6%A1%86%EF%BC%8C%E5%90%8D%E7%A7%B0%E5%88%86%E5%88%AB%E4%B8%BAText1%E5%92%8CText2%E3%80%82%E7%BC%96%E5%86%99%E5%A6%82%E4%B8%8B%E4%B8%A4%E4%B8%AA%E4%BA%8B%E4%BB%B6%E8%BF%87%E7%A8%8B%EF%BC%9ADim+Str1+As+String%EF%BC%8Cstr2+As+StringP.png)
[单项选择题] 在窗体上画一个命令按钮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.出错
正确答案:A
参考解析:[命题目的] 考查考生对窗体事件和文本框属性的掌握情况。[解题要点] 在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是指按下键的实际字符。[考点链接] 窗体事件和文本框属性。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)