清除文本框Text1中选中内容的代码是：Text1.SelText=""

在窗体上画两个名称分别为Text1、Text2的文本框。Text1的Text属性为“Database”， 如图所示。现有如下事件过程： Private Sub Text1_Change（)Text2.Text=Mid（Text1,1,1)End Sub运行程序，在文本框Text1中原有字符之前输入a，Text2中显示的是：（）。 在窗体上有一个文本框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和Text2，然后编写下列程序。程序运行后，如果在文本框 Text2中输入lmn，那么在文本框Text1中显示的内容将是 【8】 。 Private Sub Form_Load（) Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_KeyPress（Key 在窗体中有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：打开窗体运行后，单击命令按钮，文本框Text1输出的结果是（） 设窗体上有一个文本框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 窗体上有一个由两个文本框组成的控件数组，名称为Text1，并有如下事件过程： Private Sub Text1_Change（Index As Integer) Select Case Index Case 0 Text1 （1). FontSize = Text1 （0). FontSize * 2 Text1 （1). Text = Text1 （0). Text Case 1 Text1 设窗体中有一个文本框Text1，若在程序中执行了Text1.SetFocus，则触发 设窗体中有一个文本框Text1，若在程序中执行了Text1.SetFocus，则触发______。 在窗体中有一个文本框Text1，编写事件代码如下：Private Sub Form_Click（）X = Val（Inputbox（“输入x的值”））Y = 1If X0 Then Y = 2Text1.Value = YEnd Sub打开窗体运行，在输入框中输入整数12，文本框Text1中的结果是（） 在窗体中有一个文本框Text1，编写事件代码如下：PrivateSubForm_Click（）X=val（InputBox（"输入x的值"））Y=1IfX0ThenY=2Text1.Value=YEndSub打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是（） 在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程： Private Sub Command1_Click（) Text1.Text = "计算机" Text2.Text = Text1.Text Text1.Text = "等级考试" End Sub 程序运行后，单击命令按钮，两个文本框（Text1和Text2)内容分别为 （6) 和 （7) 。 在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程： Private Sub Coraraand1_Click（) Text1.Text="计算机" Text2.Text=Text1.Text Text1.Text="等级考试" End Sub 程序运行后，单击命令按钮，两个文本框（Text1和Text2)内容分别为 和 。 在窗体上画一个名称为Text1,的文本框和一个名称为Command1的命令按钮，然后编写以下程序代码：运行程序，单击Command1，则在文本框Text1中显示的结果为（） 在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程： Private Sub Command1_Click（)Text1．Text="计算机"Text2．Text=Text1．TextText1．Text="等级考试" End Sub 程序运行后，单击命令按钮，两个文本框（Text1和Text2)中的内容分别为 【6】 和 【7】 。 下图是应用程序的窗体，要求用户选中复选框Check1后，文本框Text1中的文字以粗体显示，选中复选框Check2后，文本框Text1中的文字以斜体显示，单击“关闭”按钮Command1后结束应用程序运行。 Private Sub Check1_ Click （) if 【11】 then Text1. FontBold = True Else Text1. FontEold = 【12】 End 在表单中有命令按钮Command1和文本框Text1，将文本框的InputMask属性值设置为＄9，999.9，然后在命令按钮的Click事件中输入代码ThisForm.Text1.Value=123456.789，当运行表单时，单击命令按钮，此时文本框中显示的内容为 设窗体上有一个文本框Text1和一个命令按钮Command1，并有以下事件过程：程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是（） 在窗体上添加一个命令按钮Command1和一个文本框Text1，把文本框的Tex入8和10，则文本框中显示的内容是 以下程序判断从文本框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