小问题3
Private Sub Form_Click()
Dim Entry, I, Msg '声明变量。
Msg = "Choose OK to add 100 items to your listbox."
MsgBox Msg '显示信息。
For I = 1 To 100 '计数值从1到100。
Entry = "Entry" & I '创建输入项。
List1.AddItem Entry '添加该输入项。
Next I
Msg = "Choose OK to remove every other entry."
MsgBox Msg '显示信息。
For I = 1 To 50 '确定如何
List1.RemoveItem I '每隔一项
Next I '删除。
Msg = "Choose OK to remove all items from the listbox."
MsgBox Msg '显示信息。
List1.ClePrivate Sub Form_Click()
Dim Entry, I, Msg '声明变量。
Msg = "Choose OK to add 100 items to your listbox."
MsgBox Msg '显示信息。
For I = 1 To 100 '计数值从1到100。
Entry = "Entry" & I '创建输入项。
List1.AddItem Entry '添加该输入项。
Next I
Msg = "Choose OK to remove every other entry."
MsgBox Msg '显示信息。
For I = 1 To 50 '确定如何
List1.RemoveItem I '每隔一项
Next I '删除。
Msg = "Choose OK to remove all items from the listbox."
MsgBox Msg '显示信息。
List1.Clear '清除列表框。
End Sub 我有点不懂 List1.RemoveItem I '每隔一项 为什么是每隔一项? 为什么不是剩下51--100?
