已知文本框Text1中输入了一篇英文短文，并编写了如下程序段：Str_x = Text1.Textn = Len(Str_x)m = 0t = 0For i = 1 To nw = UCase(Mid(Str_x, i, 1))If w >= A And w <= Z ThenIf t = 0 Then m = m + 1t = t + 1Elset = 0End IfNextPrint m该程序段的功能为统计并输出英文短文中________。

在窗体（Name属性为Formal）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程： https://assets.asklib.com/images/image2/2017110811221976005.jpg 程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为（）

在表单FORM1中有一个编辑框EDIT1，一个文本框TEXT1和一个命令按钮COMMAND1，现要使文本框显示编辑框中被选定的内容，应在COMMAND1的CLICK事件中编写的代码是（）。

在表单中有命令Command1和文本框Text1，将文本框的InputMask属性值设置为$9，999.9，然后在命令按钮的Click事件中输入代码ThisForm.Text1.Value=123456.789，当运行表单时，单击命令按钮，此时文本框中显示的内容为________。

窗体上有文本框Text1、Text2和命令按钮Command1，编写如下事件过程：PrivateSubCommand1_Click()Ifval(Text1.Text)<=3thenText2.Text=“h”ElseText2.Text=“i”EndIfEndSub当用户在文本框Text1中输入6，并单击Command1，则文本框Text2中显示（）。

在窗体上画一个名称为Command1的命令按扭和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程:Private Sub Command1_Click( )n %= Text1.TextSelect Case nCase 1 to 20x=10Case 2,4,6x=20Case Is<10x=30Case 10x=40End SelectText2.Text=xEnd Sub程序运行后，如果在文本框Text1中输入10，然后单击命令按扭，则在Text2中显示的内容是________。

在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：  Private Sub Command1_Click() A =Inputbox(\Enter An Integer\)  B =Inputbox(\Enter An Integer\)  Text1.Text = B +A  End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入4和56，则文本框中显示的内容是_______。

在窗体上画一个命令按钮和一个文本框，其名称分别为Commandl和Text1，把文本框的 Text属性设置为空白，然后编写如下事件过程： Private Sub Commandl_click() a=InputBox("Enter an integer") b=InputBox("Enter an integer") Text1.Text=b+a End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示内容是()。

在窗体上有两个文本框控件，名称分别为Text1和Text2，以下程序实现的功能是希望在文本框Text1中输入字符时，输入的字符也将出现在Text2文本框中。运行时的程序界面如图20-1所示，下划线处应填()。

在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() a=InputBox("Enter an integer") b=InputBox("Enter an integer") Text1.Text=b+a End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是______。

窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号（）处应填入的内容是。

（28 ） 窗体上有名称分别为 Text1 、 Text2 的 2 个文本框 ， 要求文本框 Text1 中输入的数据小于 500 ， 文本

在窗体上画一个文本框，然后编写如下事件过程： Private Sub Form_Click( ) x=InputBox(“请输入一个整数”) Print x+Text1.Text End Sub 程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为

在窗体上画l个命令按钮和l个文本框，其名称为Command1和Text1，再编写如下程序： Dim ss As String Private Sub Text1 KeyPress(KeyAscii As Integer) If Chr(KeyAscii)＜＞""Then ss=ss+Chr(KeyAscii) End Sub Private Sub Command1 Click（） Dim m As String，i As Integer For i=Len(ss)To 1 Step-1 m=m+Mid(SS，i，1) Next Text1．Text=UCase(m) End Sub 程序运行后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中显示的就是（）。

在窗体上有一个文本框，其名称为Text1，编写下列事件过程：Private（）

【简答题】建立一个文本文件,从键盘输入一篇短文存放在文件中。短文由若干行构成,每行不超过80个字符。

窗体上有一个名称为Command1的命令按钮，一个名称为Text1的文本框。编写如下程序：对于上述程序，以下叙述中错误的是（）

在窗体中有一个文本框Text1，编写事件代码如下：PrivatesubForm_Click（）X=val（Inputbox（&quot;输入x的值&quot;））Y=1IfX＜＞0ThenY=2Text1.Value=YEndSub打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是（）

在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程： Private Sub Command1_Click（) Text1.Text="VB Programming" Text2.Text=Text1.Text Text1.Text="ABCD" End Sub 程序运行后，单击命令按钮，两个文本框中显示的内容分别为 （8) 和 （9) 。

在窗体上画两个文本框，名字分别为Text1和Text2，然后编写下列程序。程序运行后，如果在文本框 Text2中输入lmn，那么在文本框Text1中显示的内容将是 【8】 。 Private Sub Form_Load（) Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_KeyPress（Key

在窗体上画两个文本框（名称分别为Text1和Text2)和一个命令按钮（名称为Command1)，然后编写如下事件过程： Private Sub Command1 Click（) Text1.Text = InputBox（"请输入数据1") Text2.Text = InputBox（"请输入数据2) 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

在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程： Private Sub Command1_Click（) Text1.Text = "计算机" Text2.Text = Text1.Text Text1.Text = "等级考试" End Sub 程序运行后，单击命令按钮，两个文本框（Text1和Text2)内容分别为 （6) 和 （7) 。

把一个磁盘文件的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入另一个磁盘文件，请填空完成程序。 在窗体上建立一个文本框，在属性窗口中把该文本框的MultiLine属性设置为 True，然后编写如下的事件过程： Prlvate Sub Form_Click（) Open"D:est1.txt"For Input As 1 Text1.FontSize＝14 Text1.FontName

把一个磁盘文件的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存人另一个磁盘文件，请填空完成程序。在窗体上建立一个文本框，在属性窗口中把该文本框的Muhiline属性设置为True，然后编写如下的事件过程： Private Sub Form_Click（) Open"d：estsmtext1．txt"For lnput As1 Text1.Fontsize=14 Text1.FontN