Question

VB程序填空题请帮助

3、设计一个用户界面如图所示，用于将学生学习的课程在列表框中显示出来。要求程序有以下功能：
（1）单击"添加"按钮，若文本框"Text1.text"中不是空格串，则将课程添加到列表框中去。
（2）单击"删除"按钮，删除列表框中被选中的并显示在文本框中的课程名称。
（3）单击"统计"按钮，统计课程列表框中的课程数量，并显示在文本框"Text2.text"中。
（4）单击"结束"按钮，结束程序运行。
（5）单击列表框中的某一行，则文本框Text1中显示该行内容。
Private Sub Command1_Click() '添加
If Text1.Text <> "" Then
(7) Text1.Text
End If
End Sub

Private Sub Command3_Click() '统计
Text2.Text = (8)
End Sub
Private Sub Command2_Click() '删除
If List1.ListIndex <> -1 Then
List1.RemoveItem (9)
End If
End Sub

Private Sub Command4_Click() '结束
End
End Sub

Private Sub List1_Click() '将选中的书显示到文本框中
Text1.Text = List1.List(List1.ListIndex)
End Sub

Answer 1

VB中ListBox的用法 仔细体会
　　ListBox

　　中文名称列表框

　　可以通过vb的代码添加、修改列表框的内容

　　列表框可以在编程中显示各种需要的数值

　　方法:

　　Sub AddItem(Item As String, [Index])

　　VB.ListBox 的成员

　　添加一项到 Listbox 控件。

　　参数:

　　Item:所要添加的字符串

　　Index:可选,将字符串插入在第Index项前面

　　例：

　　Dim i%

　　For i = 1 To 10

　　List1.AddItem CStr(i)

　　Next

　　List1.AddItem "你好", 5

　　效果:

　　1

　　2

　　3

　　4

　　你好

　　5

　　6

　　7

　　8

　　9

　　10

　　方法:

　　Sub AddString(CString s)

　　例：

　　Dim i%

　　For i = 1 To 10

　　List1.AddString( CStr(i))

　　Next

　　List1.AddItem "你好", 5

　　效果:

　　1

　　2

　　3

　　4

　　你好

　　5

　　6

　　7

　　8

　　9

　　10

　　Sub Clear()

　　VB.ListBox 的成员

　　清除列表所有项。

　　参数:无

　　例:在AddItem的例子后添加

　　List1.Clear

　　这样你的列表框中的内容就都清除了

　　Sub RemoveItem(Index As Integer)

　　VB.ListBox 的成员

　　从一个 ListBox 控件中删除一项。

　　参数:

　　Index:你要删除的那项的索引

　　例:在AddItem的例子后添加

　　List1.RemoveItem 3

　　效果:

　　1

　　2

　　3

　　5

　　你好

　　6

　　7

　　8

　　9

　　10

　　属性:

　　Property Columns As Integer

　　VB.ListBox 的成员

　　返回/设置一个值，决定列表框为是在一列中(值为0时)垂直滚动,还是多个列中(值大于0时)水平滚动。

　　Property List(Integer) As String

　　VB.ListBox 的成员

　　返回/设置控件的列表部分中包含的项。

　　Property ListCount As Integer

　　只读

　　VB.ListBox 的成员

　　返回控件的列表部分中的项目数。

　　Property ListIndex As Integer

　　VB.ListBox 的成员

　　返回/设置该控件中当前选定项目的索引值。

　　Property MultiSelect As Integer

　　只读

　　VB.ListBox 的成员

　　返回/设置一个值，决定用户是否可以在一个控件中做多重选择。

　　Property NewIndex As Integer

　　只读

　　VB.ListBox 的成员

　　返回添加到控件中的最近一个项目的索引。

　　Property SelCount As Integer

　　只读

　　VB.ListBox 的成员

　　返回 ListBox 控件选定的项目数。

　　Property Selected(Integer) As Boolean

　　VB.ListBox 的成员

　　返回/设置控件中项目的选定状态。

　　Property Sorted As Boolean

　　只读

　　VB.ListBox 的成员

　　指出控件元素是否自动按字母顺序排序。

　　Property Style As Integer

　　只读

　　VB.ListBox 的成员

　　返回/设置一个值，决定是否将复选框显示在 ListBox 控件中。

　　Property Text As String

　　VB.ListBox 的成员

　　返回当前选中项的文本。

　　Property TopIndex As Integer

　　VB.ListBox 的成员

　　返回/设置在控件中显示在最顶端的项目。

　　-------------------------------------------------------------------

　　ListBox 和 ComboBox 为用户提供了选择。按照缺省规定，选项以垂直单列方式显示，也可以设置成多列方式。如果项目数量超过 ComboBox 或 ListBox 所能显示的数目，ScrollBar 自动出现在控件上。于是用户可以在列表中上下左右滚动。

　　ComboBox 兼有 TextBox 和 ListBox 两者的功能。该控件允许用户通过键入文本或选择列表中的项目来进行选择。

　　与其它含有单值的控件相反，例如 Label 的 Caption 属性或 TextBox 的 text 属性，ListBox 和 ComboBox 含有多个值或值的集合。在运行时用内置的方法增加、删除及保持集合中的值。要将几条项目添加到名为 List1 的 ListBox 中，其代码如下：

　　List1.AddItem "Paris"

　　List1.AddItem "New York"

　　List1.AddItem "San Francisco"

　　ListBox 和 ComboBox 是在有限空间为用户提供大量选项的有效方法。

　　详细信息 关于 ListBox 和 ComboBox 控件的详细信息，请参阅“使用 Visual Basic 的标准控件”。

Answer 2

(7) List1.AddItem
(8) List1.ListCount
(9) List1.ListIndex

追问

能解释下答案？

追答

这些东西都是列表框的最基本的方法或属性，没什么好解释的。
List1.AddItem 添加新选项
List1.ListCount 选项数
List1.ListIndex 当前选项索引号