vba goto语句范例
07-07
“Go to ”就是去到哪儿的意思。Go to 语句是将程序转到指定的标签的语句位置,然后继续往下执行。
Go to 语句通常用来作错误处理。下面为大家介绍该语句的示例。
下面的代码功能是:求1到100自然数之和。
Dim Lsum As Long, i As Long
i = 1
x: '为go to 语句设置的标签,必须以英文状态下的冒号结尾
Lsum = Lsum + i
i = i + 1
If i <= 100 Then GoTo x '如果i<=100,则程序跳到标签X处
MsgBox "1到100的自然数和为:" & Lsum