Question

VB 题 求所有满足条件的四位数 abcd ：

Answer 1

Private Sub Form_Load()

Me.AutoRedraw = True

For a = 1 To 9

For b = 0 To 9

For c = 0 To 9

For d = 0 To 9

X = a * 1000 + b * 100 + c * 10 + d

If X Mod 11 = 0 And a b And a c And a d And b c And b d And c d And b + c = a And Sqr(b * 10 + c) = Int(Sqr(b * 10 + c)) Then Print a & b & c & d

Next

Next

Next

Next

End Sub

答案是9361和9812