我们已为您的一项 Google 服务更新了条款。请接受新条款以继续使用该服务。
-
Google Workspace 服务条款 上次修改日期:2021 年 9 月 20 日 如需本协议的其他语言翻译版本,请点击此处。 如果您为了使用
Google Workspace 服务而通过同一个 Google Workspace 帐号签署了本协议的离线版本,
6 天前
怪兽麒麟 ~ 传说中的一种祥瑞,奇奇怪怪,闻名至今。
1-9数字三位数减三位数等于三位数
使用1-9的数字,要求形成一个等式,用三位数,减去三位数,等于三位数
要求所有数字不重复,即同时不漏
列出所有的可能
帮朋友家小孩看一下有多少种可能
谢谢,因还未得答案,未上附件,见谅
Sub Test()
Dim a, b, c, d, e, i
For a = 123 To 789
For b = a + 1 To 987 - a
c = a + b
d = c & "-" & a & "=" & b
For i = 1 To 9
If InStr(d, i) = 0 Then Exit For
Next
If i = 10 Then e = e + 1: Debug.Print e; vbTab; d
Next
Next
End Sub