在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1)，程序运行后如果在文本框中输入文本，则标签中立即显示相同的内容。以下可以实现上述操作的事件过程是( )。A．Private Sub Text1_Change() Label1．Caption=Text1．Text End SubB．Private Sub Label 1_Change() Label1．Caption=Text1．Text End SubC．Private Sub Text1_Click() Label1．Captio

题目

在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1)，程序运行后如果在文本框中输入文本，则标签中立即显示相同的内容。以下可以实现上述操作的事件过程是( )。

A．Private Sub Text1_Change() Label1．Caption=Text1．Text End Sub

B．Private Sub Label 1_Change() Label1．Caption=Text1．Text End Sub

C．Private Sub Text1_Click() Label1．Caption=Text1．text End Sub

D．Private Sub Label1_Click( ) Label1．Caption=Text1．Text End sot

相似考题

1.在窗体上画一个文本框（其名称为 Text1）和一个标签（其名称为 Label1），程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容，以下可以实现上述操作的事件过程是（ ）。A．Private Sub Text1_Click（）Label1.Caption=Textl.TextEnd SubB．Private Sub Text1_Change（）Label1.Caption=Text1.TextEnd SubC．Private Sub Label1_Ctrange（）Label1.Caption=Text1.TextEnd SubD．Private Sub Label1_Click（）Label1.Caption=Text1.TextEnd Sub

2.窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Labell)。要求程序运行后，如果在文本框中输入字符，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是 ______。A．Private Sub Text1_Change() Labell.Caption=Text1.Text End SubB．Private Sub Text1_Click() Labell.Caption=Text1.Text End SubC．Private Sub Labell_Change() Labell.Caption=Text1.Text End SubD．Private Sub Labell_Click() Labell.Caption=Text1.Text End Sub

3.在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是（ ）。A．Private Sub Text1_Change（）Command1.Caption = "计算机等级考试"End SubB．Private Sub Command1_ Click （）Caption = "计算机等级考试"End SubC．Private Sub Form1_ Click （）Text1.Caption = "计算机等级考试"End SubD．Private Sub Command1_ Click （）Text1.Text = "计算机等级考试"End Sub

4.（ 17 ） 在窗体上画一个文本框 （ 其名称为 Text1 ） 和一个标签 （ 其名称为 Label1 ） ， 程序运行后 ， 如果在文本框中输入指定的信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是A ） Private Sub Text1_Click()Label1.Caption = Text1.TextEnd SubB ） Private Sub Text1_Change()Label1.Caption = Text1.TextEnd SubC ） Private Sub Label1_Change()Label1.Caption = Text1.TextEnd SubD ） Private Sub Label1_Click()Label1.Caption = Text1.TextEnd Sub

