纯粹发这个题晕你们

1055751654

zpy2 发表于 2020-8-3 11:16
我算的也是55，

老师厉害了，又是PHP语言是吧

cutecpu

1055751654 发表于 2020-8-3 12:31
老师厉害了，又是PHP语言是吧

看起來像是 SQL 裡的 Recursive CTE  用法！

丢丢表格

zpy2 发表于 2020-8-3 11:16
我算的也是55，

zpy2

1055751654 发表于 2020-8-3 12:31
老师厉害了，又是PHP语言是吧

嗯，驱动是php 。
一般支持cte 的数据库都行，比如sqlite,有单独的客户端和驱动，我是用的php 驱动的。

一把小刀闯天下

一个真实bom结构不太可能是这样的，按你这结构给你凑了一个，，，

------------
娱乐娱乐1.zip (19.73 KB, 下载次数: 53)

2020-8-3 14:43 上传

点击文件名下载附件

hhjjpp

娱乐娱乐-h.rar (8.62 KB, 下载次数: 24)

2020-8-3 18:08 上传

点击文件名下载附件

wodewan

也娱乐娱乐下。。。。。。

micch

函数真不知道怎么搞，代码也不知道对错，瞎写吧，哪位老师有闲，可以指点一下，代码有什么问题。

1. Sub test()
   
2.     Dim d As Object, arr, brr, x, m%, n%
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = [a2:c18]
   
5.     For i = 1 To 17
   
6.             x = arr(i, 1)
   
7.             If Not d.exists(x) Then Set d(x) = CreateObject("scripting.dictionary")
   
8.             d(x)(arr(i, 2)) = arr(i, 3)
   
9.     Next
   
10.     brr = [e2:f3]
    
11.    
    
12.     For i = 1 To 2
    
13.             m = 0
    
14.             Call getnum(brr(i, 1), d, 1, m)
    
15.             n = n + m * brr(i, 2)
    
16.     Next
    
17.     [g6] = n
    
18. End Sub
    
19. Sub getnum(x, d, m, n)
    
20.     If d.exists(x) Then
    
21.         For Each a In d(x)
    
22.                 If a = "车圈" Then
    
23.                             m = m * d(x)(a)
    
24.                             n = n + m
    
25.                 Else
    
26.                             m = m * d(x)(a)
    
27.                             Call getnum(a, d, m, n)
    
28.                 End If
    
29.         Next a
    
30.     Else
    
31.         m = 1
    
32.     End If
    
33. End Sub
    

复制代码

1055751654

各位大神好厉害呀，崇拜崇拜

cutecpu

micch 发表于 2020-8-3 20:44
函数真不知道怎么搞，代码也不知道对错，瞎写吧，哪位老师有闲，可以指点一下，代码有什么问题。

Sub test()
    Dim d As Object, arr, brr, x, m%, n%
    Set d = CreateObject("scripting.dictionary")
    arr = [a2:c18]
    For i = 1 To 17
       x = arr(i, 1)
       If Not d.exists(x) Then Set d(x) = CreateObject("scripting.dictionary")
       d(x)(arr(i, 2)) = arr(i, 3)
    Next
    brr = [e2:f3]
    For i = 1 To 2
      n = n + getnum(brr(i, 1), d) * brr(i, 2)
    Next
    [g6] = n
End Sub
Function getnum(x, d)
   If d.exists(x) Then
      For Each a In d(x)
         n = n + getnum(a, d) * d(x)(a)
      Next
   End If
   If x = "车圈" Then n = 1
   getnum = n
End Function

祝順心，南無阿彌陀佛！