关于 VB中的goto的用法

Question

private sub command1_click()
dim n as integer,s as string
n=1
if n>1 then goto 11 else goto 12
11:
s="n大于1"
goto 13
12:
s="n小于等于零"
13:
msgbox s
end sub
请帮我解释一下这段程序好吗？

Answer 1

A：private sub command1_click()
B：dim n as integer,s as string
C：n=1
D：if n>1 then goto 11 else goto 12
E：11:
F：s="n大于1"
G：goto 13
H：12:
I：s="n小于等于零"
J：13:
K：msgbox s
L：end sub

goto跳转的意思，代码编号A-L.方便为您解释：

A：控制台程序，执行click事件（当某个按钮被按下时执行Command_Click()事件）

B：定义n为整型，s为字符串型

C：初始化n=1

D：判断：n>1时，跳转到11,；否则跳转到12

EF：定义跳转到11时，s="n大于1"字符串，再跳转到13，msgbox输出s的内容为n大于1

HI：定义跳转到12时，s="n小于等于零"字符串，然后执行13，msgbox输出s的内容为n小于等于零

Answer 2

在你要goto
的地方加标号，可以是数字或者字母，以冒号结尾做区别
如
Recycle:
a=b+c
……
goto
Recycle
当运行到goto即会跳转到对应地方

Answer 3

假如 n>1 那么 跳转到11：s="n大于1"跳转到13 msgbox "n大于1"
假如 n<=1 那么跳转到12：s="n小于等于零"