谁帮我看看这个VB练习题啊?

来源：百度知道 编辑：UC知道 时间：2024/06/06 13:20:14
窗体上有2个命令按钮，名称分别为Command1和Command2，标题分别为“添加项目”和“删除项目”，然后画一个列表框（名称为List1）和一个文本框（名称为Text1），请实现以下功能：1）程序运行后，如果要向列表框中添加项目，则首先在文本框中输入项目内容，然后单击“添加项目”命令按钮，则将文本框中的项目添加到列表框中。注意，至少要为列表框添加3个项目，内容任意；2）如果要从列表框中删除项目，则首先在文本框中输入要删除的项目内容，然后单击“删除项目”命令按钮，则从列表框中删除相应的项目。

添加控件Text1、Command1、Command2、List1
以下是全部代码

Private Sub Command1_Click()
List1.AddItem Text1.Text
End Sub

Private Sub Command2_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
If Text1.Text = List1.List(i) Then
List1.RemoveItem i
End If
Next i
End Sub

Private Sub Form_Load()
With Me
.Caption = "VB练习"
.Height = 3510
.Width = 3030
End With

With Text1
.Top = 120
.Left = 120
.Text = ""
.Height = 375
.Width = 2655
End With

With Command1
.Caption = "添加项目"
.Top = 600
.Left = 120
.Height = 495
.Width = 1215
End With

With Command2
.Caption = "删除项目"
.Top = 600
.Left = 1560
.Height = 495
.Width = 1215
End With
End Sub

Private Sub List1_Click()
Text1.Text = List1.Text
End Sub