Private Sub Command1_Click() '单击事件过程开始,command(按钮)控件的单击事件,单击时响应(private是指这个该过程为模块级过程,另有public定义过程为全局级过程
Dim entry '定义变体变量entry,变体变量是你第一次赋什么类型的值,那么它就是什么类型的变量
entry = InputBox 'InputBox是一个输入框,变量entry则在些接收用户输入的值
List1.AddItem entry '将变量entry的值添加到列表框list1
End Sub语 '单击事件过程结束
Private Sub Command2_Click()'第二个按钮单击事件过程
Dim i As Integer '定义一个整型(integer)变量i
For i = List1.ListCount - 1 To 0 Step -1 '从列表框中最后一项(list1.listCount-1)循环到第一项(0),每次按步长(Step)为-1向前移,一般是实现查找功能的
If List1.Selected(i)Then List1.RemoveItem i '此处为查找条件和执行相应操作,即如果(if)满足条件
Next i 'Next为for循环语句的一部分,它们中间为循环体,Next i,即是下一个i,若i为3,因为step -1,所以下一个i为2
End Sub语 '过程结束
======================================================
回答补充:(1)中的entry的值是由用户在input输入框中输入的,所以用户输入什么值,entry就是什么值,基本没什么影响,只是你的列表框中会多一项你输入的那个值的那一项
Private Sub Command1_Click() 'Command1单击时触发
Dim entry '定义一个变量entry
entry = InputBox '将Inputbox函数的返回值赋给entry
List1.AddItem entry '将entry的值添加到列表框中
End Sub '过程结束
Private Sub Command2_Click()
Dim i As Integer '定义一个整形变量i
For i = List1.ListCount - 1 To 0 Step -1 '从列表框最后一项循环到第一项
If List1.Selected(i)Then List1.RemoveItem i '将选定的项删除
Next i
End Sub