GoTO 语句怎么使用啊作者: Vitamin 时间: 2005-4-19 15:15
看帮助，有例子！作者: 司空公子 时间: 2005-4-19 17:00
可以找本VB程序设计基础，看看错误处理是如何做的作者: rubydove 时间: 2005-4-20 10:02
搞定了！谢谢作者: pcl2004_27 时间: 2005-4-21 22:16
建议 如果自己搞懂了
就把 解决问题的心得写上来！
从你的实际出发来写
大家更能体会 什么是解决问题的方法！
才能既帮助别人，又提高了自己作者: ljt008 时间: 2005-5-12 20:11
顶老大地...
我对Goto语句也不大熟悉..楼主发点心得啊作者: Vitamin 时间: 2005-5-13 16:27
这是帮助中的例子
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 时间: 2005-5-15 21:00
偶昨天找了本VB地书看了看..
不过还是谢谢了