计算机二级
在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入，以下能实现该操作的事件过程是______。A．Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii＜65 Or KeyAscii＞90 Then MsgBox"请输入大写字母" KeyAscii=0 End If End SubB．Private Sub Text1_KeyDown(Keycode As Integer, Shift As Integer) If Ke
题目
在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入，以下能实现该操作的事件过程是______。
A．Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii＜65 Or KeyAscii＞90 Then MsgBox"请输入大写字母" KeyAscii=0 End If End Sub
B．Private Sub Text1_KeyDown(Keycode As Integer, Shift As Integer) If KeyCode＜65 Or Keycode＞90 Then MsgBox"请输入大写字母" KcyCode=0 End If End Sub
C．Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Asc(Text1. Text)＜65 Or Asc(Text1. Text)＞90 Then MsgBox"请输入大写字母" End If End Sub
D．Private Sub Text1_Change() If Asc(Text1. Text)＞64 Or Asc(Text1. Text)＜91 Then MsgBox"请输入大写字母" End If End Sub
相似问题和答案
第1题：
在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是（ ）。
A．Private Sub Text1_KeyPress（KeyAscii As Integer）
If KeyAscii < 65 Or KeyAscii > 90 Then
MsgBox "请输入大写字母"
KeyAscii = 0
End If
End Sub
B．Private Sub Text1_KeyDown（KeyCode As Integer, Shift As Integer）
If KeyCode < 65 Or KeyCode > 90 Then
MsgBox "请输入大写字母"
KeyCode = 0
End If
End Sub
C．Private Sub Text1_MouseDown（Button As Integer, Shift As Integer, X As Single, Y As Single）
If Asc（Text1.Text） < 65 Or Asc（Text1.Text） > 90 Then
MsgBox "请输入大写字母"
End If
End Sub
D．Private Sub Text1_Change（）
If Asc（Text1.Text） > 64 And Asc（Text1.Text） < 91 Then
MsgBox "请输入大写字母"
End If
End Sub
第2题：
在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能够正确实现该操作的事件过程是______。
A．Private Sub Text1_ KeyPress (KeyAscii As Integer) IfKeyAscii ＜ 65 Or KeyAscii ＞ 9t Then MsgBox “请输入大写字母” End If End sub
B．Private Sub Text1_ KeyDown (KeyCode As Integer, Shift As Integer) IfKeyCode ＜ 65 Or KeyCode ＞ 91 Then MsgBox “请输入大写字母” End If End sub
C．Private Sub Text1_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, YAs SinglE)IfAsc (Text1.Text) ＜ 65 Or Asc (Text1. Text) ＞ 91 Then MsgBox “请输入大写字母” End If End sub
D．Private Sub Text1_ Change() IfAsc(Text 1.Text) ＜ 65 Or Asc(Text1. Text) ＞ 91 Then MsgBox “请输入大写字母” End If End sub
第3题：
在窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Labe11)，程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是( )。
A．
B．
C．
D．
第4题：
在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是
A．Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < 65 Or KeyAscii > 90 Then MsgBox "请输入大写字母" KeyAscii = 0 End If End Sub
B．Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode < 65 Or KeyCode > 90 Then MsgBox "请输入大写字母" KeyCode = 0 End If End Sub
C．Private Sub Text1_MouseDown(Button As Integer,_ Shift As Integer, X As Single, Y As Single) If Asc(Text1.Text) < 65 Or Asc(Text1.Text) > 90 Then MsgBox "请输入大写字母" End If End Sub
D．Private Sub Text1_Change() If Asc(Text1.Text) ＞ 64 And Asc(Text1.Text) ＜ 91 Then MsgBox "请输入大写字母" End If End Sub
解析：选项 B)中的大写字母与小写字母的KeyCode相同；选项C)中文本框没有触发MouseDown事件；选项D)中判断条件错误，其判断的为输入的是否为大写字母，正好与题目要求相反。
第5题：
设窗体上有一个文本框，名称为Text1，程序运行后，要求该文本框只能显示信息，不能接收输入的信息，以下能实现该操作的语句是
A．Text1．Maxength=0
B．Text1．Enabled=False
C．Text1．Visible=False
D．Text1．Width=0
解析：Enabled属性用来设置文本框的有效性，当设置为True时，处于有效状态，文本框能接受输入的信息，当设置为False时，处于无效状态，文本框不能接受输入信息，所以选项B是正确的；Visible是设置控件的可见性属性；Maxlength属性设置文本框最多可以容纳多少个字符；Width属性设置文本框的宽度，都不是正确答案。
第6题：
在窗体上画一个名称为Textl的文本框．要求文本框只能接收大写字母的输入。
以下能实现该操作的事件过程是：（ ）
A．Private Sub Text1＿KeyPress(KeyAscii As Integer)
If KeyAscii<65 0r KeyAscii>90Then
B．
C．
D．
选项B中的大写字母与小写字母的KeyCode相同；选项C中文本框没有触发MouseDown事件；选项D中判断条件错误，其判断的为输入的是否为大写字母，正好与题目要求相反。
第7题：
设窗体上有一个文本框，名称为Textl，程序运行后，要求该文本框只能显示信息，不能接收输入的信息，以下能实现该操作的语句是( )。
A．Textl.MaxLength=0
B．Textl.Enabled=False
C．Textl.Visible=False
D．Textl.Width=0
第8题：
设窗体上有一个文本框，名称为Text1，程序运行后，要求该文本框只能显示信息，不能接收输入信息，以下能实现该操作的语句是______。
A．Text1. MaxLength=0
B．Text1. Enabled=False
C．Text1. Visible=False
D．Text1. Width=0
解析：当文本框的Enabled属性被设置成“False”时，文本框是只读状态，纯粹用来显示，其中的内容呈灰色，对鼠标和键盘的操作没有反应。
第9题：
设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框只能显示信息，不能接受输入的信息，以下能实现该操作的语句是（ ）。
A．Text1.MaxLength=0
B．Text1.Enabled=Flase
C．Text1.Visible=Flase
D．Text1.Width=0