Question

vb 跳出循环 break

我写了个简单判断
If IsNumeric(txtCard_id.text) = False Then
MsgBox "卡号输入错误", vbInformation, "系统提示"
txtCard_id.text = ""
txtCard_id.SetFocus
Exit Sub
End If
这个写的不对,不应该是Exit Sub 我想实现如果输入的数字是非数字的，跳出循环让用户继续输入，而不是结束Sub 如何实现， 类似java中的break

Answer 1

vb中没有break语句，而是使用Eixt跳出循环。

for……next循环用exit for 跳出。
do……loop循环用exit do跳出。

Answer 2

Do Until IsNumeric(txtCard_id.Text)
MsgBox "卡号输入错误", vbInformation, "系统提示"
txtCard_id.Text = ""
txtCard_id.SetFocus
Loop

Answer 3

前面加个标签，用GOTO来处理。

Answer 4

在If…的上一行输入RESET:把Exit Sub改成GoTo RESET

Answer 5

如果是用FOR 循环的就用 EXIT FOR
如果是用DO 循环的就用 EXIT DO