1. (2019·上海模拟) 某VB 程序代码如下：

Function arr(x As Integer) As Boolean

    Dim s As Integer, i As Integer

    s = 1

    For i = 2 To x \ 2

        If x Mod i = 0 Then s = s * i

    Next i

    If s = x Then

        arr = True

    Else

        arr = False

    End If

End Function

Private Sub Command1_Click()

    Dim i As Integer

    For i = 2 To 10

        If arr(i) Then List1.AddItem str(i)

    Next i

End Sub

单击Command1按钮后，List1中显示的结果是（   ）