[趣味数论大挑战]俺也出个小学生的问题

任在深

中国要举起证明论的大旗！

ysr

中国数学是创造理论的数学，是破解难题的数学，是最有发展前途的数学，是最有说服力和证明力的数学！

天山草

[这个贴子最后由天山草在 2012/06/29 08:58am 第 3 次编辑] 不动脑筋的计算机编程方法如下—— '; 求一个电话号码 '; 某住宅区有12家住户，他们的门牌号依次分别为 1,2,3,4,5,6,7,8,9,10,11,12。 '; 各家的电话号码依次是12个连续的 8 打头的六位自然数，并且每家的电话号码都能被下一家的门牌号码整除。 '; 第12家的电话被13除余11，那么这一家的电话号码是多少？ '; 程序运行结果是 n(12) = 887053 '; 程序如下：         Private Sub form_Click()         Dim n(12)     For i = 800000 To 899999        For k = 1 To 12         n(k) = i + k - 1         If k < 12 And n(k) / (k + 1) <> Int(n(k) / (k + 1)) Then GoTo 10         If k = 12 And (n(12) - 11) / 13 <> Int((n(12) - 11) / 13) Then GoTo 10        Next k          rint "n(12)="; n(12) 10:  Next i     Close     End Sub     [br][br]-=-=-=-=- 以下内容由 天山草 在 时添加 -=-=-=-=- 程序运行时间不到 1 秒。

ysr

谢谢天山草老师，运行时间很短，几乎在点按钮同时，结果就显示出来了！ 稍微改动，加了计算按钮，程序如下： Private Sub Command1_Click() Dim n(12) For i = 800000 To 899999 For k = 1 To 12 n(k) = i + k - 1 If k < 12 And n(k) / (k + 1) <> Int(n(k) / (k + 1)) Then GoTo 10 If k = 12 And (n(12) - 11) / 13 <> Int((n(12) - 11) / 13) Then GoTo 10 Next k Print "n(12)="; n(12) 10: Next i Close End Sub

ysr

祝贺中国航天员圆满完成任务平安返航！祝愿航天走向新的辉煌！
以上程序稍改数据：For i = 800000 To 2099999‘改变设定值，
显示了4个结果，程序很强大：
n(12)=887053,
n(12)=1247413,
n(12)=1607773,
n(12)=1968133,