有如下VB程序段

Dim a（1 To 6）As Integer

For i=1 To 6

    a（i）=Int（Rnd()*45）*2+10

Next i

For i=1 To 2

    For j=2 To 6-i

      If a（j）\10>a（j-1）\10 Then

        temp=a（j）：a（j）=a（j-1）：a（j-1）=temp

      End If

    Next j

Next i

执行上述程序段后，下列选项中，a（1）到a（6）各元素值可能的是（    ）

A、84，98，93，84，62，30

B、70，60，10，28，18，14

C、34，44，36，14，16，94

D、74，32，66，46，38，28