Question

VB中使用goto语句的一个问题

代码结构如下所示：
public sub ABC()
if(xxxxxx) Then goto insert
xxxx
xxxxx
Set block = ThisDrawing.xxxxx（用于在cad中插入一个图框)
xxx
insert：
Set block = ThisDrawing.xxxxx（用于在cad中插入一个图框)
end sub
因为代码比较烦 就发了个大致的结构 相信大家能看懂 我现在遇到的问题是 如果 if语句成立 那么跳到insert语句之后 程序执行是对的
可是如果if语句不成 既goto语句没生效的话 我发现图框会被插入两边 既顺序执行下来 貌似goto语句跳转的inset语句也被执行了一遍！
而这是不期望发生的 我不知道如何解决这个问题，望经验丰富者帮我看看 如何组织好代码结构！！！！

Answer 1

在insert:前加一句
exit sub

Answer 2

为啥不写成过程 goto很容易把程序搞混乱了

Answer 3

同意楼上，加上exit sub或是在设置一个不运行的条件给它，比如if 1 then这样就行了

Answer 4

up