关于小学数学的一道题,用VBA如何写代码？谢谢

yanwei82123300

关于小学数学的一道题：
今天孩子放学问了我一道数学题：
一个两位数除以8余数最大是（），被除数可能是（）。
答案  6；78
孩子问我爸爸这道题如果用VBA如何写代码？电脑如何计算呢？
当时我就蒙了，只能对孩子说爸爸还是菜鸟，等等爸爸也问问老师？
因此请大家看看了，谢谢

qiang88849

最大余数是7吧，被除数95、87、79、71、、、、、

yanwei82123300

qiang88849 发表于 2015-3-26 18:50
最大余数是7吧，被除数95、87、79、71、、、、、

谢谢帮助！请问如何写代码？

yanwei82123300

题目中一项没写清楚，被除数的个数位是8（?8）

影子5555

代码我是一窍不通滴，不过算法应该是先把所有8的两位数倍数列出来，然后看那个倍数与？8的差值大：
2*8=16  2
3*8=24  4
4*8=32  6
5*8=40  8
6*8=48  0
7*8=56  2
8*8=64  4
9*8=72  6
10*8=80 8
11*8=88  0
12*8=96  2
因为余数只可能是0-7之间的，列表中最大的只有6，所以余数最大的是6，被除数有可能是78，也有可能是38。
13*8=104 4
14*8=112 6
按发展趋势来看，余数从0-8每增加5个数字是一个循环，而余6出现在每个循环的第四次，也就是逢尾数为4或9的数乘以8得到乘数的尾数+6都是8。

其实再简单想，8是双数，不管谁乘以8都是双数，那么这个乘数和？8最大只能差6，那么这个乘数就是？2，然后8只有和尾数为4和9的数相乘得到的乘数尾数是2.

呵呵，小可初来咋到，班门弄斧了。{:soso_e183:}

站到终点站

1. Sub ff()
   
2.     Dim mMax As Integer, mNum As String
   
3.     Dim mTemp As Integer, mNow As Integer
   
4.     For i = 1 To 9
   
5.         mNow = i * 10 + 8
   
6.         mTemp = mNow Mod 8
   
7.         If mTemp > mMax Then
   
8.             mMax = mTemp
   
9.             mNum = mNow
   
10.         ElseIf mTemp = mMax Then
    
11.             mNum = mNum & "," & mNow
    
12.         End If
    
13.     Next
    
14.     Debug.Print mMax, mNum
    
15. End Sub

复制代码

输出结果：6            38,78

yanwei82123300

谢谢各位老师们的帮助！！

yanwei82123300

站到终点站 发表于 2015-3-26 23:42
输出结果：6            38,78

站到终点站 ；老师如果想得到2楼的答案如何写代码？谢谢

最大余数是7吧，被除数95、87、79、71、、、、、

盗梦

除以8最大余数当然是 8-1 ，被除数就是 8*n-1 。由于是两位数，所以 9<8*n-1<100，多个解  

yanwei82123300

谢谢大家了我算出来了

Sub ff()
    Dim mMax As Integer, mNum As String
    Dim mTemp As Integer, mNow As Integer
    For i = 1 To 10
        mNow = i * 8 - 1
        mTemp = mNow Mod 8
        If mTemp > mMax Then
            mMax = mTemp
          '  mNum = mNow
            
        ElseIf mTemp = mMax Then
            mNum = mNum & "," & mNow
        End If
    Next
    Debug.Print mMax, mNum
End Sub