Function s(m) As Boolean

 Dim i As Integer

 ______1_______

For i = 2 To Int(Sqr(m))

 If m / i = 0 Then  s = false     ‘3

Next i

End Function

Private Sub Command1_click()

 Dim i, n As Integer

 Dim p1, p2 As Boolean

  n = Val(Text1.Text)

  p1 = s(3)

  List1.Clear

  For i = ______2_____

  p2 = s(i)

  If p2 = True Then List1.AddItem = Str(i - 2) + " " + Str(i)   ‘4

  p1 = p2

Next i

End Sub

For i = 5 To 4 Step -1

        k = i

        For j = 6 - i To 1 Step -1

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

        Next j

        If i <> k Then

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

        End If

    Next i

数组元素a(1)到a(5)的值依次为“41，66，70，83，31”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为（  ）

s = 0

For i = 1 To 30

 If i Mod 5 = 0 Then

   s = s + i

   i = i + 6

 End If

Next i

运行后，变量s的值是（   ）

图中空白处理框①和②处应填入的是（  ）

Dim a(1 To 5) As Integer Randomize

s = 0

Do While s<5

t = Int(Rnd * 5 + 1) a(t) = a(t) + 1

If a(t) = 1 Then s = s + a(t)

Loop

已知数组a(1)到 a(5)的初值均为0，该段程序运行后，下列说法正确的是（  ）