某 VB 程序如下: Dim a(1 To 10) As Integer,b(1 To 10) As Integer k = 0 For i = 10 To 1 Step -1 Do While b(i) <> 0 k = k + 1 a(k) = i: b(i) = b(i) - 1 Loop Next i 若 a(1)~a(10)的值分别为 7,9,8,1,9,4,4,2,1,1,则运行以上程序后,下列说法正确的是( )
A . 这是一段冒泡排序程序
B . 运行后 a(1)~a(10)的值分别为 1,1,1,2,4,4,7,8,9,9
C . 加框部分运行后 b(1)~b(10)的值分别为 3,1,0,2,0,0,1,1,2,0
D . 本算法是通过比较交换数据来实现排序的
答案:C