Question

有一个一千位数，他得各位上的数字都是1，这个数除以7，余数是几？

Answer 1

余数是5。

我用EXCEL的VBA进行计算，每个单元格放8位，需要125个单元格才能放1000位，

然后从左边每个单元格除以7，余数乘以100000000加在下一单元格，结果余数是5。

程序如下：

Sub 宏1()

For i = 1 To 125

    Cells(1, i) = 11111111

Next

y = 0

For j = 1 To 125

    Cells(2, j) = Int((y * 100000000 + Cells(1, j)) / 7)

     y = (y * 100000000 + Cells(1, j)) Mod 7

     Cells(3, j) = y

Next

End Sub