问答题
在考生文件夹下有一个工程文件sjt3.vbp，请在窗体上添加两个单选按钮(名称分别为Option1和Option2，标题分别为“添加项目”和“删除项目”)，一个列表框(名称为List1)和一个文本框(名称为Text1)，如图1所示。编写窗体的Click事件过程。程序运行后，如果选择“添加项目”单选按钮，然后单击窗体，则从键盘上输入要添加的项目内容(内容任意，不少于三个)，并添加到列表框中；如果选择“删除项目”单选按钮，然后单击窗体，则从键盘上输入要删除的项目内容，将其从列表框中删除。程序的运行情况如图2所示。
在考生文件夹下的工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm)，可以实现上述功能。但这个程序不完整，请把它补充完整。
图1
在考生文件夹下的工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm)，可以实现上述功能。但这个程序不完整，请把它补充完整。
图1
【正确答案】
【答案解析】[操作步骤]
步骤1：打开本题工程文件，并设置控件的属性。程序中用到的控件及属性见下表。
步骤2：分析并编写程序代码。
程序提供代码
Private Sub Form_Click()
If Option1. Value=True Then
Text1. Text=InputBox("请输入要添加的项目")
"List1.AddItem?
End If
If Opton2. Value=True Then
Text1.Text=InputBox("请输入要删除的项目")
"For i=0 To ?
"If List1. List(i)=? Then
"List1. RemoveItem?
End If
Next i
End If
End Sub
程序结束
第1个?处填入：Text1
第2个?处填入：List1. ListCount-1
第3个?处填入：Text1. Fext
第4个?处填入：i
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
答案考生文件夹 [解析] 向列表框添加项目使用AddItem方法，删除列表项使用。RemoveItem方法。在“删除项目”单击事件中，For循环语句中逐一判断列表中各项是否与输入内容一致，若一致则删除列表框中该项。
步骤1：打开本题工程文件，并设置控件的属性。程序中用到的控件及属性见下表。
| 控件 | 单选按钮1 | 单选按钮2 | 列表框 | 文本框 | ||
| 属性 | Name | Caption | Name | Caption | Name | Name |
| 设置值 | Opfion1 | 添加项目 | Option2 | 删除项目 | List1 | Text1 |
程序提供代码
Private Sub Form_Click()
If Option1. Value=True Then
Text1. Text=InputBox("请输入要添加的项目")
"List1.AddItem?
End If
If Opton2. Value=True Then
Text1.Text=InputBox("请输入要删除的项目")
"For i=0 To ?
"If List1. List(i)=? Then
"List1. RemoveItem?
End If
Next i
End If
End Sub
程序结束
第1个?处填入：Text1
第2个?处填入：List1. ListCount-1
第3个?处填入：Text1. Fext
第4个?处填入：i
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
答案考生文件夹 [解析] 向列表框添加项目使用AddItem方法，删除列表项使用。RemoveItem方法。在“删除项目”单击事件中，For循环语句中逐一判断列表中各项是否与输入内容一致，若一致则删除列表框中该项。