新建一个工程。在窗体上画一个文本框，名称为Text1。设置用户输入的字母一律转换为大写表示，焦点保持在输入文本的最右端。程序运行结果如图5所示。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为ylcl.vbp，窗体丈件名为ylcl.frm。

题目

新建一个工程。在窗体上画一个文本框，名称为Text1。设置用户输入的字母一律转换为大写表示，焦点保持在输入文本的最右端。程序运行结果如图5所示。程序中不得使用任何变量。

注意：存盘时必须存放在考生文件夹下，工程文件名为ylcl.vbp，窗体丈件名为ylcl.frm。

相似考题

1.在窗体中添加一个名称为Text1的文本框，两个名称分别为Command1和Com mand2的命令按钮。要求程序运行后，用户向文本框中输入字母，单击Command1按钮则文本框中字母全部转换为大写；然后单击Command2按钮则文本框中字母全部转换为小写。请在【 】、【 】和【 】处填入适当的内容，将程序补充完整。

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

3.在考生文件夹下有一个工程文件sj5．vbp在名称为Form1的窗体上画一个文本框，名称为Text1，允许多行显示；再画三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“读取文本”、“大写”和“保存”，运行界面如图28-5所示。请编写适当的事件过程，使得在运行时，单击“读取文本”按钮，则从考生文件夹中读入sjin．txt文件（文件中只有字母和空格），放入Text1中；单击“大写”按钮，则把Text1中的所有小写字母转换为大写字母；单击“保存”按钮，则把Text1中的内容存入sjout．txt文件中。注意：去掉程序中的注释符““’，把程序中的“?”改为正确的内容，考生必须把转换后的内容用“保存”按钮存入sjout．txt文件，否则无成绩。考生的工程文件以文件名sj5．vbp存盘，窗体文件以文件名sj5．frm存盘。

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

更多“新建一个工程。在窗体上画一个文本框,名称为Text1。设置用户输入的字母一律转换为大写表示,焦点保 ”相关问题

  • 第1题：

    在名为Form1的窗体上放置一个名为Text1的文本框。程序运行后，用户在文本框中输入的英文字母一律用大写显示(要求焦点在最右端)，如下图所示。

    注意：

    文件必须存放在考生文件夹中，窗体文件名为execise12.frm，工程文件名为 execise12.vbp。


    正确答案：

  • 第2题：

    在窗体上画一个名称为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是正确的。

  • 第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 "请输入大写字母" 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)中判断条件错误，其判断的为输入的是否为大写字母，正好与题目要求相反。

  • 第5题：

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


    正确答案：A

相关内容