下列过程的功能是：在对多个文本框进行输入时，对第1个文本框(text1)输入完毕后用回车键使焦点跳到第2个文本框(text2)，而不是Tab键来切换。请完成该程序。Private Sub Textl_(eyDown(Keycode As Integer，Shift As Integer)If [14] ThenText [15]End IfEnd Sub
下列过程的功能是：在对多个文本框进行输入时，对第1个文本框(text1)输入完毕后用回车键使焦点跳到第2个文本框(text2)，而不是Tab键来切换。请完成该程序。
Private Sub Textl_(eyDown(Keycode As Integer，Shift As Integer)
If [14] Then
Text [15]
End If
End Sub
相关考题：
窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号（?）处应填入的内容是。Private Sub Text1_LostFocus（）Call CheckInput（Text1，500）End SubPrivate Sub Text2_LostFocus（）Call CheckInput（Text2，1000）End SubSub CheckInput（t As ?，x As Integer）If Val（t.Text）x ThenMsgBox"请重新输入!"End IfEnd SubA．TextB．SelTextC．ControlD．Form
在窗体上画1个文本框，其名称为Text1，然后编写如下过程：Private Sub Text1_KeyDown（KeyCode As Integer,Shift As Integer）Print Chr（KeyCode）End SubPrivate Sub Text1_KeyUp（KeyCode As Integer，Shift As Integer）Print Chr（KeyCode+2）End Sub程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为。A．AAB．ABC．ACD．AD
在窗体上从左到右有Text1、Text2两个文本框（见图），要求程序运行时，在Text1中输入1个分数后按回车键，则判断分数的合法性，若分数为0~100中的1个数，周围光标移到Text2中；否则光标不动，并弹出对话框显示“分数错”，下面程序中正确的是（ ）。A．Private Sub Text1__KeyPress（KeyAscii AS Integer）If KeyAscii=13 Then ‘回车符的ACSII码是13a=Val（Text1）If a=0 or a=100 ThenText2.SetFocusElseText1. SetFocus ; MsgBox（“分数错”）End IfEnd IfEnd SubB．Private Sub Text1__KeyPress（KeyAscii AS Integer）If KeyAscii=13 Then ‘回车符的ACSII码是13a=Val（Text1）If a=0 And a=100 ThenText1.SetFocusElseText2. SetFocus ; MsgBox（“分数错”）End IfEnd IfEnd SubC．Private Sub Text1__KeyPress（KeyAscii AS Integer）If KeyAscii=13 Then ‘回车符的ACSII码是13a=Val（Text1）If a0 And a100 ThenText2.SetFocusElseText1. SetFocus ; MsgBox（“分数错”）End IfEnd IfEnd SubD．Private Sub Text1__KeyPress（KeyAscii AS Integer）If KeyAscii=13 Then ‘回车符的ACSII码是13a=Val（Text1）If a=0 And a=100 ThenText2.SetFocusElseText1. SetFocus ; MsgBox（“分数错”）End IfEnd IfEnd Sub
（ 28 ） 窗体上有名称分别为 Text1 、 Text2 的 2 个文本框 ， 要求文本框 Text1 中输入的数据小于 500 ， 文本框 Text2 中输入的数据小于 1000 ，否则重新输入。为了实现以上功能，在下列程序中问号（ ? ）处应填入的内容是（ ）。Private Sub Text1_LostFocus( )Call CheckInput(Text1,500)End SubPrivate Sub Text2_LostFocus( )Call CheckInput(Text2,1000)End SubSub CheckInput(t As ?,x As Integer)If Val(t.Text)x ThenMsgBox" 请重新输入 !"End IfEnd SubA ） TextB ） SelTextC ） ControlD ） Form
（ 29 ）在窗体上画 1 个文本框，其名称为 Text1 ，然后编写下列过程：Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode+2)End Sub程序运行后，把焦点移到文本框中，此时如果敲击 A 键，则输出结果为（ ）。A ） AAB ） ABC ） ACD ） AD
窗体上有名称分别为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 SubA．TextB．SelTextC．ControlD．Form
在窗体上画1个文本框，其名称为Text1，然后编写如下过程： Pfivme 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 AB．A BC．A CD．A D
如图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框（即“查找对象”右边的文本框）输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。Private Sub Command1_Click（）Dim k As Integer, n As Integer, found As Booleanfound = Falsen = Len（【14】 ）k = 0While k List1.ListCount And Not foundIf Text1 = Left$（List1.List（k）, n） ThenText2 = 【15】found = TrueEnd Ifk = k + 1WendIf Not found ThenText2 = "查无此人"End IfEnd Sub
若要求在图6-16窗口中，用户输入月工资(或薪金收入)后，直接按回车键或向下方向箭就能使焦点(当前光标)跳到应扣除的基本费用的输入文本框，而不用【Tab】键进行切换。请将以下文本框ht_salary的KeyDown(按键)事件过程中空缺的程序代码填写完整。If KeyCode =13 Or KeyCode = 40 Then(6)End If
（17）窗体上添加了一个文本框Text1,编写下列代码： Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+5)KeyCode End Sub 程序运行时，在文本框中输入“ab”则在窗体上输出为 A.F65 G66 B.F65 F65 C.G66 F65 D.G65 G66
下列过程的功能是：在对多个文本框进行输入时，对第一个文本框(text1)输入完毕后用回车键使焦点跳到第二个文本框(text2)，而不是用TAB键来切换。请填空。Private Sub [11] KeyDown(KeyCode As Integer,Shift As Integer)If KeyCode [12] vbKeyRetum ThenText2.SetFocusEnd IfEnd Sub
下列程序执行后，按住Cbl键并在文本框中输入a，则在窗体上输出的结果为 ______。 Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) Print keyCode, Shift End SubA．a 2B．65 2C．97 1D．97 2
窗体上添加一个文本框Text1，编写如下代码： Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode+5)KeyCode End sub 程序运行时，在文本框中输入“ab”，则在窗体上输出为( )。A．F65 G66B．F65 F66C．G66 F65D．G65 G66
窗体上有两个名称分别为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．AB．aC．CD．c
设窗体上有一个名为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text=" " Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer， Shift As Integer，X As Single，Y As Single) Print“程序设计” End Sub Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) Print "Visual Basic"； End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗本上显示的内容是A．Visual BasicB．程序设计C．Visual Basic程序设计D．a程序设计
设在窗体上有个文本框，然后编写如下的事件过程：Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer)Const Alt=4Const Key_F2=H71altdown%=(Shift And Alt)＞0f2down%=(KeyCode=Key_F2)If altdown% And f2down% ThenText1.Text="BBBBB"End IfEnd Sub上述程序运行后，如果按“Shift+F2”组合键，则在文本框中显示的是A．Alt+F2B．BBBBBC．随机出几个数D．文本框内容无变化
在窗体上画一个名称为Text1的文本框，并编写如下程序： Private Sub Form_Load( ) Show TextText = " " TextSetFocus End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y _ As Single) Print "程序设计" End Sub Private Sub Text1_Ke!tDown(KeyCode As Integer,Shift As Integer) Print "Visual Basic"; End Sub 程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容是 ______。A．Visual BasicB．程序设计C．A程序设计D．Visual Basic程序设计
在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下事件过程：Private Sub Form_ Lead()ShowText1.Text = " "Text2.Text = " "Text2.SetFocusEnd SubPrivate Sub Text2_ KeyDown (KeyCode As Integer, Shift As Integer)Text1.Text = Text1.Text + Chr (KeyCode - 4)End Sub程序运行后，如果在Text2文本框中输入efghi，则Text1文本框中的内容是______。
在窗体上画1个文本框，其名称为Text1，然后编写如下过程：Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Text1_Key Up(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode+2)End Sub程序运行后，把焦点移到文本框中，此时如果敲击“A”A．B．C．D．
窗体上添加一个文本框Text1，编写下列代码： Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+5) KeyCode End Sub 程序运行时，在文本框中输入“ab”，则在窗体上输出为( )。A．F65 G66B．F65 F66C．G66 F65D．G65 G66
设在窗体上有个文本框,然后编写如下的事件过程Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)Const Alt=4Const Key_F2=H71altdown%=(Shift And Alt) 0f2down%=(KeyCode=Key_F2)If altdown% And f2down% ThenText1.Text="BBBBB"End IfEnd Sub上述程序运行后,如果按【Shift+F2】,则在文本框中显示得是A．Alt+F2B．BBBBBC．随机出几个数D．文本框平均内容无变化
在窗体上画一个名称为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和Text2;两个标签，其名称分别为Label1和Label2。编写程序，使得程序运行后，在文本框Text2中输入小写字母，能转换为比此字母的ASCII码小4的大写字母，结果显示在文本框Text1中。如输入“efg”，则输出的结果为“ABC”，能够实现上述功能的程序是A．Private Sub Form. Load() Show Text1．Text=" " Text2．Text=" " Text2．SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer，Shift As Integer) Text1．Text=Chr(KeyCode-4) End SubB．Private Sub Form_Load() Show Text1．Text=" " Text2．Text=" " Text2．SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer，Shift As Integer) Text1．Text=Text1．Text+Chr(KeyCode-4) End SubC．Private Sub Form_Load() Show Text1．Text=" " Text2．Text=" " Text2．SetFocus End Sub Private Sub Text2_Click(KeyCode As Integer，Shift As Integer) Text1．Text=Text1．Text+Chr(KeyCOde-4) End SubD．Private Sub Form_Load() Show Text1．Text=" " Text2．Text=" " Text2．SetFocus End Sub Private Sub Text2_Click(KeyCode As Integer，Shift As Integer) Text1．Text=Chr(KeyCode-4) End Sub
下列程序执行后,按住键,并在文本框中输入“a”,则在窗体上输出结果为()。Private Sub Text1_K 下列程序执行后，按住＜Ctrl＞键，并在文本框中输入“a”，则在窗体上输出结果为( )。 Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) Print KeyCode，Shift End SubA．a 2B．65 2C．97 1D．97 2
下列程序执行后，在Ctrl和Alt这两个键都被按下的同时，再在文本框中输入“a”，输出结果为 Prirate Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) If Shift ＞ 0 And KeyCode ＞= Asc("A")Then Print KeyCode + Shift End If End SubA．65B．71C．0D．出错
在窗体上画一个名称为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