x=5

Print x+7

Print x+2

实现上述功能的VB程序如下：

s = "2019Nian12yue3Ri"

For i = Len(s)-1 To 1 step -1

    If Mid(s, i, 1) <= "9" And Mid(s, i + 1, 1) >= "A" Then

        sum= sum+ Val(Mid(s, i, 1))

    End If

Next i

运行程序后，变量sum 的值是（  ）

a = 1

For p=1 to 50

   If  p Mod 3 = 0  Then  a = a + 1

Next p

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

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

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

④“：：”可以出现在地址开头或结尾

具体示例如下：

程序界面如图所示：

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

Dim a(1 To 5) As Integer

t=0

For i = 1 To 5

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

  t = t + a(i) \ 10

Next i

For j = 1 To t \ 3

  If j Mod 2 = 1 Then a(j) = a(j) + 1 Else a(j) = a(j) - 1

Next j

运行程序后，数组a各个元素的值，不可能的是（  ）