Dim a(1 to 10)as integer

Pos=-1

i=1

do while i<=10

   if i mod 2=0 then a(i)=i*2 else a(i)=i

   i=i+1

loop

i=10

do while i>=1

  if a(i)=12 then Pos=i

  i=i-1

loop

该程序段运行后，变量Pos值是（   ）

For i=1 To 6

 j=7

 Do While j > i

  If a(j)>a(j-1) Then

   a(j)=a(j)+a(j-1)

   a(j-1)=a(j)-a(j–1)

   a(j)=a(j)-a(j-1)

  End If

  j=j-1

 Loop

Next i

For i=3 To 6

 s=s+a(i)

Next i

Label1. Caption=Str(s)

已知数组元素a(1)到a(7)的值依次为“8, 2, 3, 7, 10, 6, 5”，则执行该程序段后，标签Label1中显示的是（  ）

i = 1

Do While i<=6

    a(i) = Int(Rnd * 10) + 1

    If a(i) Mod 2 = i Mod 2 Then i = i + 1

Loop

For i = 1 To 2

    k = 1

    For j = 1 To 6 - i * 2

        If a(j) * k > a(j + 2) * k Then

            t = a(j): a(j) = a(j + 2): a(j + 2) = t

        End If

        k = -k

    Next j

Next i

执行该程序段后，在下列选项中，a(1)~a(6)各元素值可能的是（  ）