A=1：b=1：n=12

f(1)=a：f(2)=b

For i=3 to n

    c=a+b

    f(i)=c Mod 4

    a=b

    b=c

Next i

执行该段程序后，数组元素f(12)的值为（  ）

Private Sub Command1_Click()

Dim a(1 To 10) As Integer, b(1 To 10) As Integer

Dim n As Integer, i As Integer

  n = 3

  For i = 1 To 5

    a(i) = i

    b(n) = 2 * n + i

 Next i

 Text1.Text = Str(a(n))

 Text2.Text = Str(b(n))

End Sub

程序运行后，单击命令按钮，在文本框Text1和Text2上显示的结果分别是（  ）

Dim a(1 To 100)As Integer, b(1 To 10) As Intege

Dim i As Integer, s As Integer, c As Integer

For i=1 To 100

    a(i)=0

Next i

For i=1 To 9 Step 2

    a(b(i))=a(b(i))+1: a(b(i+1)+1)=a(b(i+1)+1)-1

Next i

c=0

For i=1 To 100

    c=c+a(i)

    If c=0 Then s=s+ 1

Next i

Text1. Text= Str(s)

若数组b中的值依次为“5，10，7，20，30，40，40，60，55，70”，则程序运行后Text中的内容是（  ）

x =    ①  

t = 0: s = ""

Do While x <> 0

    t =    ②  

    x = x \ 10

Loop

If    ③    Then Then Then s = "是9的倍数" Else s = "不是9的倍数"

实现上述功能的VB程序如下，但加框处代码有错，请改正。

Dim a（1 To 8）As Integer

Dim n As Integer

Private Sub Form_Load（）

    a（1）= 30：a（2）= 47：a（3）= 30：a（4）= 72

    a（5）= 70：a（6）= 23：a（7）= 99：a（8）= 24

    n = 8

    For i = 1 To 8

      List 1.Addltem a（i）

    Next i

End Sub

Private Sub Command1_Click（）

    Dim i As Integer， j As Integer， k As Integer

    Dim pos As Integer

    Dim s As String

    s = Text1.Text

    pos = Val（Text1.Text）

    For i = 1 To n- 1

      For j = n To i+1 Step-1

        If a（j）< a（j -1） Then

                ‘⑴

          a（j-1）= a（j）

          a（j）= k

          '如果pos位置的数据参与交换，则更新pos值，记录pos变化位置

          If pos = j Then

            pos = j-1

            s = s + " →" + Str（pos）

              ‘⑵

            pos = j

            s = s + " →" + Str（pos）

          End If

        End If

      Next j

    Next i

    Label1.Caption = "位置变化情况：" +s

    For i = 1 To n

      List2.AddItem Str（a（i））

    Next i

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#}