VB题做一下

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/11 18:57:32

VB题做一下
VB题做一下
 

VB题做一下
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 Sub