列表框练习.docVIP

实验4.2 列表框内容移动 2.在C:\VB\Sy04文件夹下有一个工程文件sjt2.vbp，窗体上有两个列表框，名称分别为List1、List2，在List2中已经预设了内容；还有两个命令按钮，名称分别为C1、C2，标题分别为“添加”、“清除”。如图1.4.2所示。程序的功能是在运行时，如果选中右边列表框中的一个列表项，单击“添加”按钮，则把该项移到左边的列表框中；若选中左边列表框中的一个列表项，单击“清除”按钮，则把该项移回右边的列表框中。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ？改为正确的内容。但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。 图1.4.2 2.程序代码 Private Sub C1_Click() Dim k As Integer k = 0 While (k List2.?) If ?.Selected(k) = True Then List1.AddItem List2.Text List2.RemoveItem ? End If k = k + 1 Wend End Sub Private Sub C2_Click() List2.AddItem List1.Text List1.RemoveItem List1.? End Sub 实验4.5 城市选择 1.在C:\VB\Sy04文件夹下有一个工程文件sjt5.vbp。在其窗体中“待选城市”下的List1列表框中有若干个城市名称。程序运行时，选中List1中若干个列表项，如图1.4.5(a)所示，单击“选中”按钮则把选中的项目移到List2中，单击“显示”，则在Text1文本框中显示这些选中的城市，如图1.4.5(b)所示。已经给出了所有控件和程序，但程序不完整。要求：请去掉程序中的注释符，把程序中的？改成正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。 图1.4.5(a) 图1.4.5(b) 2.程序代码 Private Sub Command1_Click() Dim k As Integer For k = ? To 0 Step -1 If List1.Selected(k) = True Then List2.AddItem ? List1.RemoveItem ? End If Next k End Sub Private Sub Command2_Click() Dim k As Integer Text1 = 已经选中的城市有： For k = 0 To List2.ListCount - 1 Step 1 Text1 = ? List2.List(k) Next k End Sub 实验4.7 添加或删除列表框中内容 1.在C:\VB\Sy04文件夹下有一个工程文件sjt7.vbp(相应的窗体文件名为sjt7.frm)，在窗体上画两个命令按钮（其名称分别为Command1和Command2，标题分别为“添加项目”和“删除项目”），再画一个列表框（名称为List1）和一个文本框（名称为Text1），如图1.4.7所示。编写适当的事件过程。程序运行后，如果单击“添加项目”命令按钮，则从键盘上输入要添加到列表框中的项目（内容任意，不少于三个）；如果单击“删除项目”命令按钮，则从键盘上输入要删除的项目，将其从列表框中删除。提供的窗体文件可以实现上述功能。但这个程序不完整，请把它补充完整。要求：去掉程序中的注释符，把程序中的？改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后把修改过后的文件按原文件名存盘。 图1.4.7 2.程序代码 Private Sub Command1_Click() Text1.Text = InputBox(请输入要添加的项目) List1.AddItem ? End Sub Private Sub Command2_Click() Text1.Text = InputBox(请输入要删除的项目) For i = 0 To ? If List1.List(i) = ? Then List1.RemoveItem ? End If Next i End Sub