📄 17280.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<html>  <head>    <title>Re: 请问...</title>  </head>  <body bgcolor="#FFFFFF" vlink="#808080">    <center>      <h1>Re: 请问...</h1>    </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by Sun Jack on August 15, 1999 at 02:51:32:<p>In Reply to: <a href="17259.html">请问...</a> posted by 小洪 on August 14, 1999 at 20:26:12:<p>: Open "d:\vb2\exercise\siword.txt" For Input As #1<br>: While Not EOF(1)<br>: Line Input #1, word<br>: okword = Mid(word, 1, 6)<br>: Form1.RichTextBox1.SelText = okword<br>: If word = a Then<br>: okword = Mid(word, 6, 1)<br>: RichTextBox1.SelText = okword<br>: End If<br>: Wend<br>: Close #1<br>: 请问如以上的程式段,如何在执行回圈时执行到<br>: if 这时,暂停如果条件符合再继续回圈呢? <p>不是很明白你的意思,如果你是模拟 C 中的 Assert指令,当资料有问题时(例如你的程式中,word<>a 时),就让程式暂停,以方便Debug,那在VB 中可用 debug.Assert来处理,在你的程式中,在 IF 的上面可加入一行<br>debug.Assert word=a,<br>当word 等于 a 时,程式不会中断,但是当 work 不等于 a 时,程式就会暂停在 debug.Assert这一行,<br>这里要注意的一点是当你把程式Complier 成 EXE 档时,VB 会自动把 debug.Assert 这一行的指令拿掉<br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 17280--></ul><!--end: 17280--><br><hr size=7 width=75%><p></body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -