# Re: 请问...

Posted by Sun Jack on August 15, 1999 at 02:51:32:

In Reply to: 请问... posted by 小洪 on August 14, 1999 at 20:26:12:

: Open "d:\vb2\exercise\siword.txt" For Input As #1
: While Not EOF(1)
: Line Input #1, word
: okword = Mid(word, 1, 6)
: Form1.RichTextBox1.SelText = okword
: If word = a Then
: okword = Mid(word, 6, 1)
: RichTextBox1.SelText = okword
: End If
: Wend
: Close #1
: 请问如以上的程式段,如何在执行回圈时执行到
: if 这时,暂停如果条件符合再继续回圈呢?

不是很明白你的意思,如果你是模拟 C 中的 Assert指令,当资料有问题时(例如你的程式中,word<>a 时),就让程式暂停,以方便Debug,那在VB 中可用 debug.Assert来处理,在你的程式中,在 IF 的上面可加入一行
debug.Assert word=a,
当word 等于 a 时,程式不会中断,但是当 work 不等于 a 时,程式就会暂停在 debug.Assert这一行,
这里要注意的一点是当你把程式Complier 成 EXE 档时,VB 会自动把 debug.Assert 这一行的指令拿掉

Follow Ups: