Function f(n as integer) as long

    Dim j As Integer

    f=1

    For j=1 to n

   f=f*j

    Next j

End Function

 Private Sub Command1_Click()

  Dim s As Long, AS Integer

  S=0

  For i=1 to 6

  Next i

  Text1.text=str(s)

 End Sub

方框中正确的语句是  （   ）

⑴以字节为单位进行加密处理；

⑵将1个字节的8位二进制数分割成前4位与后4位两个二进制数；

⑶分别将上述两个4位二进制数转换为十进制数；

⑷将每个十进制数转换为1个加密字符，对应的“密码表”如下：

小明按照上述方法，设计了一个字符串（仅包含ASCII字符）加密的VB程序，功能如下:单击“加密”按钮Commandl,程序依次将文本框Textl中每个字符的ASCII码值作为1个字节转换为两个加密字符，连接这些加密字符，最后在文本框Text2中输出加密结果。下表显示了字符串中一个字符的加密过程：

程序运行效果如图所示。

实现上述功能的VB程序如下：

Private Sub Command1_Click()

    Dim Pi As Single, t  As Single

    Dim n As Integer, s As Integer

    Pi = 0

    t = 1: n = 1:s =1

    Do While Abs(t) >= 0.0001

        Pi = Pi + t

        n = {#blank#}1{#/blank#}

        s= {#blank#}2{#/blank#}

        t = s *1 / n

    Loop

    Text2.Text ={#blank#}3{#/blank#}

End Sub

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

Const n = 10

Dim a(1 To n) As Integer

Private Sub Command1_Click()

    Dim i As Integer, j As Integer

    Dim temp As Integer, flag As Boolean

    '读取一组正整数，存储在数组a中，代码略

    i = 1: j = n

    temp = a(j): flag = True

    Do While i < j

        If flag Then

            If a(i) Mod 2 = 0 Then

                a(j) = a(i)

                j=j-1

                flag=Not flag

            Else

                    '⑴

            End If

        Else

            If a(j) Mod 2 = 1 Then

                a(i)=a(j)

                flag=Not flag

            Else

                j=j-1

            End If

        End If

    Loop

         '⑵

    '依次输出排序后的数据，代码略。

End Sub

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