goto 怎么用

wonderzzl

......
GoTo label1
......

label1:
msgbox "Well done!"

我在修改robot脚本，想跳转到我指定的位置，这样写为什么不对呢？应该怎样写呢？找了好久没找到答案

yetties2005

GOTO是C里的吧。不太清楚。帮顶一下。

wonderzzl

编译脚本，报这样的错误
Compiling oceanv5_Address.rec...
oceanv5_Address.rec(40) Error: Unknown function: label1
oceanv5_Address.rec(46) Error: Label 'label1' is missing
0 warning(s), 2 error(s)

我查了SQABasic语言帮助文档，这是帮助文档里的例子，但我还是不知道自己哪里用错了
Sub main
   Dim str1 as String
   Dim answer as Integer
   Dim nextweek
   Dim msgtext
i: str1=InputBox$("Enter a date:")
   answer=IsDate(str1)
   If answer=-1 then
      str1=CVDate(str1)
      nextweek=DateValue(str1)+7
      msgtext="One week from the date entered is:"
      msgtext=msgtext & Format(nextweek,"dddddd")
      MsgBox msgtext
   Else
      MsgBox "Invalid date or format. Try again."
      GoTo i
   End If
End Sub

wonderzzl

找到答案了，太让人无语了，原来是我的脚本中label1没有和end sub对齐，崩溃...

村上舞!舞!舞

是！标签项要处于代码行中的第一列