VB 题 求所有满足条件的四位数 abcd ：1.\x05求所有满足条件的四位数 abcd ：① 这四位数是 11 的倍数； ② a,b,c,d 是小于 10 的互不相同的自然数； ③ b+c=a ； ④ bc是完全平方数（例如 b=2,c=5,则 b

VB 题 求所有满足条件的四位数 abcd ：1.\x05求所有满足条件的四位数 abcd ：① 这四位数是 11 的倍数； ② a,b,c,d 是小于 10 的互不相同的自然数； ③ b+c=a ； ④ bc是完全平方数（例如 b=2,c=5,则 b
VB 题 求所有满足条件的四位数 abcd ：
1.\x05求所有满足条件的四位数 abcd ：
① 这四位数是 11 的倍数；
② a,b,c,d 是小于 10 的互不相同的自然数；
③ b+c=a ；
④ bc是完全平方数（例如 b=2,c=5,则 bc=25 ,是完全平方数）.
用VB编程做

VB 题 求所有满足条件的四位数 abcd ：1.\x05求所有满足条件的四位数 abcd ：① 这四位数是 11 的倍数； ② a,b,c,d 是小于 10 的互不相同的自然数； ③ b+c=a ； ④ bc是完全平方数（例如 b=2,c=5,则 b
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