VB题做一下
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/09/13 04:41:46
VB题做一下
![](http://img.wesiedu.com/upload/8/e6/8e68f5a3a050afe2041563a4d0bdf155.jpg)
![](http://img.wesiedu.com/upload/8/e6/8e68f5a3a050afe2041563a4d0bdf155.jpg)
Private Sub Form_Load() '添加项目
Dim i As Long
For i = 0 To 10
List1.AddItem i
Next
End Sub
Private Sub Command1_Click() '插入
List1.AddItem Text1.Text
End Sub
Private Sub Command2_Click() '删除选中
If List1.ListIndex >= 0 Then List1.RemoveItem (List1.ListIndex)
End Sub
Private Sub Command3_Click() '退出
Unload Me
End Su
Dim i As Long
For i = 0 To 10
List1.AddItem i
Next
End Sub
Private Sub Command1_Click() '插入
List1.AddItem Text1.Text
End Sub
Private Sub Command2_Click() '删除选中
If List1.ListIndex >= 0 Then List1.RemoveItem (List1.ListIndex)
End Sub
Private Sub Command3_Click() '退出
Unload Me
End Su