请根据算法将下列程序补充完整。

Function prime（a As Integer） As Boolean

    Dim j As Integer

    prime = True

    j = 2

    Do While prime And j <= a \ 2

       If a Mod j = 0 Then

           prime = False

         Exit Do

       End If

             {#blank#}1{#/blank#}

         Loop

End Function

Private Sub Command1_Click（ ）

Dim i As Integer, a As Integer, b As Integer

Dim count As Integer

a = Val（Text1.Text）

b = Val（Text2.Text）

        For i = a To b

           If {#blank#}2{#/blank#} = True Then

               List1.AddItem Str（i）

               count = count + 1

           End If

Next i

Label1.Caption = "素数共有" + Str（count） + "个!"

End Sub

   s = ""

   For i = 1 To 5

      a(i) = 0

   Next i

   For i = 2 To 5

      For j = i To 5

         If j Mod i = 0 Then a(j) = 1 - a(j)

      Next j

   Next i

   For i = 1 To 5

      If a(i) = 1 Then s = s + Str(i)

   Next i

   Text1.Text = s

运行该程序段后，Text1中显示的内容为（  ）

s = "123456789"

g = ""

For i = 1 To 3

  n = Len(s)

  x = Int(Rnd * n) + 1

  g = g + Mid(s, x, 1)

  s = Mid(s, 1, x - 1) + Mid(s, x + 1, n - x)

Next i

在程序执行时，若变量x的值依次为3，3，6，则最终变量g的值为（  ）

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

则下列说法正确的是(  )