请问谁能帮我解释一下下面两段vb语言的含义,小弟是菜鸟所以希望能详细些,谢谢了

来源:百度知道 编辑:UC知道 时间:2024/05/14 15:29:44
(1)
Private Sub Command1_Click()
Dim entry
entry = InputBox
List1.AddItem entry
End Sub
(2)
Private Sub Command2_Click()
Dim i As Integer
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i)Then List1.RemoveItem i
Next i
End Sub
请问(1)里的entry可以改为其他数值吗,会有什么影响吗?希望能补充说明一下,万分感谢!!

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)满足条件<List1.Selected(i)>则(then)移走该项(List1.RemoveItem i)
Next i 'Next为for循环语句的一部分,它们中间为循环体,Next i,即是下一个i,若i为3,因为step -1,所以下一个i为2
End Sub语 '过程结束
======================================================
回答补充:(1)中的entry的值是由用户在input输入框中输入的,所以用户输入什么值,entry就是什么值,基本没什么影响,只是你的列表框中会多一项你输入的那个值的那一项

Private Sub Command1_Click() 'Command1单击时触发
D