编写VB程序，实现如下功能：单击按钮“确定”，在列表框中输出1-100里所有的完全平方数。程序界面如图所示：
为实现上述功能，请将以下程序补充完整。
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
