S=0：k=1

Do while k <=4

 If 8/k >=3 Then s=s＋k

 k=k＋1

Loop

该程序段运行后，变量s和k的值分别是（  ）

  Label1.Caption="  "

  For i=0 To 5

    For j=1 To a(i)

       Label1．Caption=Label1．Caption+Str(i)

    Next j

  Next i

数组元素a(0)到a（5）的值依次为“0，1，2，0，2，0”。执行该程序段，标签Label1中显示的内容为（  ）

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

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

count=0

For i=1 To 20

    a(i) =Int(Rnd*100) + 1

Next i

For i= 1 To 20

    ①

Next i

For i= 1 To 100

    If b(i) <> 0 Then count =count+1

Next i

Label 1.caption=“不重复数字个数”+Str(count)

为实现上述功能，则程序①处应填入的语句为（  ）