更多"下列过程的功能是：在对多个文本框进行输入时，对第1个文本框(text1"的相关试题:
[填空题]
下列过程的功能是：在对多个文本框进行输入时，对第1个文本框(text1)输入完毕后用回车键使焦点跳到第2个文本框(text2)，而不是Tab键来切换。请完成该程序。
Private Sub Textl_(eyDown(Keycode As Integer，Shift As Integer)
If [14] Then
Text2. [15]
End If
End Sub
[填空题]
下列过程的功能是：在对多个文本框进行输入时，对第一个文本框(text1)输入完毕后用回车键使焦点跳到第二个文本框(text2)，而不是用TAB键来切换。请填空。
Private Sub [11] KeyDown(KeyCode As Integer,Shift As
Integer)
If KeyCode [12] vbKeyRetum
Then
Text2.SetFocus
End If
End
Sub
[单项选择]窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyDown事件过程如下：
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim s As String
s=Chr(KeyCode+35)
Text2.Text=s
End Sub
当向文本框Text1中输入小写字母a时，文本框Text2中显示的是
A. A
B. a
C. D
D. d
[单项选择]窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下：
Private Sub Text1_KeyUp(KeyCode As Integer，Shift As Integer)
Dim c As String
c=UCase(Chr(KeyCode))
Text2．Text=Chr(Asc(c)+2)
End Sub
当向文本框Text1中输入小写字母a时，文本框Text2中显示的是( )。
A. A
B. a
C. C
D. c
[单项选择]在窗体上画一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Text1_ KeyPress (KeyAscii As Integer) Dim ch As String ch = Chr (KeyAscii) KeyAscii = Asc (UCase(ch)) Text1. Text = String(1, KeyAscii) End Sub程序运行后，使文本框拥有焦点，然后按键盘上的B键，则在文本框中显示的内容是 ______ 。
A. b
B. bb
C. BB
D. B
[单项选择]在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是
A. Private SubText1_KeyPress(KeyAscii As Integer)
[单项选择]在运行阶段，要在文本框Text1获得焦点时选中文本框中所有内容，对应的事件过程是
Ａ) Private Sub Text1_GotFocus（ ）
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
End Sub
Ｂ) Private Sub Text1_LostFocus（ ）
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
End Sub
Ｃ) Private Sub Text1_Change（ ）
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
End Sub
Ｄ) Private Sub Text1_SetFocus（ ）
Text.SelStart=0
Text1.SelLength=Len(Text1.Text)
End Sub
[单项选择]在运行阶段，要在文本框Text1获得焦点时选中文本框中所有内容，对应的事件过程是
Ａ) Private Sub Text1_GotFocus（ ）
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
End Sub
Ｂ) Private Sub Text1_LostFocus（ ）
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
End Sub
Ｃ) Private Sub Text1_Change（ ）
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
End Sub
Ｄ) Private Sub Text1_SetFocus（ ）
Text.SelStart=0
Text1.SelLength=Len(Text1.Text)
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、Text2的两个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中间号（ ）处应填入的内容是
Private Sub Text1_LostFocus（ ）
Call CheekInput(Text1,500)
End Sub
Private Sub Text2_LostFocus（ ）
Call CheekInput(Text2,1000)
End Sub
Sub Cheeklnput(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的文本框，一个名称为Combo1的组合框。将文本框中的内容添加到组合框中所使用的命令是
A. Text1.AddItem Combo1.Text
B. Combo1.AddItem Text1.Text
C. Combo1.Text=Text1.Text
D. Text1.Text=Combo1.Text
[单项选择]在窗体上画 1 个文本框，其名称为 Text1，然后编写如下过程： Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode)
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+2)
End Sub 程序运行后，把焦点移到文本框中，此时如果敲击"A"键，则输出结果为______。
A. A
B. A
C. A
D. A
