[轉貼] 關於While~~~wend結構

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-5-1 09:34 | 只看該作者

[轉貼] 關於While~~~wend結構

higger :

   關於While~~~wend結構
« 於: 2005-10-31, 00:00:01 »

--------------------------------------------------------------------------------
很陌生的結構
實驗中寫了下面這個sub

Sub text10()
While Cells(1, 1) = 3
Cells(1, 2) = 4
Wend
Cells(1, 2) = 5
End Sub

其中cells(1,1)先打上8
結果Cells(1, 2) 順利變成5
但若cells(1,1)打3
則雖然Cells(1, 2)會變成4
但滑鼠就會一直變成"思考"狀態~~~
好像是一直在重覆迴圈???

會不會是我不了解While~wend的意義
看一般書上也不會寫這個結構...
這是為什麼呢???
謝謝~~~

...........................................

呆呆 :

   Re: 關於While~~~wend結構

Option Explicit

Sub ddd()

　Dim i As Integer
　i = 1
　While i <= 100
　　Cells(i, 1) = i
　　i = i + 1　
　Wend
End Sub

其實就是迴圈的意思
上述列題就是由1填到100
當i<=100時都是正確
所以i會持續+1到100
而您的例題在cells(1,1)打上3
就一直是正確,所以就變成無限迴圈
做不完了

--------------------------------------
higger :

看似跟do~while~loop一樣~~~

謝謝~~~
----------------------------------------------
leonchou
論壇維護群

相對於 Do While ... Loop，While ... Wend 只是比較簡潔的寫法。
Do ... Loop 才是標準的迴圈結構，它提供了更彈性化的迴圈控制；
Do ... Loop 在沒有 While 情形下，可利用 Exit Do 條件化跳離迴圈，
While ... Wend 則沒有相對的控制方式。
所以除非你能確定不會造成無限迴圈，否則不建議使用 While ... Wend 。