明文：HelloWorld

密钥：abcabcabca

密文：HfnlpYosnd

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

请在下列程序代码的基础上按照要求设计该程序，完善程序中的划线部分。

Dim n As Integer, a1 As Integer, a2 As Integer, a3 As Integer

Function f(x as integer) As Boolean

 f=True

 For i=2 To Sqr(x)

   If x Mod i=0 Then {#blank#}1{#/blank#}

 Next i

End Function

Private Sub Command1_Click()

n={#blank#}2{#/blank#}

For a1=2 To n

 For a2=a1 To n

  For a3=a2 To n

   If{#blank#}3{#/blank#}And f(a1) And f(a2) And f(a3) Then

    List1.AddItem(Str(a1)+“ ”+Str(a2)+“ ”+Str(a3))

   End If

  Next a3

 Next a2

Next a1

End Sub

'待排序数据存储在数组a中（a（1）~a（n）），要求升序排列

For i=1To（n-1）\2

  For j=1To n-i*2

    If a  Then         '①

      t= a（j）：a（j）= a（j+ 2）：a（j+2）= t

    End If

  Next j

Next i

For i = 1 To n\2

    j = 2 * i - 1

    If a（j）> a（j+ 1）Then t = a（j）：a（j）= a（j+1）：a（j+1）= t

Next i

For i=  Step 2         '②

    t = a（i）：j = i - 1

    Do While t <a（j）

      a（j+ 1）= a（j）：j =j-1

    Loop

    a（j+ 1）= t

Next i

①{#blank#}1{#/blank#}②{#blank#}2{#/blank#}