在窗体上建立名称为了ext1、Text2和Text3的三个文本框，其中Text1和Text2文本框用来接受两个整数（假设为M和N)，建立一个名称为Command1的命令按钮，单击它将得到数M从右边起的第N位数字，并把该数字显示在Text3文本框中，如图20-15如示。请填空。 Private Function digit（ByVal m As Integer，ByVal n As Integer)

在窗体上画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文本框中显示的内容是( )。 在窗体上画两个文本框（其名称分别为Textl和Text2)和一个命令按钮（其名称为 Command1)，然后编写如下两个事件过程： Private Sub Command1_Click（)Text1.Text="Microsoft Visual Basic" End Sub Private Sub Text1_Change（)Text2.Text=UCase（Text1.Text) End Sub 在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式计算。窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中。请填空。 Private Sub Command1_Click（) Dim r As Integer,n As Intege 窗体上有名称分别为Text1、Text2的文本框，名称为Command1的命令按钮。运行程序，在Text1中输入“FormList”，然后单击命令按钮，执行如下程序：Private Sub Command1_Click（)Text2.Text=UCase（Mid（Text1.Text，5，4))End Sub在Text2中显示的是（）。 在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式计算，下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中（见下图)。请填空。 Private Sub Command 1_Click（) Dim r As Integer, n 窗体上有一个由两个文本框组成的控件数组，名称为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 在窗体中添加一个命令按钮，名称为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，结果是______ 。 在窗体上按顺序，分别画出变量按钮Command1、文本框Text1和Text2。为了将Text2的Tab顺序设置为第一，应将Text2的TabIndex属性设置为 在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式计算。下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中（见下图)。请填空。 Private Sub Commandl_Click（) Dim r As Integer， n A 在窗体上画两个名称分别为Text1、Text2的文本框。Text1的Text属性为“Database”， 如图所示。现有如下事件过程： Private Sub Text1_Change（)Text2.Text=Mid（Text1,1,1)End Sub运行程序，在文本框Text1中原有字符之前输入a，Text2中显示的是：（）。 窗体上有名称分别为Text1、Text2的文本框，名称为Command1的命令按钮。运行程序，在Text1中输入“FormList”，然后单击命令按钮，执行如下程序：在Text2中显示的是（） 在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式 n!计算。下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在 （n-r)!r! Text1、Text2中分别输入n和r的值，单击Commandl按钮即可求出选法的个数，并显示在Text3文本框中。请填空。 Private Sub Commandl_Click（) Dim r As Inte 新建一个工程。在窗体中画三个标签，名称分别为Label1、Label2和Label3，标题分别为“加数1”、“加数2”和“和”。在三个标签下分别有三个文本框（名称分别为Textl、Tex2和Text3)用来输入数字。要求编写一个事件过程，程序运行后在文本框Text1和Text2中输入数字，单击文本框Text3后其中输出两个数的和。如图14所示。程序中不得使用任何变量。 注意：存盘时必须存放在考生文 （ 19 ）在窗体上画两个文本框（名称分别为 text1 和 text2 ）和一个命令按钮（名称为 command1 ） , 然后编写如下事件过程： 窗体上有两个名称分别为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、Text2的文本框，Text1的Text属性为“DatBase”，如下图所示。现有如下事件过程：运行程序，在文本框Text1中原有字符之前输入a，Text2中显示的是（） 窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下：当向文本框Text1中输入小写字母a时，文本框Text2中显示的是（） 在窗体（Name属性为Form1)上画两个文本框（其Name属性分别为Text1和Text2)和一个命令按钮（Name属性为Command1)，然后编写如下两个事件过程： Private Sub Command1_Click（)A=Text1.Text+Text2.TextPrint A End Sub Private Sub Form Load（)Text1.Text=" "Text2.Text 在窗体上画1个文本框，名称为Text1，然后编写如下程序： Private Sub Form Load（) Open "C:dat.txt" For Output As1 Text1.Text="" End Sub Private Sub Text1_KeyPress（KeyAscii As integer) If______=13 Then If UCase（Text1.Text=______) 在窗体上画—个文本框，名称为Text1，然后编写如下程序： Private Sub Form_Load（) Open"d:empdat.txt"For Output As 1 Text1.Text="" End Sub Private Sub Text1_KeyPress（Key Ascii As Integer) IfKeyAscii=13 Then If UCase（Text1.Text)=