skip to main |
skip to sidebar
使用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
我读 我读读读
-
我们已为您的一项 Google 服务更新了条款。请接受新条款以继续使用该服务。
-
Google Workspace 服务条款 上次修改日期:2021 年 9 月 20 日 如需本协议的其他语言翻译版本,请点击此处。 如果您为了使用
Google Workspace 服务而通过同一个 Google Workspace 帐号签署了本协议的离线版本,
6 天前
-
第22届南通市国际象棋等级赛规程
-
第22届南通市国际象棋等级赛规程
一、主办单位:南通市陈华国际象棋俱乐部
二、协办单位:南通市崇川区国际象棋协会
三、比赛时间:2018年2月2日(星期六)
上午8:45-11:45 下午 1:30-5:00
四、比赛地点:南通市陆洪闸小学
五、参赛对象:凡在通工...
4 年前
-
-
-
-
-
-
没有评论:
发表评论