参考答案和解析
正确答案：A
解析：文本框控件的change事件是当控件的文本区中的文字发生变化时触发。Chck事件是当用户点击该控件时触发的。所以根据题意要求，用户输入文本，则表桥中立即显示，也就是说当用户向文本框输入时执行，所以应使用文本框控件的change事件，语句labell．Caption=Text1．text的作用是将用户的输入传给标签控件的属性Caption显示，故选A。
更多“在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1)，程序运行后如果在文本框中输入文本，则标签中立即显示相同的内容。以下可以实现上述操作的事件过程是( )。A．Private Sub Text1_Change() Label1．Caption=Text1．Text End SubB．Private Sub Label 1_Change() Label1．Caption=Text1．Text End SubC．Private Sub Text1_Click() Label1．Captio”相关问题

  • 第1题：

    在窗体(名称为Forml)上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是______。

    A． Private Sub Text1_Change() Commandl.Caption="计算机等级考试" End Sub

    B．Private Sub Commandl_Click() Caption=”计算机等级考试” End Sub

    C．Private Sub Forml_Click() Text1.Caption="计算机等级考试" End Sub

    D．PrivateSubCommandl Ulick() Text1.Text="计算机等级考试" End Sub


    正确答案：A
    解析：本题考的是Text控件的Change事件和Command控件的Caption属性。Change事件是在控件内容发生改变时发生，而Caption属性定义的是控件的标题。

  • 第2题：

    （ 15 ）在窗体上画一个文本框（名称为 text1 ）和一个标签（名称为 label1 ） , 程序运行后，在文本框中每输入一个字符 ， 都会立即在标签中显示文本框中字符的个数 ， 以下可以实现实现上述操作的事件过程是

    A ）

    Private Sub Text1_Change()

    Label1.Caption = Str(Len(Text1.Text))

    End Sub

    B ）

    Private Sub Text1_Click()

    Label1.Caption = Str(Len(Text1.Text))

    End Sub

    C ）

    Private Sub Text1_Change()

    Label1.Caption = text1.text

    End Sub

    D ）

    Private Sub label1_Change()

    Label1.Caption = Str(Len(Text1.Text))

    End Sub


    正确答案：A

  • 第3题：

    在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是

    A．Private Sub List1_Click( ) Label1.Caption=List1.List1ndex End Sub

    B．Private Sub List1_Click( ) Label1.Name=List1.List1ndex End Sub

    C．Private Sub List1_Click( ) Label1.Name=List1.Text End Sub

    D．PrivateSubList1_Click( ) Label1.Caption=List1.Text End Sub


    正确答案：D
    解析：题中要求在Label中显示内容，则使用的是其Caption属性，而列表框的List1ndex属性指的是程序运行时被选定的选项的序号，而Text属性是被选定的选项的文本内容。

  • 第4题：

    在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Textl、Labell和Command1，然后编写如下两个事件过程：

    Private Sub Commandl_Click()

    S$=InputBox(”请输入一个字符串”)

    Textl．Text=S$

    End Sub

    Private Sub Textl Change()

    Label1．Caption=UCase(Mid(Text1．Text，7))

    End Sub

    程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“VisualBasic”，则在标签中显示的内容是【 】。


    正确答案：BASIC
    BASIC 解析：MID返回文本字符串中从指定位置开始的特定数目的字符，其格式为：MID(text，start num，hum—chars)，Text包含要提取字符的文本字符串。Start—num文本中要提取的第一个字符的位置。因此，本题是要截取“VisualBasic”从第7个字符起右侧的所有字符。UCase函数将小写字母转换为大写字母。

  • 第5题：

    在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Label1，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(Text1.Text)+0.5) Label1.Caption=Str(x) End Sub 程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是： ______。

    A．27

    B．28

    C．29

    D．30


    正确答案：C
    解析：程序中各部分值的运算过程为：
      Text1.Text="28.653"
      Val(Text1.Text)=28.653
      Val(Text1.Text)+0.5=29.153
      Int(Val(Text1.Text)+0.5)=29
      x=29
      str(x)="29"

  • 第6题：

    在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是

    A．Private Sub List1 Click() Label1.Caption＝List1.List- Index End Sub

    B．Private Sub List1_Click() Label1.Name＝List1. ListIn- dex End Sub

    C．Private Sub List1 Click() Label1.Name＝List1.Text End Sub

    D．Private Sub List1_Click() Label1.Caption=List1.Text End Sub


    正确答案：D
    解析：要实现在标签上显示选中城市的名称，很容易想到需使用标签的Caption属性。标签的Caption属性我们前面已经介绍过。怎样获取选中城市的名称要结合列表List的属性来考虑。其中Text属性表示最后选中列表项的内容。故正确语句应为Label1.Caption＝List1.Text。选项D正确。

  • 第7题：

    在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和 Command1，然后编写如下两个事件过程： Private Sub Command1_Click() strText=InputBox("请输入") Text1.Text=strText End Sub Private Sub Text1_Change() Label1.Caption=Right(Trim(Text1.Text)，4) End Sub 程序运行后，如果在对话框中输入abcdefgh，则在标签中显示的内容是 ______。

    A．空

    B．abcdef

    C．abcd

    D．efgh


    正确答案：D
    解析：Trim函数返回Variant(String)类型，其中包含指定字符串的拷贝，但不包含前导和尾随空白。Right(字符串，n)：返回“字符串”的后n个字符。这里的“字符串”可以是字符串常量、字符串变量、字符串函数或字符串连接表达式。本题中输入的是abcdef,返回后4个字符就是efgh。

  • 第8题：

    窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Labe11)。要求程序运行后，如果在文本框中输入字符，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是______。

    A．Private Sub Text1_Change() Labe11.Caption=Text1.Text End Sub

    B．Private Sub Text1_Click() Labe11.Caption=Text1.Text End Sub

    C．Private Sub Labe11_Change() Labe11.Caption=Text1.Text End Sub

    D．Private Sub Labe11_Click() Labe11.Caption=Text1.Text End Sub


    正确答案：A
    解析：当在文本框中输入字符时，文本框的内容发生变化，所以应把程序写在Text1_Change()事件中。

  • 第9题：

    在窗体上画一个文本框Text1、一个标签Label1和一个命令按钮Command1，然后编写如下两个事件过程： Private Sub Command1_Click() a=InputBox("请输入一个字符串") Text1．Text=a End Sub Private Sub Textl_Change() Label1．Caption=UCase(Mid(Text1．Text，8)) End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“Visual Basic”，则在标签中显示的内容是

    A．visual basic

    B．VISUAL BASIC

    C．basic

    D．BASIC


    正确答案：D
    解析：本题包括两个事件过程，其中命令按钮事件过程通过对话框输入一个字符串，并将该字符串赋给文本框。而当改变文本框的内容时，将触发文本框的Change事件。因此，在将输入的字符串赋给文本框时，将执行文本框的Change事件过程，对标签的Caption属性赋值，该值是：首先取出文本框中第8个字符之后的全部字符，然后将它们转换为大写字母。由于文本框中的字符串为“VisualBasic”，第8个字符为“B”，它之后的字符为“Basic”，执行UCase函数后，转换为大写，即“BASIC”。

  • 第10题：

    在窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Labe11)，程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是( )。

    A．

    B．

    C．

    D．


    正确答案：B

  • 第11题：

    在窗体上画—个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写 如下两个事件过程： Private sub Command1_Click( ) strText=lnputBox(“请输入”) Text1.Text=strText EndSub Private Sub Text1_Change( ) Label1.Caption=Right(Trim(Text1.Text)，3) End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是

    A．空

    B．abcdef

    C．abe

    D．def


    正确答案：D
    解析：Trim表示去掉字符串两边的空白字符。Risht函数返回字符串最后面的n个字符。本题首先通过lnputBox函数输入一个字符串并赋绐strText，然后把strText赋给，Text1.Text。再经过Trim函数和Right函数的计算，得出的结果应该是abcdef的最后三个字符def。

  • 第12题：

    在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是（ ）。

    A．Private Sub Text1_KeyPress（KeyAscii As Integer）

     If KeyAscii < 65 Or KeyAscii > 90 Then

     MsgBox "请输入大写字母"

     KeyAscii = 0

     End If

     End Sub

    B．Private Sub Text1_KeyDown（KeyCode As Integer, Shift As Integer）

     If KeyCode < 65 Or KeyCode > 90 Then

     MsgBox "请输入大写字母"

     KeyCode = 0

     End If

     End Sub

    C．Private Sub Text1_MouseDown（Button As Integer, Shift As Integer, X As Single, Y As Single）

     If Asc（Text1.Text） < 65 Or Asc（Text1.Text） > 90 Then

     MsgBox "请输入大写字母"

     End If

     End Sub

    D．Private Sub Text1_Change（）

     If Asc（Text1.Text） > 64 And Asc（Text1.Text） < 91 Then

     MsgBox "请输入大写字母"

     End If

     End Sub


    正确答案：A

  • 第13题：

    （6）在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Text1、Label1 和 Command1，然

    后编写如下两个事件过程：

    Private Sub Command1_Click( )

    S$=InputBox("请输入一个字符串")

    Text1.Text=S$

    End Sub

    Private Sub Text1_Change( )

    Label1.Caption=UCase(Mid(Text1.Text, 7))

    End Sub

    程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“VisualBasic”，

    则在标签中显示的内容是 【6】 。


    正确答案：

    （6）【答案】BASIC
    【解析】Mid返回文本字符串中从指定位置开始的特定数目的字符，其格式为：Mid(text,start_num mum_chars).其中Test包含要提取字符的文本字符串。Start_num则表示文本是要提取的第一个字符的位置。，因此，本题是要截取“VisualBasic”从第7个字符起右侧的所有字符。UCase函数则将小写字母转换为大写字母。

  • 第14题：

    在窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Labell)，程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是______。

    A． Private Sub Text1 Click() Labell.Caption=Text1.Text End Sub

    B．Private Sub Text1_Change() Labell.Caption=Text1.Text End Sub

    C．Private Sub Labell_Change() Labell.Caption=Text1.Text End Sub

    D．Private Sub Labell_Click() Labell.Caption=Text1.Text End Sub


    正确答案：B
    解析：TextBox控件中，Text属性是用来显示文本内容的。Change事件是在TextBox控件的Text内容发生改变时触发。Click事件是在用户鼠标单击文本时触发。

  • 第15题：

    窗体上有文本框Text1和一个菜单，菜单标题、名称见表，结构见图。要求程序执行时单击“保存”菜单项，则把其标题显示在Text1文本框中。下面可实现此功能的事件过程是（ ）。

    A.Private Sub save Click（ ） Text1．Text=file．save．Caption End Sub

    B.Private Sub save Click（ ） Text1．Text=save．Caption End Sub

    C.Private Sub file Click（ ） Text1．Text=file．save．Caption End Sub

    D.Private Sub file Click（ ） Text1．Text=save．Caption End Sub


    正确答案：B
    B。【解析】由干保存菜单对应的名称为save，因此对应事件应是save_Click，排除选项C、D。另外，对于save菜单的访问无需通过file，因此选项B正确。

  • 第16题：

    窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Label1)。要求程序运行后，如果在文本框中输入字符，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是： ______。

    A．Private Sub Text1_Change() Label1.Caption=Text1.Text End Sub

    B．Private Sub Text1_Click() Label1.Caption=Text1.Text End Sub

    C．Private Sub Label1_Change() Label1.Caption=Text1.Text End Sub

    D．Private Sub Labell_Click() Label1.Caption=Text1.Text End SUb


    正确答案：A
    解析：当在文本框中输入字符时，文本框的内容发生变化，所以应把程序写在Text1_Change()事件中。

  • 第17题：

    在窗体上画一个名称为Listl的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。 下列能正确实现上述功能的程序是

    A．Private Sub List1_Click() Label1.Caption=List1.ListIndex End Sub

    B．Private Sub List1-Click() Label1.Name=List1.ListIndex End Sub

    C．Private Sub List1_Click() Label1.Name=List1.Text End Sub

    D．Private Sub List1_Click() Label1.Caption=List1.Text End Sub


    正确答案：D
    解析：本题考查列表框的属性。列表框属性是历年考试热点之一。本题主要区分Listlndex与Text属性。ListIndex指被选中项的下标，而Text表示被选中项的内容。故List1.ListIndex表示被选中的项本身，而List1.Text表示被选中项的内容，故该题选D。同时本题再次涉及Name与 Caption的区别。

  • 第18题：

    在窗体上画—个文本框(名称为Text1)和—个标签(名称为Label1)，程序运行后，在文本框中每输入—个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是______。

    A．Private Sub Text1_ Change() Label1.Caption =Str (Len(Text1.Text))End Sub

    B．Private Sub Text1_ Click() Label1.Caption=Str(Len(Text1.Text))End Sub

    C．Private Sub Text1_ Change() Labell.Caption =Text1.TextEnd Sub

    D．Private Sub Label1_ Change() Labell.Caption=Str(Len(Text 1. Text))End Sub


    正确答案：A
    解析：TextBox控件中，change事件是在FextBox控件的Fext内容发生改变时触发。Click事件是在用户鼠标单击文本时触发。程序运行后，在文本框中每键入一个字符，就会引发一次change事件，所以应把程序写在文本框Text1的Change()事件中，因此选项B、D错误。Len(Text1.text，)返回文本框中字符的个数，Str将返回的字符的个数转换成字符串，语句“Label1.caption=Str(Len(Text1.text))”是在标签中显示文本框中字符的个数，因此选项A正确。

  • 第19题：

    在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Labell和 Command1，然后编写如下两个事件过程： Private Sub Command1_Click() strText=InputBox("请输入") Text1.Text=strText End Sub Private Sub Text1_Change() Labell.Caption=Right(Trim(Text1.Text)，3) End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入Visual，则在标签中显示的内容是

    A．空

    B．Visual

    C．Vis

    D．ual


    正确答案：D
    解析：当用户向文本框中输入新信息或当程序将Text属性设置为新值从而改变文本框的Text属性时，将触发Change事件，即执行“Text1.Text=strText”语句时，就触发了Change事件。Trim(字符串)将返回的是去掉“字符串”两边的空白字符，Right(字符串，n)将返回“字符串”的最后n个字符。字符串Visual最右边的3个字符为ual。

  • 第20题：

    在窗体上画一个文本框(名称为Text1)和一个标签(名称为Labe11)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。下列可以实现上述操作的事件过程是（ ）。

    A.Private Sub Text1 Change（ ） Labe11．Caption=Str(Len(Text1．Text)) End Sub

    B.Private Sub Text1 Click（ ） Labe11．Caption=str(Len(Text1．Text)) End Sub

    C.Private Sub Text1 Change（ ） Labe11．Caption=Text1．Text End Sub

    D.Private Sub Labe1 1_Change（ ） Labe11．Caption=Str(Len(Text1．Text)) End Sub


    正确答案：A
    A。【解析】为使文本框中每输入一个-$-符时标签即能显示其字符个数，可编写文本框的change事件过程。Len函数可用于取得字符串的长度。

  • 第21题：

    在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：Private Sub Command1_Click() strText = InputBox("请输入") Text1.Text = strTextEnd SubPrivate Sub Text1_Change() Label1.Caption = Right(Trim(Text1.Text), 3)End Sub程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是

    A． 空

    B．abcdef

    C．abc

    D．def


    正确答案：D
    解析：函数Trim用于去掉字符串"abcdef"两边的空格，Right函数从字符串右边取出指定数量的字符。

  • 第22题：

    在窗体中添加了一个文本框和一个命令按钮(名称分别为Text1和Command1)，并编写了相应的事件过程。运行此窗体后，在文本框中输入一个字符，则命令按钮上的标题变为“Access模拟”。以下能实现上述操作的事件过程是( )。

    A．Private Sub Command1_Click() Caption="Access模拟" End Sub

    B．Private Sub Text1_Click() Command1.Caption="Access模拟" End Sub

    C．Private Sub Command1_Change() Caption="Access模拟" End Sub

    D．Private Sub Text1_Change() Command1.Caption="Access模拟" End Sub


    正确答案：D

  • 第23题：

    在窗体上画一个文本框(名称为Textl)和一个标签(名称为Label1)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以F可以实现上述操作的事件过程是（ ）


    正确答案：A
    当在文本框中输入字符时，文本框的内容发生变化，所以应把程序写在Textl_Change()事件中。Len(字符串)的功能是测试字符串的长度。所以正确答案选A)。

相关内容