VB 函數(shù) do while ...Loop 與 while .wend 的區(qū)別
Dim D As Variant
Dim E() As Integer
Do While A1 0
A1 = 0
For i2 = 0 To UBound(D)
If D(i2) > A1 Then
A1 = D(i2)
End If 'D(i2) > A1
Next 'i2 = 0
ReDim Preserve E(i3) As Integer
E(i3) = A1
i3 = i3 + 1
For i2 = 0 To UBound(D)
If D(i2) = A1 Then
D(i2) = 0
End If 'D(i2) > A1
Next 'i2 = 0
Loop
'這是一個排序用的,把數(shù)組元素（D）大到小排序去重復(fù)的復(fù)制到另一個（E）.
'問,為什么do while ...Loop 與 while .wend 的輸出沒有區(qū)別?