用VB编程,查找介于正整数A,B之间只有两个数字相同的完全平方数.所谓完全平方数是指其平方根为整数的数.

用VB编程,查找介于正整数A,B之间只有两个数字相同的完全平方数.所谓完全平方数是指其平方根为整数的数.
例如676,900,1521等都是介于500~2000之间符合条件的数.

For i = 1 To 1000
s = Str(Sqr(i))
If InStr(s,.) = 0 Then
For j = 1 To Len(s)
s1 = Mid(s,j,1)
For k = j + 1 To Len(s)
If s1 = Mid(s,k,1) Then Text1.Text = Text1.Text & vbCrLf & i
Next
Next
End If
Next