关于重力势能的说法，正确的是（   ）

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

— Don't forget _______ it to school tomorrow, please.

                                                                                                            兰溪棹歌^①
                                                                                                               戴叔伦
                                                                                     凉月如眉挂柳湾，越中山色镜中看。
                                                                                     兰溪三日桃花雨，半夜鲤鱼来上滩。
                                                              【注释】①兰溪，在今浙江兰西县西南。棹（zhào）歌：船歌。