网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
新建一个工程。在窗体上画一个文本框，名称为Text1。设置用户输入的字母一律转换为大写表示，焦点保持在输入文本的最右端。程序运行结果如图5所示。程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为ylcl.vbp，窗体丈件名为ylcl.frm。
参考答案
更多 “ 新建一个工程。在窗体上画一个文本框，名称为Text1。设置用户输入的字母一律转换为大写表示，焦点保持在输入文本的最右端。程序运行结果如图5所示。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为ylcl.vbp，窗体丈件名为ylcl.frm。 ” 相关考题
考题
在窗体中添加一个名称为Text1的文本框，两个名称分别为Command1和Com mand2的命令按钮。要求程序运行后，用户向文本框中输入字母，单击Command1按钮则文本框中字母全部转换为大写；然后单击Command2按钮则文本框中字母全部转换为小写。请在【 】、【 】和【 】处填入适当的内容，将程序补充完整。
考题
在窗体上画一个文本框，其名称为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
考题
在窗体上画一个名称为Textl的文本框．要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是：（ ）A．Private Sub Text1＿KeyPress(KeyAscii As Integer)If KeyAscii65 0r KeyAscii90ThenB．C．D．
考题
在考生文件夹下有一个工程文件sj5．vbp在名称为Form1的窗体上画一个文本框，名称为Text1，允许多行显示；再画三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“读取文本”、“大写”和“保存”，运行界面如图28-5所示。请编写适当的事件过程，使得在运行时，单击“读取文本”按钮，则从考生文件夹中读入sjin．txt文件（文件中只有字母和空格），放入Text1中；单击“大写”按钮，则把Text1中的所有小写字母转换为大写字母；单击“保存”按钮，则把Text1中的内容存入sjout．txt文件中。注意：去掉程序中的注释符““’，把程序中的“?”改为正确的内容，考生必须把转换后的内容用“保存”按钮存入sjout．txt文件，否则无成绩。考生的工程文件以文件名sj5．vbp存盘，窗体文件以文件名sj5．frm存盘。
考题
在名为Form1的窗体上放置一个名为Text1的文本框。程序运行后，用户在文本框中输入的英文字母一律用大写显示(要求焦点在最右端)，如下图所示。注意：文件必须存放在考生文件夹中，窗体文件名为execise12.frm，工程文件名为 execise12.vbp。
考题
在窗体上画一个名称为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 KeyCode 65 Or KeyCode 90 Then MsgBox "请输入大写字母" KeyCode = 0 End If End SubC．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 SubD．Private Sub Text1_Change() If Asc(Text1.Text) ＞ 64 And Asc(Text1.Text) ＜ 91 Then MsgBox "请输入大写字母" End If End Sub
考题
在窗体上画一个名称为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 KeyCode＜65 Or Keycode＞90 Then MsgBox"请输入大写字母" KcyCode=0 End If End SubC．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 SubD．Private Sub Text1_Change() If Asc(Text1. Text)＞64 Or Asc(Text1. Text)＜91 Then MsgBox"请输入大写字母" End If End Sub
考题
在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能够正确实现该操作的事件过程是______。A．Private Sub Text1_ KeyPress (KeyAscii As Integer) IfKeyAscii ＜ 65 Or KeyAscii ＞ 9t Then MsgBox “请输入大写字母” End If End subB．Private Sub Text1_ KeyDown (KeyCode As Integer, Shift As Integer) IfKeyCode ＜ 65 Or KeyCode ＞ 91 Then MsgBox “请输入大写字母” End If End subC．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 subD．Private Sub Text1_ Change() IfAsc(Text 1.Text) ＜ 65 Or Asc(Text1. Text) ＞ 91 Then MsgBox “请输入大写字母” End If End sub
考题
在窗体上画一个名称为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 KeyCode 65 Or KeyCode 90 Then MsgBox "请输入大写字母" KeyCode = 0 End If End SubC．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 SubD．Private Sub Text1_Change（） If Asc（Text1.Text） 64 And Asc（Text1.Text） 91 Then MsgBox "请输入大写字母" End If End Sub
热门标签
最新试卷