2. 计算机
  3. 在窗体上画三个名称分别为Text1、List1和Command1的文本框、列表框和命令按钮，且List1中有若干列表项，Text1的内容为空，然后编写如下事件过程： Private Sub Commandl Click() Dim i As Integ

在窗体上画三个名称分别为Text1、List1和Command1的文本框、列表框和命令按钮，且List1中有若干列表项，Text1的内容为空，然后编写如下事件过程： Private Sub Commandl Click() Dim i As Integ

admin2018-09-19  55
问题 在窗体上画三个名称分别为Text1、List1和Command1的文本框、列表框和命令按钮，且List1中有若干列表项，Text1的内容为空，然后编写如下事件过程：
Private Sub Commandl Click()
  Dim i As Integer
  If Textl．Text=“”Then
    Exit Sub
  End If
  If Listl．ListIndex<>一l Then
    Listl．List(Listl．ListIndex)=Textl．Text
  Else
    Listl．AddItem Textl．Text
  End If
    Textl．Text=“”
    End Sub
以下叙述中正确的是(    )。
选项 A、程序的功能是从Listl中删除一个列表项
B、程序的功能是把Listl中选中的列表项内容显示在Textl中
C、程序的功能是将Textl中的文本添加到Listl中选中的列表项之后
D、程序运行时，如果Textl中没有输入任何文本，则单击Commandl时程序不进行其他操作
答案D
解析 程序运行前Text1文本框中的内容为空，当Commandl．Click事件过程执行时，if语句判断Textl为空，条件成立，执行语句Exit sub，过程被提前结束，后续语句将不会被执行，所以本题D选项叙述正确。本题选择D选项。
转载请注明原文地址:https://www.kaotiyun.com/show/K9Fp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)