求助各位老师！！！！！！！！！！！

xihaihandsp

求助各位老师，万分感谢！！！！！！！！！！！！！！！！！

xihaihandsp

mikezhan 发表于 2018-8-10 18:17
玩彩票？脑子进水了？不务正业，光想投机取巧

谢谢提醒！  再次求助各位老师

xihaihandsp

xihaihandsp 发表于 2018-8-10 20:11
谢谢提醒！  再次求助各位老师

感谢老师们能够帮助

719404338

1. Sub t()
   
2. Dim arr, brr, crr, x%, y%, z%, i%
   
3. i = 1
   
4. arr = Array(1, 2, 4, 6)
   
5. brr = Array(5, 6, 7, 8)
   
6. crr = Array(3, 4, 6, 7, 8)
   
7. For x = 0 To 3
   
8.   For y = 0 To 3
   
9.    For z = 0 To 4
   
10.    If (arr(x) + brr(y) + crr(z)) Mod 10 = 3 Or (arr(x) + brr(y) + crr(z)) Mod 10 = 4 Or (arr(x) + brr(y) + crr(z)) Mod 10 = 7 Or (arr(x) + brr(y) + crr(z)) Mod 10 = 8 Or (arr(x) + brr(y) + crr(z)) Mod 10 = 9 Then
    
11.       If Application.Max(arr(x), brr(y), crr(z)) - Application.Min(arr(x), brr(y), crr(z)) = 4 Or Application.Max(arr(x), brr(y), crr(z)) - Application.Min(arr(x), brr(y), crr(z)) = 5 Or Application.Max(arr(x), brr(y), crr(z)) - Application.Min(arr(x), brr(y), crr(z)) = 6 Or Application.Max(arr(x), brr(y), crr(z)) - Application.Min(arr(x), brr(y), crr(z)) = 7 Then
    
12.          Range("a" & i) = 100 * arr(x) + 10 * brr(y) + crr(z)
    
13.             i = i + 1
    
14.      End If
    
15.      End If
    
16.      Next z
    
17. Next y
    
18. Next x
    
19. End Sub

复制代码

xihaihandsp

719404338 发表于 2018-8-10 21:28

谢谢您老师，辛苦了！！！！！！！！！！！可能我表达不到位  ，老师没有明白我的意思   ，
我的意思是     逐个判断000~999里的三位数  ，那些每个三位数满足上面五个条件中的几个  ，满足其中任一个条件且剩下四个条件不满足的所有三位数找出来 ，满足其中任意两个条件且剩下三个条件不满足三位数的找出来，满足其中任意三个条件且剩下两个条件不满足的三位数找出来， 满足其中任意四个条件且剩下一个条件不满足的三位数找出来，五个条件都满足三位数找出来，
   比如   159  这个三位数的 百位是1  ，五个条件中的百位是1246，  这个三位数的十位是5  ，五个条件中的十位是5678， 这个三位数的 个位是9 ，五个条件中的个位是34678， 因为34678里没有9所以个位不满足条件，159的合值是5   ，五个条件中的合值34789，合值里没有5，所以159的合值也不满足条件，159的跨度是9-1=8，五个条件中的跨度是4567，  跨度里没有8 ，所以 159的跨度也不满足条件，  综合以上159这个三位数只满足五个条件中的两个条件，所以只满足百位和十位的条件。个位、跨度、合值、这三个条件是不满足的   。所以159就会在满足其中任意两个条件且剩下三个条件不满足三位数的打出来

719404338

我算了一下满足5个条件的1种方法，4个条件的5种方法，3个条件的10种方法，2个条件的10种方法，1个条的5种方法，共31种方法。我的代码是满足5个条件的，你可以在这个基础上改。

xihaihandsp

719404338 发表于 2018-8-11 08:48
我算了一下满足5个条件的1种方法，4个条件的5种方法，3个条件的10种方法，2个条件的10种方法，1个条的5种方 ...

感谢老师，才刚学，还不会改啊！！