更多"在窗体文本框Textl中输入“456AbC”后"的相关试题:
[填空题]在窗体文本框Text 1中输入“456AbC”后，立即窗口上输出的结果是______。
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case Key KeyAscii
Case 97 To 122
Debug.Print Ucase(Chr(KeyAscii))；
Case 65 To 90
Debug.Print Lcase(Chr(KeyAscii))；
Case 48 To 57
Debug.Print Chr(KeyAscii)；
Case Else
KeyrAscii=0
End Select
End Sub
[填空题]通过选择组合框中的选项来改变文本框的字体。在窗体中添加一个组合框 (Combo1)和一个文本框(Text1)，代码如下。请填入适当的内容，将程序补充完整。
Private Sub Combo1_Cliek（ ）
Text1. FontName=Combo1. List(Combo1. Listlndex)
End Sub
Private Sub Form_Load（ ）
With Combol
Addltem"宋体"
Addltem"隶书"
Addltem"黑体"
·Addltem"楷体_GB2312""
·Listlndex＝0
End With
Text1. 【8】 30
Textl. 【9】 =Combol.List(0)
End Sub
[单项选择]
在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框，在文本框中输入以下字符串：Microsoft Visual Basic Programming 然后编写如下事件过程：
Private Sub Commandl_Click（ ）
Open"d:/temp/outf,txt"For Ouput As #1
For i=1 To Len(Text1.Text)
c=Mid(Text1.Text,i,1)
If c＞="A"And C＜="Z"Then
Print #1,LCase(C)
End If
Next i
Close
End Sub
程序运行后，单击命令按钮，文件outf.txt中的内容是（）。
A. MVBP
B. mvbp
C. M
D. m V V B b P p
[单项选择]在窗体上绘制一个名称为Command1的命令按钮和一个名称为Text1的文本框，在文本框中输入以下字符串： Microsoft Sub Command1_Click（ ） 然后编写如下事件过程： Private Sub Command1_Click（ ） Open "d：/temp/outf.txt" For Output As #1 For i=1 To Len(Text1.Text) c=Mid(Text1.Text，i，1) If c＞="A" And c＜="Z" Then Print #1，LCase(c) End If Next i Close End Sub 程序运行后，单击命令按钮，文件outf.txt中的内容是
A. MVBP
B. mvbp
C. M V B P
D. m v b p
[单项选择]在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是
[单项选择]窗体上有名称分别为Textl、Text2的2个文本框，要求文本框Textl中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在下 划线处应填入的内容是( )。 Private Sub Textl_ostFocus（ ） Call Checklnput(Textl,500) End Sub Private Sub Text2_LostFocus（ ） Call Checklnput(Text2,1000) End Sub Sub Checklnput(tAs__,x AS Integer) IfVal(t.Text＞X Then MsgBox“请重新输入!” End If End Sub
A. Text
B. SelText
C. Control
D. Form
[单项选择]窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于
500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以 下程序中问号（？）处应填入的内容是______。
Private Sub Text1_LostFocus（ ） Call CheckInput(Text1,500) End Sub
Private Sub Text2_LostFocus（ ） Call CheckInput(Text2,1000) End Sub
Sub CheckInput(t As ,x As Integer) If Val(t.Text)>x Then
MsgBox "请重新输入！"
End If
End Sub
A. Text
B. SelText
C. Control
D. Form
[单项选择]窗体上有文本框Text1，执行下列程序后在文本框输入123abc，单击按钮后输出结果为
Private Sub From_Load（ ）
Text1.Text=""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Char=Chr(KeyAscii)
KeyAscii=Asc(UCase(Char))
Eud Sub
Private Sub Command1_Click（ ）
Print Text1.Text
End Sub
A. 123ABC
B. ABC
C. !@#ABC
D. 123abc
[填空题]
在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母(不区分大小写)，单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Comrnand1按钮后Text1中显示的字符串是
ZYXWVUTSRQPONMLKJIHGEC。请填空。
Private Sub Command1_Click（ ）
Dim str As String，s As String，c As String
str=UCase(Text1)
S=""
C="Z"
While c＞="A"
If lnStr(str,C)=0 Then
s= 【1】
End If
c=Chr$(Asc(C) 【2】 )
Wend
If s＜＞""Then
Text1=S
End If
End Sub
[单项选择]窗体上有一个按钮和一个文本框，程序执行后，在文本框中输入12345，单击按钮后的输出结果为______。
Private Sub Command1_Cliek（ ）
Dim A As Integer, B As Integer
Text1.SelStart=2
Text1.SeILength=2
A=Val(Text1.SelText)
B=Len(Text1.Text)
Print A*B
End Sub
A. 68
B. 115
C. 170
D. 1170
[填空题]在窗体上画两个文本框，然后编写程序。程序运行后，如果在第一个文本框中输入A、B、 C、D或a、b、c、d，则在第二个文本框中显示EFDH。请完善下列程序。
Private Sub Form_Load（ ）
Show
Text1．Text=" "
Text2．Text=" "
Text1．SetFocus
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer)
Text2．Text= 【11】
End Sub
[单项选择]在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview属性设置为True，然后编写如下代码：
Dim SaveAll As String
Private Sub Command1_Click（ ）
Text1.Text=UCase(SaveAll)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAseii)
End Sub
程序运行后，在键盘上输入“abcdefg”，单击命令按钮，则文本框中显示的内容为 ______ 。
A. abcdefg
B. 不显示任何信息
C. ABCDEFG
D. 出错
