在考生文件夹下有一个工程文件sj5.vbp，其窗体上有一个命令按钮，名称为Command1、标题为“添加”；一个文本框，名称为Text1。程序运行前，文本框的编辑区为空白；一个列表框，名称为List1。
在文本框中输入文本，若单击“添加”按钮，文本框中的文本作为一个列表项被加入到列表框中，如下图所示。若双击文本框，则使文本框中的内容为空，且使“添加”按钮变为无效。
要求：去掉程序中的注释符“’”，把程序中的“”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性，最后把修改后的文件以原来的文件名存盘。
参考答案：本题重点考查列表框控件的使用及命令按钮的事件和属性设置。
列表框控件用于提供可进行单一或多个选择的列表项，给列表框添加列表项既可以在设计阶段通过其List属性设置加入，也可在程序运行时通过代码“列表框名.Addltem“项目””加入，清除列表框内容可通过其Clear方法来实现；文本框的Text属性用于设置或返回其上显示的文本；Enabled属性用于设置命令按钮是否有效，单击命令按钮将触发其Click事件。
根据题意，将一个List控件、一个命令按钮和一个文本框控件添加到窗体中，列表框的名称为List1，命令按钮的名称为Command1、Caption属性为“添加”，文本框的名称为Text1、Text属性为空。双击Command1进入代码窗口，编写如下代码：
Private Sub Command1_Click()
List1.Addltem Text1.Text ’单击添加按键，将Text1中的字符写入List中
End Sub
Private Sub Text1_Change()
If Text1.Text=" " Then
Command1.Enabled=False ’如果Text1中没有字符，则Command1不可用
Else
Command1.Enabled＝True ’如果Text1中有字符，则Command1可用
End If
End Sub
Private Sub Text1_DblClick()
Text1.Text=" "双击Text1， ’清空Text1
Command1.Enabled=False’Command不可用
End Sub
单击
按钮运行程序，并按要求保存。