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

Private Sub Command1_Click( )

Dim x As String, k As String, j As Integer

x = "XiaoWei"                    ①

k = "语文"                       ②

j = 90                           ③

Text1.Text = x + k +j               ④

End Sub

    Private Sub Command1  Click()

    Dim a(1 To 10)As Integer

    Dim i As Integer

    For i=1 To 10

    a(i)=i * i

    Next i

    List1．Add Item Str(a(i))

    End Sub

运行程序，单击命令按钮Command1后，出现的错误提示为：（  ）

图1

图2