[单项选择题] 在窗体上画一个命令按钮和一个文本框,并把窗体的KeyPreview属性设置为True,然后编写如下代码: Dim SaveAll As String Private Sub Command1_Click()Text1.Text=UCase(SaveAll) End Sub Private Sub Form_KeyPress(KeyAscii As Integer)SaveAll=SaveAll+Chr(KeyAseii) End Sub 程序运行后,在键盘上输入“abcdefg”,单击命令按钮,则文本框中显示的内容为 ______ 。
A.abcdefg
B.不显示任何信息
C.ABCDEFG
D.出错
正确答案:C
参考解析:[评析] KeyPreview属性返回或设置一个值,以决定是否在控件的键盘事件之前激活窗体的键盘事件。键盘事件为:KeyDown、KeyUp和KeyPress。 UCase函数的作用是将指定的字符串中的字符转化为大写。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)