定義一個公有布爾值變量 flag,初始值 False。
我們提供的服務有:網(wǎng)站設計制作、網(wǎng)站制作、微信公眾號開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認證、烏拉特前ssl等。為數(shù)千家企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務,是有科學管理、有技術的烏拉特前網(wǎng)站制作公司
循環(huán)里最開始 If 判斷一下 flag,如果為 True 就 Exit Do 跳出循環(huán),否則繼續(xù)循環(huán)。
然后在別的函數(shù)控制 flag 的值就可以了。
P.S. 你這段代碼是死循環(huán),直到程序占用內(nèi)存越來越大溢出進而程序崩潰為止……
VB中用 Exit 語句可以直接退出 For 循環(huán)、Do 循環(huán)、子過程或函數(shù)過程。Exit 語句的語法很簡單:Exit For 在 For 循環(huán)中出現(xiàn)的次數(shù)沒有限制,Exit Do 在 Do 循環(huán)中出現(xiàn)的次數(shù)也沒有限制。
Exit For 和 Exit Do非常有用,因為它有時適于立即退出循環(huán),而且不再執(zhí)行循環(huán)中的任何進一步迭代或者語句。例如,在前面的打印屏幕和打印機共有字體的例子中,程序不斷將打印機字體和給定的屏幕字體作比較,甚至在已經(jīng)找到了一個相符的打字機字體后還在繼續(xù)尋找。對這個函數(shù)有一個效率更高的改進版,在此,只要找到相匹配的字體后就立即退出循環(huán):
Private?Sub?Form_Click()
Dim?SFont,?PFont
For?Each?SFont?In?Screen.Fonts()
For?Each?PFont?In?Printer.Fonts()
If?SFont?=?PFont?Then
Print?SFont
Exit?For????????????'退出內(nèi)圈循環(huán)。
End?If
Next?PFont
Next?SFont
End?Sub
退出本次循環(huán)(而不是退出循環(huán))
VB中沒有continue語句,那是C語言的
方法一:
if XXX then goto 標號(標號標在next前或者loop前視循環(huán)類型而定)
例如(下例跳過6):
for i = 1 to 10
if i = 6 then goto lin0
print i
lin0: next
方法二(利用if語句,在條件不成立時什么也不執(zhí)行):
例如(下例跳過6):
for i = 1 to 10
if i 6 then
print i
end if
next
方法三:(利用循環(huán)變量的值跳過)這種方法對do...loop循環(huán)不行
例如(下例跳過6):
for i = 1 to 10
print i
if i = 5 then i=i+1
next
ctrl+break或ctrl+c,有時要多按幾下,然后結束所運行的程序保存即可。另copy外,建議你點擊菜單工具--選項,選擇環(huán)境選項卡,選中“啟動程序時”“提示保存改變”,這樣可zhidao以提醒你在運行前保存程序。
最完美的做法是使用多線程,其他方式都要付出性能代價。
可以放一個checkbox上去,默認check狀態(tài)是false
在循環(huán)中放入一句
doevents
Halt: if checkbox.value=1 then goto Halt
如果被勾選了,就死循環(huán)在這里,直到取消勾選。
這種方法非結構化,而且不能精確定位和調(diào)試程序,我建議你設定斷點,或者條件斷點。
網(wǎng)站題目:vb.net循環(huán)如何中斷,vb中斷程序
分享URL:http://muchs.cn/article32/hcgopc.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供靜態(tài)網(wǎng)站、用戶體驗、外貿(mào)網(wǎng)站建設、網(wǎng)站內(nèi)鏈、域名注冊、網(wǎng)頁設計公司
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉載內(nèi)容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯(lián)