在考生文件夹下有一个工程文件sj5.vbp,其窗体上有一个命令按钮,名称为Commandl、标题为“添加”;一个文本框,名称为Text1。程序运行前,文本框的编辑区为空白;一个列表框,名称为Listl。在文本框中输入文本,若单击“添加”按钮,文本框中的文本

admin2010-09-02  25

问题 在考生文件夹下有一个工程文件sj5.vbp,其窗体上有一个命令按钮,名称为Commandl、标题为“添加”;一个文本框,名称为Text1。程序运行前,文本框的编辑区为空白;一个列表框,名称为Listl。在文本框中输入文本,若单击“添加”按钮,文本框中的文本被作为一个列表项被加入到列表框中,如图19—5所示。若.双击文本框,则使文本框中的内容为空,且使“添加”按钮变为无效。

    注意:去掉程序中的注释符“’”,把程序中的“?”改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的属性,最后把修改后的文件以原来的文件名存盘。

选项

答案本题重点考查列表框控件的使用及命令按钮的事件和属性设置。 列表框控件用于提供可进行单一或多个选择的列表项,给列表框添加列表项既可以在设计阶段通过其List属性设置加入.也可在程序运行时通过代码“列表框名.Addltem‘项目’”加入,清除列表框内容可通过其Clear方法来实现;文本框的Text属性用于设置或返回其上显示的文本;Enabled属性用于设置命令按钮是否有效,单击命令按钮将触发其Click事件。 根据题意,将一个List控件、一个命令按钮和一个文本框控件添加到窗体中,列表框的名称为Listl,命令按钮的名称为Commandl、Caption属性为“添加”,文本框的名称为Textl、Text属性为空。双击Commandl进入代码窗口,编写如下代码: Private Sub Command1_Click() Listl.AddItem Textl.Text’单击添加按键,将Text1中的字符写入List中 End Sub Private Sub Textl_Change() If Textl.Text=""Then Commandl.Enabled=False’如果Textl中没有字符,则Commandl不可用 Else Commandl.Enabled=True’如果Textl中有字符,则Commandl可用 End If End Sub Private Sub Textl DblClick() Textl.Text=""’双击Textl,清空Textl Commandl.Enabled=False’Command不可用 End Sub 单击[*]按钮运行程序.并按要求保存。

解析
转载请注明原文地址:https://kaotiyun.com/show/7Fmp777K
0

最新回复(0)