Private Sub Command1_Click()

  Dim x As Integer，Y As Long，st

As String

  For x=100 To 1 000

    y=x^2

    st=x&y         ‘将数字x和y合并成不含空格的数字串st

    If  Then               ‘①

       List1. AddItem Str(x)&"  "& Str(y)&"  "&st

    EndIf

  Next x

  End Sub

  Function judge(s As String)As Boolean

    Dim a(1 To 100)As String，i As Integer，j As Integer

    judge=False

    For i=1 To Len(s)

      a(i)=Mid(s，i，1)

    Next i

    For i=1 To Len(s)-1

      For j=i+1 To Len(s)

         If  Then Exit Function       ‘②

      Next j

    Next i

    judge=True

  End Function

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

Private Sub Command1_Click()

  Text2．Text=coding(Text1．Text)

End Sub

Private Function coding(s As String)As String

 Dim n As Integer，i As Integer，C As String

 c=Mid(s，1，1)

n=1

 For i=2 To Len(s)

    If  Then    ‘(1)

       n=n+1

    Else

      c=c+Str(n)+“／”

      n=1

    End If

  Next i

  coding=     ‘(2)

End Function

Private Sub Command1_Click()

    Dim x As Integer

    x=Val(Text1．Text)

    Label1．Caption=Str(x) & prime(x，2)

End Sud   

Function prime(n A Integer m A Integer)As String

    If n=m Then

        prime=“是素数。”

    ElseIf n<2 Or n Mod m=0 Then

        prime=“不是素数。”

    Else

    prime=prime(n，m+1)

End If

End Function

在文本框Text1中输入的值是123，并执行程序后，自定义函数prime( )被执行的次数是（  ）

For i = 1 To 2

k = i

  For j = 6 To i + 1 Step -1

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

  Next j

  If k <> i then

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

  End If

Next i

数组元素a(1)到a(6)的值依次为“71,46,31,58,29,78”，经过该程序段“加工”后，数组元素a(1)到a(6)的值依次为（  ）

Dim a(1 To 10) As Integer

Dim flag As Boolean

Dim i As Integer, j As Integer, tmp As Integer

随机生成10个不重复的数据存入数组A中，代码略

For i=2To 10

    tmp= a(i)

    j=i

    flag=False

    Do While   ①   And Not flag

        a(j)=a(j-1)

        j=j-1

          ② 

    Loop

    a(j)=tmp

Next i

要实现上述功能，方框①②中的语句分别是（  ）

明文：HelloWorld

密钥：abcabcabca

密文：HfnlpYosnd

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