s = 1: t = 1

If a > 0 Then s = s + 1

If a > b Then

t = s + t

ElseIf a = b Then

t = 5

Else

t = 2 * t

End If

i =1：j=2

Do While j <= 10

    If j < 10 Then

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

    End If

    If a (i) > a(j)  Then

        temp =a (i): a(i) = a(j): a(j) = temp

        i=j

        j=2*i

    Else

        Exit Do

    End If

Loop

Text1.Text =a (2)

已知数组元素a(1)到a(10)的原始数据为“20, 3, 10, 17,18, 15, 16, 19, 21, 30”，执行该代码后,文本框Text1中显示内容是：（ ）

Dim a(1 To 5)As Integer

a(1)=1 : a(2)=2

For i=3 To 5

   a(i)=a(1)

   For j=i-1 To 2 Step -1

a(j)=a(j)＋a(j－1)

   Next j

Next i

Text1.Text=Str(a(3))

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

Dim a(1 To 20)As String   ‘用于存储20个字符串

‘将20个字符串分别保存赋值给数组元素a(1)、a(2)、a(3)、a(4)、…、a(19)、a(20)，并在列表框List1中显示

Private Sub Form_Load()

‘代码略

End Sub

Private Sub Command1_Click()

Dim s As String, n As Integer, i As Integer

Dim flag As Boolean  ‘变量flag用于标记是否在数组a中筛选到左边与s匹配的字符串

List2.Clear  ‘筛选时清空上次筛选结果

s=Text1.Text

n=Len(s)

flag=False

For i=1 To 20

  If  Then   ‘{#blank#}1{#/blank#}

   List2.AddItem a(i)

   flag=True

  End If

Next i

If flag=False Then

     ‘{#blank#}2{#/blank#}

End If

End Sub

明文：HelloWorld

密钥：abcabcabca

密文：HfnlpYosnd

依据上述算法描述设计了如下VB程序。请回答下列问题：