[在Access中创建VBA模块]2、 统计1000~9999之间的所有满足以下条件的四位数的个数.
[在Access中创建VBA模块]2、 统计1000~9999之间的所有满足以下条件的四位数的个数.
2、 统计1000~9999之间的所有满足以下条件的四位数的个数.
*该四位数是一个完全平方数且其中第一位数与第三位数之和为12.
*第二位数与第四位数之积为24.
1
2、 统计1000~9999之间的所有满足以下条件的四位数的个数.
*该四位数是一个完全平方数且其中第一位数与第三位数之和为12.
*第二位数与第四位数之积为24.
1
赞 woiani 幼苗
共回答了19个问题采纳率：78.9% 举报
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 & "、"
End If
Next
MsgBox "满足条件的4位数共 " & N & "个：" & Left(S, Len(S) - 1)
End Sub
运行结果：只有1个满足条件的数：5476
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 & "、"
End If
Next
MsgBox "满足条件的4位数共 " & N & "个：" & Left(S, Len(S) - 1)
End Sub
运行结果：只有1个满足条件的数：5476
1年前
7
可能相似的问题
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
你能帮帮他们吗