Private Sub Command1_Click()

 Dim a(1 To 5) As Integer

 a(5)=Val(Text1.text)

 For i=4 To 1 Step -1

   a(i)=a(i+1)\2

 Next i

 Label1.caption=str(a(1))

End sub

在文本框Text1中输入“100”,单击命令按钮Command1后,标签Label1中显示的内容是（  ）

同时，对于多个地址块为 0 的情况时，可以使用“::”号，进行化简。化简原则：

①全 0 块“0000”，可以化简为“0”

②连续多个全0块，可以化简为“::”

③一个IPv6地址中只能出现一个“::”，出现多个全 0块时，“::”要化简最长的一段，没有最长的就将最左侧的一段化简为“::”

④“::”可以出现在地址开头或结尾具体示例如下：

程序界面如图所示：

实现上述功能的VB程序如下，请回答下列问题：

a(1) = "231": a(2) = "34": a(3) = "23": a(4) = "234": a(5) = "123"

For i = 1 To 2

    For j = 1 To 5 - i

       If a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t

   Next j

   Text1.text=a(j)

Next i

执行该程序段后，文本框Text1显示的内容为（    ）

Randomize

For i= 1 To 6 

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

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

    a(i)=a(i)-1

  Else

    a(i)=a(i)+2

  End If

Next i

执行该程序段后，a(1)~a(6)各元素可能的是（  ）