以下程序判断从文本框Text1中输入的数据，如果该数据满足条件：除以3余2，除以 5余3，除以7余4，则输出；否则，将焦点定位在文本框Text中，选中其中的文本。 Private Sub Command1_Click（)x＝Val（Text1.Text)If 【9】 Then Print xElse Text1.SetFoeus Text1.SetStart＝0End 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 在窗体上有一个文本框Text1，Text属性值为空，然后编写下列事件过程： Private Sub Text1 KeyPress(KeyAscii As Integer) Dim str As String,n As Integer str=UCase(Chr(KeyAscii)) n=Len(str) Text1.Text=String(n,str) End Sub 程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为( )。 设窗体上有一个文本框，名称为Text1，程序运行后，要求该文本框只能显示信息，不能接收输入信息，以下能实现该操作的语句是 有下面一个程序段，从文本框中输入数据，如果该数据满足条件“除以4余1，除以5余2”，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。 Private Sub Command1_Click（) x=Va1（Text1.Text) If （14) Then Print X Else Text1.Text=“” （15) End If End Sub 窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序：程序运行后，如果从键盘上输入16，则在文本框中显示的内容是（） 在窗体上画两个名称分别为Text1、Text2的文本框。Text1的Text属性为“Database”， 如图所示。现有如下事件过程： Private Sub Text1_Change（)Text2.Text=Mid（Text1,1,1)End Sub运行程序，在文本框Text1中原有字符之前输入a，Text2中显示的是：（）。 设窗体上有一个文本框，名称为text1，程序运行后，要求该文本框只能显示信息，不能接受输入的信息，以下能实现该操作的语句是()。 窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下：Private Sub Text1_KeyUp（KeyCode As Integer，Shift As Integer)Dim c As Stringc=UCase（Chr（KeyCode))Text2.Text=Chr（Ase（c)+2)End Sub当向文本框Text1中输入小写字母a时，文本框Text2 在窗体上画一个文本框，名称为Text1，然后编写如下程序：程序运行后，在文本框中输入一个字符串，然后单击窗体，则文本框中的内容（） 窗体上有两个名称分别为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和一个命令按钮Command1，并有以下事件过程：Private Sub Command1_Click（)Dim s As String，ch As Strings=""For k=1 To Len（Text1)ch=Mid（Text1，k，1)s=ch+sNext kText1.Text=sEnd Sub程序执行时，在文本框中输入“B 在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序：程序运行后，如果从键盘上输入16，则在文本框显示的内容是（）。 在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：程序运行后，在文本框中输入456，然后单击命令按钮，在输入对话框中输入123，则文本框中显示的内容是（） 设窗体中有一个文本框Text1，若在程序中执行了Text1.SetFocus，则触发 设窗体中有一个文本框Text1，若在程序中执行了Text1.SetFocus，则触发______。 在窗体上画一个名称为Text1,的文本框和一个名称为Command1的命令按钮，然后编写以下程序代码：运行程序，单击Command1，则在文本框Text1中显示的结果为（） 清除文本框Text1中选中内容的代码是：Text1.SelText="" 以下程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以 5余2”的条件，则在窗体上输出文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容。请填空。 Private Sub Command1_Click（) x=Val（Text1.Text) If______Then Print x Else ______ Text1.Text="" End If End Sub 下列程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以5余2”条件，则在窗体上输山文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容。请填空。 Private Sub Command1_Click（)x=Val（Text1.Text)If______Then Print xElse ______ Text1.Text=""End If End Sub 在窗体上有Text1、Text2两个文本框,要求程序运行时, 在Text1中输入1个分数后按回车键,程序判断分数的合法性, 若分数为0~100中的1个数,光标移到Text2中;否则光标不动, 并弹出对话框显示"分数错",下面程序中正确的是()