未分类 · 2025年11月21日

在窗体上画一个命令按钮和一个文本框,并把窗体的KeyPreview设置为True(在激活对象上的控件键盘事件之前,优先激活键盘事件,即Form优先)然后编写如下代码: Dim SaveAll As String Private Sub Command1_Click() Text1.Text=Ucase(SaveAll) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll= SaveAll+Chr(KeyAscii) End Sub 程序运行后,在键盘上输入“abcdefg”,单击命令按钮,则文本框显示为( )。 abcdefg 出错 ABCDEFG 不显示任何信息 A.; B.; C.; D.;

在窗体上画一个命令按钮和一个文本框,并把窗体的KeyPreview设置为True(在激活对象上的控件键盘事件之前,优先激活键盘事件,即Form优先)然后编写如下代码: Dim SaveAll As String Private Sub Command1_Click() Text1.Text=Ucase(SaveAll) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll= SaveAll+Chr(KeyAscii) End Sub 程序运行后,在键盘上输入“abcdefg”,单击命令按钮,则文本框显示为( )。 abcdefg 出错 ABCDEFG 不显示任何信息 A.; B.; C.; D.;

正确答案:C