在考生文件夹下有一个工程文件sj5．vbp，其窗体上有一个命令按钮，名称为Commandl，标题为“添加”；一个文本框，名称为Textl。程序运行前，文本框的编辑区为空白；一个列表框，名称为Listl。在文本框中输入文本，若单击“添加”按钮，文本框中的文本被作为一个列表项被加入到列表框中，清空Textl，同时“添加”按钮变为无效；若在Textl输入内容，则使“添加”按钮变为有效，双击Listl中的某一项则删除该项。程序运行时的窗体界面如图56—5所示。

【正确答案】正确答案：本题主要考查通过代码设置控件属性及简单事件编程。列表框的Addhem和Removehem方法，用来在运行期间改变列表框的内容。Addhem方法用来在列表框中插入一行文本，其格式为：列表框．Addhem项目字符串[索引值]。“索引值”可以指定插入项在列表框中的位置，表中的项目从0开始计数。如果省略“索引值”，则文本被放在列表框的尾部。这一方法只能单个地向表中添加项目。 Removeltem方法用来删除列表框中指定的项目，格式为：列表框．Removehem索引值，这一方法每次只能删除一个项巨。补充后的代码如下： Private Sub Commandl_Click() Listl． Addhcm Textl．Text '添加项 Textl．Text="" Commandl．Enabled=False End Sub Private Sub Listl_DblClick() Listl． Removehem Listl．ListIndex'删除选中项 End Sub Private Sub Textl_Change() If Textl．Text= "" Then'查看Textl中是否有内容 Commandl．Enabled=False '无则禁用Command Else Commandl．Enabled=True'有则启用Command End If End Sub 单击

【答案解析】