窗体上有名称为Text1、Text2的2个文本框，有一个由3个单选按钮构成的控件数组 Option1，如图1所示。程序运行后，如果单击某个单选按钮，则执行Text1中的数值与该单选按钮所对应的运算（乘以1、10或100)，并将结果显示在Text2中，如图2所示，为了实现上述功能，在程序中的问号（)处应填入的内容是（）。 Private Sub Option1 Click（Index As Inte

在窗体上画两个名称分别为Text1、Text2的文本框，Text1的Text属性为“DatBase”，如下图所示。现有如下事件过程：运行程序，在文本框Text1中原有字符之前输入a，Text2中显示的是（） 设窗体中有一个文本框Text1，若在程序中执行了Text1.SetFocus，则触发______。 设窗体中有一个文本框Text1，若在程序中执行了Text1.SetFocus，则触发 设窗体上有一个文本框Text1和一个命令按钮Command1，并有以下事件过程：程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是（） 窗体上有一个由两个文本框组成的控件数组，名称为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 在窗体上画3个标签、3个文本框（名称分别为Text1、Text2和Text3）和1个命令按钮（名称为Command1），外观如图所示。 在窗体上添加一个名称为Text1的文本框和一个名称为Command1的命令按钮，编写如下事件过程： Private Sub Command1_Click()Text1.Text=“计算机”Me.Text1=“等级”Text1=“考试” End Sub 程序运行后．如果单击命令按钮，则在文本框中显示的是 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程Private Sub Command1_Click（）Text1.Text = "Visual" Me.Text1 = "Basic" Text1 = "Program"End Sub运行后，如果单击命令按钮，则在文本框中显示的是 在窗体上画一个文本框，名称为Text1，然后编写如下程序：程序运行后，在文本框中输入一个字符串，然后单击窗体，则文本框中的内容（） 窗体上有名称分别为Text1、Text2的文本框，名称为Command1的命令按钮。运行程序，在Text1中输入“FormList”，然后单击命令按钮，执行如下程序：Private Sub Command1_Click（)Text2.Text=UCase（Mid（Text1.Text，5，4))End Sub在Text2中显示的是（）。 在窗体上有一个名称为Text1的文本框，现在要得到其中按键的ASCII码，应使用它的( )事件。 设窗体上有一个文本框，名称为text1，程序运行后，要求该文本框只能显示信息，不能接受输入的信息，以下能实现该操作的语句是()。 窗体上有一个命令按钮和一个文本框，程序执行后，在文本框中输入12345，单击命令按钮后的输出结果为( )。 Private Sub Command1_Click() Dim A As Integer,B As Integer Text1.SelStart=2 Text1.SelLength=2 A=Val(Text1.SelText) B=Len(Text1.Text) Print A*B End Sub 在窗体中有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：打开窗体运行后，单击命令按钮，文本框Text1输出的结果是（） 窗体中有一个名为Command1的命令按钮和一个名为Text1的文本框，事件代码如下：打开窗体，单击命令按钮，文本框Text1中显示的内容是__________。 程序是一个窗体双击事件代码，窗体的名称是Mywindow。窗体上有一个名为text1的文本框，用来显示文本。 程序段首先在文本框中显示“窗体能够触发双击事件”然后将该文本清除；重复上述过程5次。 Option Explicit Private ______ Dim k As Integer For k=1 To 100 If k Mod 20 Then _______ Else Text1.Tex 程序是一个窗体双击事件代码，窗体的名称是Mywindow。窗体上有一个名为text1的文本框，用来显示文本。 程序段首先在文本框中显示“窗体能够触发双击事件”然后将该文本清除；重复上述过程5次。 Option Explicit Private ______ Dim k As Integer For k=1 To 100If k Mod 20 Then _______ElseText1.Text=" 在窗体上有一个文本框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的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的文本框和一个名称为Command1的命令按钮，然，如果单击命令按钮，则在文本框中显示的是