Private Sub CmdRight_Click()
　Dim X As Integer
　While LstLeft.SelCount > 0
　　For X = 0 to LstLeft.LstCount - 1
　　　If LstLeft.Selected(X) = True Then
　　　　LstRight.AddItem LstLeft.List(X)
　　　　LstLeft.RemoveItem X
　　　　Exit For
　　　End If
　　Next X
　Wend
End Sub
请问为什么先Exit For 后end if
先end if 行不行

exit for  是一条可执行命令。 意思是 退出当前循环。

而 end if 是 if 语句的结束命令。

在你程序里，
当 条件为真是，处理完后，就要退出 当前循环。所以就要写在 IF 语句 之间，也就是在 end if  之前。

如果你写在 end if 之后，那么就是每个循环都会执行，结果就是执行第一次循环后，就执行这句而导致退出循环，从而达不到循环的效果。

因为程序结构大包小～先End If，如果就会变成进入For后～无条件马上就跳出来～

请问是不是先end if 后 exit for
那么连next x 也不执行了 直接退出for循环啊

没错～要是你先end if 后 exit for～
这意思大概等同于你把For...Next那块全拿掉了～

谢谢咯 呵呵

谢谢啦 我是初学者 可能问的问题都比较弱智些
不过还是请多多关照哈！