vb中有goto语句吗？谢谢

有的,用就是了.
比如:
private sub Command1_click()

on error goto ErrHandle '遇到错误转移
...

exit sub
ErrHandle:
'错误处理语句.
end sub

On error resume next
on error goto errs:
goto again:

有 goto aa: '转到标号aa 处 无条件跳转
aa: '
On
on error goto 标号 '是遇到错误跳转