读下面VB程序段，

Dim j  As Integer, k  As Integer

List Clear

  For k = 1 To 100

     j = Int(Sqr(k))

     If j * j = k Then list1.AddItem Str(k)

 Next k

    分析程序功能，该程序的功能是（   ）

A、  输出1到100以内的所有的质数

B、输出1到100以内的所有的奇数

C、输出1到100以内的所有的偶数

D、输出1到100以内所有的完全平方数