| 楼主 天南地北 |
求下面除式的除数和被除数，注意没有无效零！每个格子都要填上一个数字，使除式成立！ 方法不限，得出结果即可 欢迎大家从逻辑上解题 各位解题同时能提供解题思路最好 答题暂定截止到12月17日晚8点 得出答案者给予至少2魅力，提供思路者视具体而定给予5魅力和一定的技术分！  2楼的解释相当给力，省去了我分析解释了！  11月测验题二.rar |
| 2楼 liuguansky |
124*9780911月测验题二.rar |
| 3楼 悠悠雨 |
答案呢？ |
| 4楼 tzfcn |
 Sub test() Dim i&, j%, k&, arr(16777216) As String, ti() As Double Dim StartTime As Double, EndTime As Double k = 1 StartTime = Timer For i = 10000000 To 99999999 For j = 100 To 999 If i / j = i \ j And (i \ j Mod 10) = 0 And Int((i \ j Mod 10000) / 1000) = 7 Then k = k + 1 arr(k) = i & "/" & j & "+" & Timer - StartTime If k Mod 65536 = 0 Then l = ((k - 1) Mod 65536) + 1 m = (k - 1) \ 65536 + 1 o = (m - 1) * 65536 + 1 p = 1 For n = o To m * 65536 Cells(p, m) = arr(n) p = p + 1 Next ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & "求7+" & Int((k - 1) / 65536) + 1 & ".xls" End If End If Next Next m = (k - 1) \ 65536 + 1 o = (m - 1) * 65536 + 1 p = 1 aaa = Timer For n = o To k Cells(p, m) = arr(n) p = p + 1 If n = k Then Cells(p + 1, m) = Timer - aaa End If Next ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & "求7+完成.xls" End Sub 运行（不完全）结果： 10098472/568 10098474/267 10098475/149 10098495/115 10098496/116 10098504/104 符合条件的有：2076105个 |