a(1) = 2

For i = 2 To 3

  a(i) = a(i - 1) - Int(Rnd() * 2)

  If i Mod 2 = 1 Then

    a(i) = a(i) + 1

  Else

    a(i) = a(i) - 1

  End If

Next i

执行程序后，a(2)和a(3)的值不可能的是（   ）

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中显示的内容是（  ）

For i= 1 To 8

    a(i) =Int(Rnd*2)

Next i

sum= 0

For i=1 To 8 Step 3

    For j=i To 8

        a(j)=1-a(j)

    Next j

    sum=sum+a(i)

Next i

Text 1.Text=Str(sum)

执行该程序段后，文本框Text 1中显示的内容不可能是（  ）

Dim a(1 To 6) As Integer

Randomize

a=n Mod k

n=n\k,k=k+1,s=s+a

a(1) = Int(11 * Rnd) + 2

For i = 2 To 6

a(i) = Int(11 * Rnd) + 2

If i Mod 2 = 1 And Not prime(a(i)) Then i = i - 1

ElseIf Not prime(a(i)) Then a(i) = a(i) + a(i - 1)

End If

Next i

'自定义函数 prime()用于判断参数是否为质数，prime(n) = True 则说明 n 为质数，否则为合数，定义函数代码略执行该程序后，a(1)～a(6)的值不．可．能．为（  ）

For i = 1 To 6

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

Next i

For i = 2 To 6

If i Mod 2 = 0 And a(i)>a(i-1) Then

t=a(i)：a(i)=a(i-1)：a(i-1)=t

Else

a(i)=a(i)-1

End If

Next i

执行程序后，数组元素a(1)到a(6)的值可能是(  )