goto 怎么用

wonderzzl 发表于 2008-12-31 15:02:59

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

label1:
msgbox "Well done!"

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

yetties2005 发表于 2008-12-31 15:16:12

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

wonderzzl 发表于 2008-12-31 15:35:22

编译脚本，报这样的错误
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 发表于 2008-12-31 15:51:14

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

村上舞!舞!舞 发表于 2009-1-5 04:01:03

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

页: [1]

51Testing软件测试论坛 's Archiver

goto 怎么用