您的位置：程序门 -> vb -> 基础类

goto语句的循环使用？

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

goto语句的循环使用？[已结贴,结贴人:sudeping_ok]

发表于：2007-05-04 13:13:42 楼主

程序中有很多相同的代码，为了减少代码量我用如下方法，但只能循环一次，请教高人指点一下,例如：

private sub cmd_click（)
.........代码1
goto a:
.........代码2
goto a:
.........代码3
goto a:

a:
..........代码1、2、3中均有的相同代码
end sub

运行结果却只在代码1后面执行了，而代码2、3却没有执行

发表于：2007-05-04 13:32:061楼得分:0

也就是要等同于：

private sub cmd_click（)
.........代码1
..........代码1、2、3中均有的相同代码

.........代码2
..........代码1、2、3中均有的相同代码

.........代码3
..........代码1、2、3中均有的相同代码
end sub

发表于：2007-05-04 16:29:322楼得分:0

private sub cmd_click（)
.........代码1
i=1
goto a:
lab2:.........代码2
i=2
goto a:
lab3:.........代码3
i=3
goto a:

a:
..........代码1、2、3中均有的相同代码
if i=1 then goto lab2
if i=2 then goto lab3
end sub
但这样写使程序可读性变差.

发表于：2007-05-04 17:05:073楼得分:0

干吗不用子程序

发表于：2007-05-04 17:06:294楼得分:0

不要用goto了，写一个通用函数或者过程

发表于：2007-05-04 17:07:255楼得分:0

分开写成不同的函数

发表于：2007-05-05 12:27:076楼得分:20

private sub cmd_click（)
.........代码1
call aa
.........代码2
call aa
.........代码3
call aa
end sub

private sub aa（)
..........代码1、2、3中均有的相同代码
end sub

下一篇：删除datagrid但前行
上一篇：sstab+mshflexgrid

其他资讯