Fwd: 百度地图开发者合规指引
-
From: 百度地图开放平台 Date: Wed, Nov 4, 2020 at 4:03
PMSubject:
百度地图开发者合规指引尊敬的开发者:非常感谢您选择在您所开发的产品中集成百度地图开放平台产品和服务!2019年1月,中央网信办、工信部、公安部、市场监...
2 个月前
怪兽麒麟 ~ 传说中的一种祥瑞,奇奇怪怪,闻名至今。
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