第1个回答 2016-06-08
Private Sub Command1_Click()
Dim b&, c&, d&, y&, t&, g&, m%, n%, k%, f%(9)
Print "..."
m = InputBox("m")
t = 10 ^ (m - 1)
c = Sqr(t)
d = Sqr(t * 10)
For y = c To d
b = y * y
For k = 0 To 9
f(k) = 0
Next
g = b
While g > 0
k = g Mod 10
f(k) = f(k) + 1
g = g \ 10
Wend
m = 0
For k = 0 To 9
If f(k) > 1 Then m = 1: Exit For
Next
If m = 0 And f(0) = 0 Then
n = n + 1
Print " "; b; "=("; y; "^2)";
If n Mod 3 = 0 Then Print
End If
Next
Print n; "..."
End Sub本回答被提问者采纳