更多"在窗体文本框Text 1中输入“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
[单项选择]窗体上有名称分别为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
[填空题]
在窗体文本框Textl中输入“456AbC”后，立即窗口上输出的结果是（）。
PrivateSubTextl_KeyPress（KeyAsciiAsInteger）
SelectCaseKeyAscii
Case97To122
Debug．PrintUCase（Chr（KeyAscii）；
Case65To90
Debug．PrintLCase（Chr（KeyAscii））；
Case48To57
Debug．PrintChr（KeyAscii）；
CaseElse
KeyAscii＝0
EndSelect
EndSub
[填空题]通过选择组合框中的选项来改变文本框的字体。在窗体中添加一个组合框 (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
[单项选择]
窗体上有名称分别为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。为了在程序运行后Text1中的文本不可编辑，
应当使用的语句：_______。
A) Text1.Clear B) Text1.Locked=True
C) Text1.Visible=False D) Text1.Enabled=True
[单项选择]在窗体上画一个文本框，其名称为Text1。为了在程序运行后Text1中的文本不可编辑，应当使用的语句是______。
A. Text1.Clear
B. Text1.Locked=True
C. Text1.Visible=False
D. Text1.Enabled=True
[单项选择]在窗体上画一个命令按钮和一个文本框，其名称分别为Commandl和Text1，把文本框的 Text属性设置为空白，然后编写如下事件过程：
Private Sub Commandl_click（ ）
a=InputBox("Enter an integer")
b=InputBox("Enter an integer")
Text1.Text=b+a
End Sub
程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示内容是( )。
A. 108
B. 18
C. 810
D. 出错
[单项选择]在窗体上画一个命令按钮和一个文本框，其名称分别为Commandl和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程： Private Sub Commandl_Ciick（ ） a=InputBox("Enter an integer") b=InputBox("Enter an integer") Text1.Text=b+a End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是______。
A. 108
B. 18
C. 810
D. 出错
[单项选择]在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click（ ）
x=InputBox("Enter an integer")
y=InputBox("Enter an integer")
Text1.Text=y+x
End Sub
程序运行后，单击命令按钮，如果在输入对话框中分别输入7和30，则在文本框中显示的内容是______。
A. 307
B. 37
C. 703
D. 出错
[单项选择]在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框，并把窗体的 KeyPreview 属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Form_ Load （ ） Show Text1.Text = " " Text1. SetFocus End Sub Private Sub Command1 Click（ ） Text1. Text= LCase(SaveAll) End Sub Private Sub Form_ KeyPress (KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii) End Sub程序运行后，在键盘上输入ABCDEFG，单击命令按钮，则文本框中显示的内容为 ______ 。
A. abodefg
B. 不显示任何信息
C. ABCDEFG
D. 出错
[单项选择]在窗体上添加一个文本框Text1，然后编写下列Load事件过程，则程序运行结果是( )。
Private Sub Form_Load（ ）
Text1.Text=""
Text1.SetFocus
For k=1 To 5
t=t*k
Next k
Text1.Text=t
End Sub
A. 在文本框中显示120
B. 文本框中仍为空
C. 在文本框中显示1
D. 出错
[单项选择]
在窗体上画一个名称为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
[填空题]在窗体上画两个文本框，名字分别为Text1和Text2，然后编写下列程序。程序运行后，如果在文本框 Text2中输入lmn，那么在文本框Text1中显示的内容将是 【8】 。
Private Sub Form_Load（ ）
Show
Text1.Text=" "
Text2.Text=" "
Text2.SetFocus
End Sub
Private Sub Text2_KeyPress(KeyAseii As Integer)
Text1.Text=Text1.Text+Chr(KeyAscii-5)
End Sub
