这是一个排序用的，为什么两个输出没有区别呢？

Question

Dim D As VariantDim E() As IntegerDo While A1 <> 0A1 = 0For i2 = 0 To UBound(D)If D(i2) > A1 ThenA1 = D(i2)  End If 'D(i2) > A1Next 'i2 = 0ReDim Preserve E(i3) As Integer  E(i3) = A1i3 = i3 + 1For i2 = 0 To UBound(D)  If D(i2) = A1 ThenD(i2) = 0End If 'D(i2) > A1Next 'i2 = 0Loop'这是一个排序用的，把数组元素（D）大到小排序去重复的复制到另一个（E）。'问，为什么do while ...Loop 与 while ....wend 的输出没有区别？

Answer 1

do while ... loop和while ... wend没区别，完全一样，先判断条件再运行循环体。
do ... loop while就不一样了，先运行再判断

Answer 2

while.条件..wend的流程
->条件满足开始循环
->（Yes）执行语句->返回“开始循环”
->（No）执行后续内容
do..条件.loop流程
开始循环
->执行语句
->条件不满足时候程序停止