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
我读 我读读读
-
第22届南通市国际象棋等级赛规程
-
第22届南通市国际象棋等级赛规程
一、主办单位:南通市陈华国际象棋俱乐部
二、协办单位:南通市崇川区国际象棋协会
三、比赛时间:2018年2月2日(星期六)
上午8:45-11:45 下午 1:30-5:00
四、比赛地点:南通市陆洪闸小学
五、参赛对象:凡在通工...
3 年前
-
[Flickr]
-
iamfisher posted a photo:
7 年前
-
-
-
-
-
-
没有评论:
发表评论