空白矩形框中应该填入的是（   ）

    Dim P As Integer, q As Integer, S As Integer, t As Integer

    p=Val(Text1．Text)

    t=0

    For q=P+1 To 2*p

      s=(p*q)Mod(q-p)

      If s=0 Then

         t=t+1

      End If

    Next q

    Label1. Caption=Str(t)

该程序段运行时，在文本框Text1中输入8，则在标签Label1中显示的内容是（  ）

实现上述功能的VB程序如下，请回答下列问题：

Private Sub Command1_Click()

Dim a(20) As Long

Dim i As Integer, j As Integer, s As String List1.Clear

n = Val(Text1.Text)

a(1) = 1

List1.AddItem Str(a(1)) For i = 2 To n

    s = ""

    For j = Step -1  

        a(j) =    ①     

        s = s + Str(a(j))

    Next j

           ②        Next i

x=-4.2

y=Abs(Int(x))

If x＞0 And x＜5 Then

 y=y+1

Else

 y=y-1

End If

该程序段运行后，y的值为（  ）

为实现上述功能，请将以下程序补充完整。

Private Sub Command1_Click()

Dim j As Integer, k As Integer

List1.Clear

For k = 1 To 100

    j = Int(Sqr(k))

    If {#blank#}1{#/blank#}Then List1.AddItem {#blank#}2{#/blank#}

Next k

End Sub