Dim x As String
Dim x1 As String, x2 As String, x3 As String, x4 As String
Dim a As Integer, b As Integer, c As Integer, d As Integer, i As Integer
Private Sub Command1_Click()
i = 1
For i = 1000 To 10000
c = i * i
x = i
x1 = Mid(x, 1, 1)
x2 = Mid(x, 2, 1)
x3 = Mid(x, 3, 1)
x4 = Mid(x, 4, 1)
d = x1 * x2 * x3 * x4
b = c Mod d
If x1 = x3 And x2 = x4 And b = 0 Then
a = a + 1
End If
Text2.Text = a
Next i
End Sub