vba 00000到99999的五位数任意三位的和等于20的数

anypat

用vba 实现自动填充列为00000到99999的五位数，然后将五位数中任意三位的和等于20的数在B列中得出为20，不等于20的为0. 怎么做，请教高手

aman1516

是否可理解为：任意三个可重复数的和为20的所有组合，然后再补两个任意数即为解了

ww87725244

1. <blockquote>Sub bb()

复制代码

ww87725244

1. Sub bb()
   
2. Dim arr(), i&, k&, arr1(1 To 99999, 1 To 2)
   
3. Application.ScreenUpdating = False
   
4. With Sheet1
   
5.     For i = 1 To 99999
   
6.         ReDim Preserve arr(1 To 2, 1 To i)
   
7.         arr(1, i) = Format(i, "00000")
   
8.         For k = 1 To Len(arr(1, i)) - 2
   
9.             If Val(Mid(arr(1, i), k, 1)) + Val(Mid(arr(1, i), k + 1, 1)) + Val(Mid(arr(1, i), k + 2, 1)) = 20 Then
   
10.                 arr1(i, 1) = arr(1, i)
    
11.                 arr1(i, 2) = 20
    
12.             Else
    
13.                 arr1(i, 1) = arr(1, i)
    
14.                 arr1(i, 2) = 0
    
15.             End If
    
16.         Next
    
17.     Next
    
18.     .[d1].Resize(UBound(arr1), 2) = arr1
    
19.     .[d1].Resize(UBound(arr1), 1).NumberFormat = "00000"
    
20. End With
    
21. End Sub
    

复制代码

aoe1981

任意3位的和，指连续的3位，还是不一定连续的任意3位？如果是后者，则5位数数字和在31～39之间