VB题做一下
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/09/22 13:44:17
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 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