求助！GoTO 语句怎么使用啊

rubydove

谢谢！新手！


GoTO 语句怎么使用啊

Vitamin

看帮助，有例子！

司空公子

可以找本VB程序设计基础，看看错误处理是如何做的

rubydove

搞定了！谢谢

pcl2004_27

建议 如果自己搞懂了
就把 解决问题的心得写上来！
从你的实际出发来写
大家更能体会 什么是解决问题的方法！
才能既帮助别人，又提高了自己

ljt008

顶老大地...
我对Goto语句也不大熟悉..楼主发点心得啊

Vitamin

这是帮助中的例子
Sub main
   Dim str1 as String
   Dim answer as Integer
   Dim nextweek
   Dim msgtext
i: str1=InputBox$("Enter a date:")  ‘定义label所在的位置
   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 '回到label处执行
   End If
End Sub

ljt008

偶昨天找了本VB地书看了看..
不过还是谢谢了