三、综合应用题

　　5在考生文件夹下有一个工程文件sj5.vbp，其窗体上有一个命令按钮，名称为Command1、标题为"添加";一个文本框，名称为Text1。程序运行前，文本框的编辑区为空白;一个列表框，名称为List1。

　　在文本框中输入文本，若单击"添加"按钮，文本框中的文本被作为一个列表项被加入到列表框中，如图39-5所示。若双击文本框，则使文本框中的内容为空，且使"添加"按钮变为无效。

　　图39-5

　　要求：去掉程序中的注释符"'"，把程序中的"?"改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性，最后把修改后的文件以原来的文件名存盘。

　　参考解析：

　　本题重点考查列表框控件 的使用及命令按钮的事件和属性设置。

　　列表框控件用于提供可进行单一或多个选择的列表项，给列表框添加列表项既可以在设计阶段通过其List属性设置加入，也可在程序运行时通过代码“列表框名.AddItem"项目"”加入，清除列表框内容可通过其Clear方法来实现;文本框的Text属性用于设置或返回其上显示的文本; Enabled属性用于设置命令按钮是否有效，单击命令按钮将触发其Click事件。

　　根据题意，将一个List控件、一个命令按钮和一个文本框控件添加到窗体中，列表框的名称为List1，命令按钮的名称为Command1、Caption属性为“添加”，文本框的名称为Text1、Text属性为空。双击Command1进入代码窗口，编写如下代码：

　　Private Sub Command1_Click()

　　List1.AddItem 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

　　单击按钮运行程序，并按要求保存。

　　相关推荐：

　　2015年计算机二级考试《VB》考前练习题汇总

　　2015年计算机二级考试《VB》考前预测试卷汇总

　　2015计算机二级考试《VB》模拟练习题及解析汇总