用VBA编写程序，把a1:a10的数字从小到大输出到b1:b10，请问For语句以后的代码是什么意思？能解释一下吗？
发布网友
发布时间：2022-04-30 03:24
共1个回答
热心网友
时间：2023-10-09 14:17
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 ‘将排好序的数据赋值给区域
