求大神用vb做出这道题。一辆卡车违反交通规则，撞人后逃跑。现场有三人目击该事件，但都没有记住车号，

Question

求大神用vb做出这道题。一辆卡车违反交通规则，撞人后逃跑。现场有三人目击该事件，但都没有记住车号，只记下车号的一些特征。
甲说：牌照的前两位数字是相同的；乙说：牌照的后两位数字是相同的，但与前两位不同；
丙是数学家，丙说：四位的车号刚好是一个整数的平方。请根据以上线索求出车号。求代码

Answer 1

这个就是枚举算法，使用循环来做，利用计算机的高速度，一个一个“猜”，用数学式子去验证。
假设四位数字，从左到右为：ABCD
for A= 0 To 9
for B= 0 To 9
for C= 0 To 9

for D= 0 To 9

'在这里根据三个人的描述，进行判断
next D
next C
next B
next A

Answer 2

Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i = 1000 To 9999
    If Left(i, 2) <> Right(i, 2) And Mid(i, 1, 1) = Mid(i, 2, 1) And Mid(i, 3, 1) = Mid(i, 4, 1) Then
        For j = 32 To 99
            If j ^ 2 = i Then
                Print i
            End If
        Next
    End If
Next
End Sub

追问

有没有简便点的计算？