已知一个被除数的多个除数和余数，求该被除数

zdfzjdc

已知：一个数除以1，余数是0；除以2，余数是1；除以3，余数是0；除以4，余数是1；除以5，余数是4；除以6，余数是3；除以7，余数是0；除以8，余数是1；除以9，余数是0。
求：这个数

kmcla

一个数除以1，余数是0；除以2，余数是1，                                         是单数
除以3，余数是0，除以7，余数是0；除以9，余数是0。      被3，7，9整除            7*9最大公约数＝63
除以6，余数是3；                                                                 比3多3，比9少3       满足除以8，余数是1，除以4，余数是1；                                       8的倍速加1
除以5，余数是4；                                                                  5的倍速是单数并加4


5的倍速是单数并加4， 8的倍速加1     指向9，63再*9
总结63，含9的单数倍。
是3969

kmcla

我练练分析能力。
VBA穷举法，上网搜，改一下就好

望帝春心

此数不唯一吧，函数也能做

上清宫主

除以1，余数是0；除以3，余数是0；除以7，余数是0；除以9，余数是0。----63的倍数
除以2，余数是1；除以4，余数是1；除以8，余数是1；----被8除余1
除以5，余数是4；----被5除余4
除以6，余数是3；----被6除余3
列出9999999以内满足要求的数：
n = 63
Do While n < 9999999
   If n Mod 8 = 1 Then
      If n Mod 5 = 4 Then
        If n Mod 6 = 3 Then
           r = r + 1
           Cells(r, 1) = n
        End If
       End If
    End If
   n = n + 63
Loop

上清宫主

除以5，余数是4；--------个位数为9
个位数为9的63的倍数，只能是63*3、63*13、63*23、63*33……

金樽空对月

kmcla 发表于 2017-2-17 20:45
一个数除以1，余数是0；除以2，余数是1，                                         是单数
除以3，余数是 ...

笨办法，因此数不唯一，所以在代码中设定一个范围查找，然后一起存放在C列，见附件。

金樽空对月

笨办法，见附件

1. Sub myji()
   
2. Dim i, n
   
3. Dim st As String
   
4. Dim br()
   
5. Dim ar(1 To 99999)
   
6. For i = 1 To UBound(ar)
   
7.   If i Mod 1 = 0 And i Mod 2 = 1 And i Mod 3 = 0 And i Mod 4 = 1 And i Mod 5 = 4 And i Mod 6 = 3 _
   
8.   And i Mod 7 = 0 And i Mod 8 = 1 And i Mod 9 = 0 Then
   
9.     n = n + 1
   
10.     ReDim Preserve br(1 To n)
    
11.     br(n) = i
    
12.   End If
    
13. Next i
    
14. st = Join(br, ";")
    
15. MsgBox st   '用消息盒子生成符合条件数据
    
16. Range("c1").Resize(n, 1) = Application.WorksheetFunction.Transpose(br) '把符合条件的数据存放在C列
    
17. End Sub
    

复制代码

zdfzjdc

我是一个初学者，非常感谢各位的热情解答，此问题已经在大家的努力下圆满掌握！

zdfzjdc

Sub yushu_1()            '列出9999999以内满足要求的数
Dim n As Long, r As Long
n = 1
Do While n < 9999999
    If n Mod 1 = 0 Then
      If n Mod 2 = 1 Then
        If n Mod 3 = 0 Then
          If n Mod 4 = 1 Then
            If n Mod 5 = 4 Then
              If n Mod 6 = 3 Then
                If n Mod 7 = 0 Then
                  If n Mod 8 = 1 Then
                    If n Mod 9 = 0 Then
                       r = r + 1
                       Cells(r, 1) = n
                    End If
                  End If
                End If
              End If
            End If
        End If
      End If
    End If
  End If
  n = n + 1
Loop
End Sub