用VBA編寫程序，把a1:a10的數字從小到大輸出到b1:b10，請問For語句以後的代碼是什麽意思？能解釋壹下嗎？

Do

exchange_times = 0

For i = 1 To 9 ’這裏之所以是9而不是10，是因為下面的i+1,若是10，則超過數組的長度

If ddd(i, 1) > ddd(i + 1, 1) Then ‘若i 行的值大於它下壹行的值，則交換它們的值

temp = ddd(i, 1) ‘臨時存儲i行的值

ddd(i, 1) = ddd(i + 1, 1) ’開始交換

ddd(i + 1, 1) = temp

exchange_times = exchange_times + 1 ‘表示發生了交換

End If

Next

Loop While exchange_times > 0 ’若發生了交換

Range("b1:b10") = ddd ‘將排好序的數據賦值給區域