[在Access中创建VBA模块]2、统计1000~9999之间的所有满足以下条件的四位数的个数.2、统计1000~9999之间的所有满足以下条件的四位数的个数.*该四位数是一个完全平方数且其中第一位数与第三位

Question

[在Access中创建VBA模块]2、 统计1000~9999之间的所有满足以下条件的四位数的个数.
2、 统计1000~9999之间的所有满足以下条件的四位数的个数.
*该四位数是一个完全平方数且其中第一位数与第三位数之和为12.
*第二位数与第四位数之积为24.
1

Answer 1

Sub 查找满足条件的4位数() For i = 1000 To 9999 If Int(Sqr(i)) = Sqr(i) And Val(Left(i, 1)) + Val(Mid(i, 3, 1)) = 12 And Mid(i, 2, 1) * Right(i, 1) = 24 Then N = N + 1 S = S & i ...