下列程序是将两个文本框（tetx1和text2)的内容进行组合，组合后的结果在图片框（Pic1)显示出来。 Private Sub Command1_Click（) Dim s1 As String， s2 As String s1 = Text1.Text s2 = Text2.Text For i = Len（s1)To 1 Step -1 s3 = s3 + Mid（s1， i， 1)+

在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1、Text2，然后编写如下程序： Private Sub Command1_Click() a=Text1.Text b=Text2.Text c=LCase (a) d=UCase (b) Print c；d End Sub程序运行后，在文本框Text1、Text2中分别输入AbC和Efg，结果是______ 。 窗体上有两个名称分别为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中显示的是 在窗体上画两个名称分别为Text1、Text2的文本框。Text1的Text属性为“Database”， 如图所示。现有如下事件过程： Private Sub Text1_Change（)Text2.Text=Mid（Text1,1,1)End Sub运行程序，在文本框Text1中原有字符之前输入a，Text2中显示的是：（）。 在窗体上按顺序，分别画出变量按钮Command1、文本框Text1和Text2。为了将Text2的Tab顺序设置为第一，应将Text2的TabIndex属性设置为 （ 19 ）在窗体上画两个文本框（名称分别为 text1 和 text2 ）和一个命令按钮（名称为 command1 ） , 然后编写如下事件过程： 在窗体上画两个文本框，名称为Text1，Text2。使得在运行时，如果在Text1中每输入一个字符，则显示一个“*”，同时在Text2中显示输入的内容。程序运行时的界面如下图所示。 在窗体上画两个文本框（名称分别为Text1和Text2)和一个命令按钮（名称为Command1)，然后编写如下事件过程： Private Sub Command1 Click（) Text1.Text = InputBox（"请输入数据1") Text2.Text = InputBox（"请输入数据2) End Sub 程序运行后，如果单击命令按钮，将先后显示两个输入对话框，在两个输入对话框中分 在窗体上画两个名称分别为Text1、Text2的文本框，一个名称为Label1的标签，窗体外观如图a所示。要求当改变任一个文本框的内容时就会将该文本框的内容显示在标签中，如图b所示。实现上述功能的程序如下：图a图b关于上述程序，以下叙述中错误的是（） 在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程： Private Sub Command1_Click（) Text1.Text="VB Programming" Text2.Text=Text1.Text Text1.Text="ABCD" End Sub 程序运行后，单击命令按钮，两个文本框中显示的内容分别为 （8) 和 （9) 。 在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程： Private Sub Command1_Click（) Text1. Text＝"VB Programming" Text2. Text＝Text1. Text Text1. Text＝"ABCD" End Sub 程序运行后，单击命令按钮，两个文本框中显示的内容分别为 【7】 和 【8】 。 在窗体上有Text1、Text2两个文本框,要求程序运行时, 在Text1中输入1个分数后按回车键,程序判断分数的合法性, 若分数为0~100中的1个数,光标移到Text2中;否则光标不动, 并弹出对话框显示"分数错",下面程序中正确的是() 下列过程的功能是：在对多个文本框进行输入时，对第1个文本框（text1)输入完毕后用回车键使焦点跳到第2个文本框（text2)，而不是用Tab键来切换。请完成该程序。 Private Sub Text1_KeyDown（Keycode As Integer , Shift As Integer)If______ThenText2.______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 Sub 下列过程的功能是：在对多个文本框进行输入时，对第1个文本框（text1)输入完毕后用回车键使焦点跳到第2个文本框（text2)，而不是Tab键来切换。请完成该程序。 Private Sub Textl_（eyDown（Keycode As Integer，Shift As Integer) If [14] Then Text2. [15] End If End Sub 在窗体上画两个文本框，然后编写程序。程序运行后，如果在第一个文本框中输入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 Integ 在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮 (名称为Command1)，外观如下图所示。 编写如下程序： Private Sub Form_Load() Text1.Text="" Text2.Text="" Text3.Text="" End Sub Private Sub Commandl_Click() x=Val(Text1.Text) y=Val(Text2.Text) Text3.Text=f(x,y) End Sub Function f(ByVal x As Integer,ByValy As Integer) DoWhiley＜＞0tmp=x ModyX=yy=tmp Loop f=X End Function 运行程序，在Textl文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是( )。 在窗体上建立名称为Text1、Text2和删的三个文本框，其中Text1和Text2文本框用来接受两个整数（假设为M和N)，建立一个名称为command1的命令按钮，单击它将得到数M从右边起的N位数字，并把该数字显示在Text3文本框中，如下图所示。请填空。 private Fuction digit（ByVal m As Integer, ByVal n As Integer) As Integ 在窗体上画2个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程： Private Sub Command1_Click() Text1.Text=”VB Programming” Text2.Text=Text1.Text Text1.Text=”ABCD” End Sub 程序运行后，单击命令按钮，两个文本框中显示的内容分别为____和____ 在窗体上画两个文本框，然后编写程序。程序运行后，如果在第一个文本框中输入A和B、 C、D或a、b、c、d，则在第二个文本框中显示EFDH。请完善下列程序。 Private Sub Form_Load（)ShowText1．Text=" "Text2．Text=" "Text1．SetFocus End Sub Private Sub Text1_KeyDown（KeyCode As Integer 在窗体中添加一个名称为Lablel1的标签、两个名称为Text1和Text2的文本框以及名称为Command1的按钮。程序运行后，在两个文本框中输入数据，当单个按钮时，标签Label1中显示运算的结果。程序的功能是计算，n!+（n+1)!+（n+2)!+…+（n+m)!。 请在 【15】 处填入适当的内容，将程序补充完整。 Private Sub Command1_Click（) Dim a，b