艺术涂料批发:VB的select case 语句怎么中断循环啊？

Select Case Text1.Text
Case 1
MsgBox "Now"
Case 1
MsgBox Now
End Select
以上代码当Text1.Text为1时执行msgbox "Now"语句，并不执行其后续的Case语句，msgbox now不被执行。

首先 select case
end select
不是循环
其次退出可以直接用end

这是个不错的例子....
Private Sub mnuCut_Click (Index As Integer)
Select Case Index
Case 0 '“剪切”命令。
CopyActiveControl '调用通用过程。
ClearActiveControl
Case 1 '“复制”命令。
CopyActiveControl
Case 2 '“清除”命令。
ClearActiveControl
Case 3 '“粘贴”命令。
PasteActiveControl
Case Else
frmFind.Show '显示找到的对话框。
End Select
End Sub

也就是说Index上来就为一个值,那个是就走那个,只执行一次的,
而不存在循环的问题.
你说的应该是这样的.
i=0
do while i< 10
select case i
case 1
....
break
case 2
....
break
case 3
....
break
end select
i=i+1
loop

其中的break 是用来直接跳出case的,不能退出循环的.
要想中断直接退出循环:只能用 exit Do退出while

谢谢啊.有不懂的,大家研究

如果你是担心程序继续执行会走到别的case分支
那么要保证每个Case分支是互斥的
其次select case
end select的中间不允许再出现end select
实在想跳出来，那么用break或者goto吧

呵呵，愚见

-----不能用break
-----VB的Case分支和C不一样，它只会进其中满足Select条件的第
一个（或者不进）分支，然后就自动End Select
所以不用中途强制退出Select的

用 break
例如：
case 1:
msgbox"1"
break
case 2:
msgbox"2"
break;
这样的话如果执行了1之后就不会接着执行下面的语句了

break

end select