For k = 1 To 4 Step 3

For i = k To k + 1

For j = i + 1 To k + 2

If a(j) < a(i) Then

temp = a(j): a(j) = a(i): a(i) = temp

End If

Next j

Next i

Next k

数组元素a(1)到a(6)的值依次为“9,8,7,6,5,4”，经过该程序段“加工”后，数组元素a(1)到a(6)的值依次为（    ）

      flag = True : i = 1

      Do While i <= 6

          x = Int(Rnd * 100) + 1 

          If flag Or x >50 Then

               a(i)=x

               flag = Not flag

               i = i + 1

          End if

      Loop

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

Private Sub Command1_Click()

 a=Val(Text1.text)

 b=Val(Text2.text)

 Do While a Mod b<>0

r=a Mod b

a=b

  b=r

Loop

Text3.text=str(b)

End Sub

在Text1、Text2中分别输入30、6，则Text3中的值为（  ）