单选题在窗体上画三个名称分别为Text1、List1和Command1的文本框、列表框和命令按钮，且List1中有若干列表项，Text1的内容为空，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer If Text1．Text=""Then Exit Sub End If If List1．ListIndex< >一1 Then List1．List(List1．ListIndex)=Text1．Text Else List1．Addhem Text1．Text End If Text1．Text="" End Sub 以下叙述中正确的是( )。

A、程序的功能是从List1中删除一个列表项
B、程序的功能是把List1中选中的列表项内容显示在Text1中
C、程序的功能是将Text1中的文本添加到List1中选中的列表项之后
D、程序运行时，如果Text1中没有输入任何文本，则单击Command1时程序不进行其他操作

【正确答案】 D

【答案解析】解析：程序运行前Text1文本框中的内容为空，当Command1_Click事件过程执行时，if语句判断Text1为空，条件成立，执行语句Exit sub，过程被提前结束，后续语句将不会被执行，所以本题D选项叙述正确。本题选择D选项。