编写VB程序,实现如下功能:有一个四位数,此数十位上的数字是7,且这个四位数是一个完全平方数,现要找出符合以上要求的所有四位数,并统计共有几个数。单击Command1按钮,将符合要求的四位数显示在列表框List1中,统计个数显示在标签Label2中,界面如第15题图所示。

(1)若要修改窗体背景颜色,可在其属性窗口中______属性的属性值进行修改。
(2)解决这个问题采用的算法是________(填字母:
A.解析算法
B.枚举算法)
实现上述功能的VB程序如下,请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim i As Integer, x As Integer, c As Integer
c = 0
For i = 1000 To 9999
x = ①___________
If ②________ And x = 7 Then
③_____________ '将符合条件的四位数显示在列表框中
num = num + 1
End If
Next i
Label2.Caption = "共有:"+ ④______ +"个"
End Sub