问答题
中有工程文件sjt3.vbp。窗体上显示有一个列表框和一个文本框，且列表框中已有若干列表项。程序的功能是，程序运行时，当用户在列表框中单击并选中某个列表项时，该项的内容将显示到文本框中，用户可以在文本框中对相关内容进行编辑，按回车键后，能够用编辑好的内容替换被选中的列表项，并自动清空文本框；当双击某个列表项时，则从列表框中删除该列表项；当用户直接在文本框中键入文本并按回车键后，则把该文本添加为列表框的一个新列表项，添加完成后，将文本框清空。运行窗体如图所示。
.19848B0.jpg)
【正确答案】
【答案解析】[操作步骤]
步骤1：打开本题项目工程。
步骤2：打开代码编辑窗口，去掉程序中的注释符“"”，将问号改为正确的内容。
参考答案(加粗部分是需考生填入的内容)
Private Sub List1_Click()
Text1.Text= List1.Text
End Sub
Private Sub List1_DblClick()
List1.RemoveItem List1.ListIndex
Text1.Text=" "
End Sub
Private Sub Text1_KeyDown (KeyCode As Integer,Shift As Integer)
If KeyCode=13 And Text1.Text ＜＞" " Then
If List1.ListIndex=-1 Then
List1.AddItem Text1.Text
Else
List1.List (List1.ListIndex) =Text1.Text
List1.ListIndex=-1
End If
Text1.Text=" "
End If
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘
答案考生文件夹 [解析] 本题主要考查对列表框控件的使用，包括向列表框中增加项目，从列表框中删除项目，修改列表框中选中项目的值。
第一个空使用列表框的Text属性，该属性的值为最后一次选中的表项的文本。
第二个空使用列表框的ListIndex属性，该属性的值是已选中的表项的位置。
第三个空判断Text1文本框中的内容是否为空。
第四个空表示当列表框中无选中项目时，将Text1中的内容添加到列表框的最后。
第五个空表示将Text1文本框中的文本替换为列表框中选中的项目，使用列表框的List和ListIndex属性。
步骤1：打开本题项目工程。
步骤2：打开代码编辑窗口，去掉程序中的注释符“"”，将问号改为正确的内容。
参考答案(加粗部分是需考生填入的内容)
Private Sub List1_Click()
Text1.Text= List1.Text
End Sub
Private Sub List1_DblClick()
List1.RemoveItem List1.ListIndex
Text1.Text=" "
End Sub
Private Sub Text1_KeyDown (KeyCode As Integer,Shift As Integer)
If KeyCode=13 And Text1.Text ＜＞" " Then
If List1.ListIndex=-1 Then
List1.AddItem Text1.Text
Else
List1.List (List1.ListIndex) =Text1.Text
List1.ListIndex=-1
End If
Text1.Text=" "
End If
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘
答案考生文件夹 [解析] 本题主要考查对列表框控件的使用，包括向列表框中增加项目，从列表框中删除项目，修改列表框中选中项目的值。
第一个空使用列表框的Text属性，该属性的值为最后一次选中的表项的文本。
第二个空使用列表框的ListIndex属性，该属性的值是已选中的表项的位置。
第三个空判断Text1文本框中的内容是否为空。
第四个空表示当列表框中无选中项目时，将Text1中的内容添加到列表框的最后。
第五个空表示将Text1文本框中的文本替换为列表框中选中的项目，使用列表框的List和ListIndex属性。