在考生目录下有一个工程文件sjt3.vbp，窗体上有一个组合框Combo1

问题问答题

在考生目录下有一个工程文件sjt3.vbp，窗体上有一个组合框Combo1，其中已经预设了内容；还有一个文本框Text1和三个命令按钮，名称分别为Command1、Command2、Command3，标题分别为“修改”、“确定”、“添加”。程序运行时，“确定”按钮不可用，如下图所示。

程序的功能是：在运行时，如果选中组合框中的一个列表项，单击“修改”按钮，则把该项复制到Text1中(可在Text1中修改)，并使“确定”按钮可用；若单击“确定”按钮，则把修改后的Text1中的内容替换组合框中该列表项的原有内容，同时使“确定”按钮不可用；若单击“添加”按钮，则把在Text1中的内容添加到组合框中。

所提供的窗体文件已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的“”改为正确的内容。但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。

试题源程序：

1 Private Sub Command1_Click( )

2 Text1=Combo1.Text

3 Command2.=True

4 End Sub

6 Private Sub Command2_Click( )

7 Combo1.List()=Text1

8 Text1=""

9 Command2.Enabled=False

10 End Sub

12 Private Sub Command3_Click( )

13 Text1

14 End Sub

答案

参考答案：

第一步：启动Visual Basic，打开考生文件夹下的工程文件。

第二步：双击窗体的任何部分，进入程序编写代码窗口，修改程序如下：

1 Private Sub Command1_Click( )

2 Text1=Combo1.Text

3 Command2.Enabled=True

4 Command2.Enabled=True

5 End Sub

7 Private Sub Command2_Click( )

8 Combo1.List(Combo1.List Index)=Text1

9 Combo1.List( Form1.Combo1.ListIndex)=Text1

10 Text1=""

11 Command2.Enabled=False

12 End Sub

14 Private Sub Command3_Click( )

15 Combo1.AddItera Text1

16 Form1.Combol.AddItem Text1

17 End Sub

第三步：修改完毕，调试正确后将工程与窗体以原文件名保存到考生文件夹下。

解析：

Enabled属性允许在运行时使窗体和控件成为有效或无效，ListIndex设置控件中当前选择项目的索引，AddItem用于将项目添加到ListBox控件。