在窗体上画一个名称为Textl的文本框．要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是：（ ）A．Private Sub Text1＿KeyPress(KeyAscii As Integer)If KeyAscii<65 0r KeyAscii>90ThenB．C．D．

题目

在窗体上画一个名称为Textl的文本框．要求文本框只能接收大写字母的输入。

以下能实现该操作的事件过程是：（ ）

A．Private Sub Text1＿KeyPress(KeyAscii As Integer)

If KeyAscii<65 0r KeyAscii>90Then

B．

C．

D．

相似考题

1.设窗体上有一个文本框，名称为Textl，程序运行后，要求该文本框只能显示信息，不能接收输入的信息，以下能实现该操作的语句是( )。A．Textl.MaxLength=0B．Textl.Enabled=FalseC．Textl.Visible=FalseD．Textl.Width=0

2.窗体上画一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Form. Load() Show TextSetFocus End Sub Private Sub Text1_ KeyPress (KeyAscii As Integer) Dim ch As String ch = Chr (KeyAscii) KeyAscii = Asc(UCase(ch)) Pint Chr(KeyAscii + 4) End Sub程序运行后，在文本框中输入abcde，则在窗体上显示的内容是______。A．abcdeB．efghiC．EFGHID．ABCDE

3.在窗体上画一个文本框,其名称为Text1,然后编写如下事件过程:Private Sub Text1_KeyPress(KeyAscii As Integer)Dim str As StringStr=Chr(KeyAscii)KeyAscii=Asc(UCase (str))Textl.Text=String(2, KeyAscii)End Sub程序运行后,如果在键盘上输入字母"b",则在文本框Text1中显示的内容是A．bbbB．BBBC．BBD．bb

4.在窗体上画一个文本框(Textl)，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(Ucase(char)) Print String(4，KeyAscii) End Sub 程序运行后，在文本框Text1中输入A，则程序在窗体上的输出结果为A．aB．AC．aaaaD．AAAA

参考答案和解析
正确答案：A
选项B中的大写字母与小写字母的KeyCode相同；选项C中文本框没有触发MouseDown事件；选项D中判断条件错误，其判断的为输入的是否为大写字母，正好与题目要求相反。
更多“ 在窗体上画一个名称为Textl的文本框．要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是：（ ）A．Private Sub Text1＿KeyPress(KeyAscii As Integer)If”相关问题

  • 第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


    正确答案：A
    解析：选项 B)中的大写字母与小写字母的KeyCode相同；选项C)中文本框没有触发MouseDown事件；选项D)中判断条件错误，其判断的为输入的是否为大写字母，正好与题目要求相反。

  • 第2题：

    在窗体上画一个文本框(名称为Textl)和一个标签(名称为Label1)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以F可以实现上述操作的事件过程是（ ）


    正确答案：A
    当在文本框中输入字符时，文本框的内容发生变化，所以应把程序写在Textl_Change()事件中。Len(字符串)的功能是测试字符串的长度。所以正确答案选A)。

  • 第3题：

    在窗体上画一个名称为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


    正确答案：A

  • 第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"请输入大写字母" 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


    正确答案：A
    解析：当在文本框Text1中输入字符时，会激活Text1_KeyPress、Text1_KeyDown和Text1_Change过程，选项C是错误的；KcyDown事件中所得到的KeyCode码(KeyDown事件的参数)65与按字母键“a”是相同的，不能符合题意，选项B是错误的；条件“Asc(Text1.Text)＞64OrAsc(Text1.Text)91”满足字母大写的要求，不符合题意，选项D是错误的；选项A是正确的。

  • 第5题：

    在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Textl)，然后编写如下事件过程：

    程序运行后，在文本框中输入3，然后单击命令按钮，则Y的值变为__________。


    正确答案：
    9【解析】本题考查多分支语句SelectCase的知识。SelectCase用于实现多分支结构，其使用格式为： 其功能是根据“测试表达式”的值，从多个语句块中选择符合条件的一个语句块执行.如果测试表达式的值等于某一个表达式的值，则选择该语句块的语句执行，执行完毕后退出Case结构。本题中由于x的值为3，符合第一个Case语句的条件，所以执行y=x*x后退出Case结构，最后Y的值为9。

相关内容