Сортировка массивов методом подсчета: написать код по образцу - VB

Формулировка задачи:

Здравствуйте, еще раз выкладываю вот это задание: СОртировка массивов методом подсчета. Внизу есть образец Заранее спасибо!

Алг Сортировка_подсчетом (арг цел таб a[1:n], арг рез цел таб b[1:n])
Нач целые I, j, k
|Для каждого элемента массива a
Начало цикла  для I от 1 до n
Определим величину k,
Сравнивая его со всеми
Остальными элементами
K:=0
Начало цикла для j от 1 до i=1
Если a[j]<[i]
То
K:=k+1
Все
Конец цикла
Начало цикла для j от i+1 до n
Если a[j] <aa[i]
То
K:=k+1
[I]Все
Конец цикла
Размещаем элемент a
На (K+1)-м месте в массиве b
B[k+1]:=a[i]
Конец цикла
Конец программы

Решение задачи: «Сортировка массивов методом подсчета: написать код по образцу»

textual
                            Листинг программы 
                        

                            Sub S100() 
 Dim A(0 To 99) As Byte 
 Dim b(0 To 9) As Byte 
 Dim I As Byte, J As Byte, k As Byte 
 Randomize 
 For I = 0 To 99 
   A(I) = Int(Rnd * 10) 
 Next I 
 
 For I = 0 To 99 
   b(A(I)) = b(A(I)) + 1 
 Next I 
 
 For I = 0 To 9 
   For J = 1 To b(I) 
     A(k) = I 
     k = k + 1 
   Next J 
 Next I 
 End Sub
                        