求助VB大佬

两题一样都用穷举。
做了，有问题再来问
你没做，我也没啥说

有被删图片了……
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim c As Integer
For i = 0 To 9
For j = 0 To 9
If i <> j Then
'k = i * 1000 + i * 100 + j * 10 + j 这行可以简化
k = i * 1100 + j * 11
For c = 31 To 100 ' 这样无效循环很多，但不影响使用
'If (c * c) = k Then
' Print k
'End If 以上三行可以写为一行
If c * c = k Then Print k
Next c
End If
Next j
Next i
'End If 一如miku大神所说，这行是多余的。
End Sub
'另一个思路
Dim i As Integer, j As String
For i = 31 To 100
j = CStr(i * i)
If Left(j, 1) = Mid(j, 2, 1) And Right(j, 1) = Mid(j, 3, 1) And Left(j, 1) <> Right(j, 1) Then Print j
Next i

两个数相同，说明是11的倍数，那么循环步进11即可，整数的平方，说明这个数字开方是个整数，用n = int(n)判断即可。
Sub aggg()
Dim i As Long, j As Long, d As Double
For i = 0 To 99 Step 11
For j = 0 To 99 Step 11
If i <> j Then
d = Sqr(i * 100 + j)
If d = Int(d) Then Debug.Print i & j
End If
Next
Next
End Sub