UC知道VB二级问题
来源：百度知道 编辑：UC知道 时间：2024/05/04 14:44:23
建立一个列表框list和command，列表有5项，可以通过多次单击选中多个列表项，单击command窗体输出所有选中项
Dim x As Integer
For x = 0 To 4
If List1.Selected(x) = True Then
Print List1.List(x)
End If
x = x + 1
Next x
为何我单击第二项同第四项无反应？
Dim x As Integer
For x = 0 To 4
If List1.Selected(x) = True Then
Print List1.List(x)
End If
x = x + 1
Next x
为何我单击第二项同第四项无反应？
你的x=x+1和next重复了
当x=0的时候，输出列表第一项
后面x=x+1，x的值为1，结果下面的next x 使得x又前进了一位，赋值为2，第四项也一样，跳过去了。
因此你的第二四项是不显示的。
删掉x=x+1就好了
删掉x=x+1就好了 有道理
是啊 你应该学过c吧