图a

图b为标准ASCII码表供你参考（其中ASCII为1-32,127的字符为特殊符号，不能用作密码）：

图b

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

  Private Sub Command1_Click()

    Dim a(0 To 9)As Integer

    Dim t As Long

    t=Val(Text1.Text)

    Do While t<>0

       a(t Mod 10)=1

       t=t\10

    Loop

    For i=0 To 9

        x=x+a(i)

    Next i

  End Sub

若在文本框Text1中输入10242048，则程序执行后，变量x的值为（  ）

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

Dim a(1 To 100) As Integer

Sub sort(left As Integer,right As Integer)

Dim i As Integer,j As Integer,t As Integer

For i=1 To right-left

For j= 　'{#blank#}1{#/blank#}

If a(j)>a(j+1) Then

   t=a(j):a(j)=a(j+1):a(j+1)=t

End If

Next j

Next i

End Sub

Private Sub Command1_Click()

Dim p As Integer,q As Integer

Dim i As Integer,j As Integer,n As Integer,x As Integer

Randomize

n=Val(Text1.Text):Text2.Text=″ ″:Text3.Text=″ ″

p=0

　'{#blank#}2{#/blank#}

For i=1 To n

x=Int(Rnd*100)

Text2.Text=Text2.Text+Str(x)

If x Mod 2=0 Then

   p=p+1

   a(p)=x

Else

   q=q-1

   a(q)=x

End If

Next i

Call sort(1,p)

Call sort(p+1,n)

For i=1 To n

Text3.Text=Text3.Text+Str(a(i))

Next i

End Sub

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)的值为（  ）

i = n

Do While i >=2

k = i

For j =            To 1 Step -1

If a(j) > a(k) Then k = j

Next j

If i <> k Then

t = a(k): a(k) = a(i): a(i) = t

End If

Loop

则下列说法正确的是(  )