函数嵌套函数

caiyu93

1. Sub Main()
   
2.     Call Test
   
3. End Sub
   
4. 
   
5. Static Sub Test()
   
6.     Dim sc As Object,Code
   
7.     If sc Is Nothing Then
   
8.         Set sc = CreateObject("ScriptControl")
   
9.         Code = _
   
10.         "Dim Stack, Sum:Sum = 0" & vbCrLf & _
    
11.         "Set Stack = CreateObject(""System.Collections.Stack"")" & vbCrLf & _
    
12.         "Sub Recurse(ByVal Count, res)" & vbCrLf & _
    
13.         "    If Count > 0 Then" & vbCrLf & _
    
14.         "        Sum = Sum + 1" & vbCrLf & _
    
15.         "        Stack.Push Sum" & vbCrLf & _
    
16.         "        Count = Count - 1" & vbCrLf & _
    
17.         "        Recurse Count, res" & vbCrLf & _
    
18.         "    ElseIf Count = 0 Then" & vbCrLf & _
    
19.         "        res = Join(Stack.ToArray):Sum = 0: Stack.Clear" & vbCrLf & _
    
20.         "        Exit Sub" & vbCrLf & _
    
21.         "    End If" & vbCrLf & _
    
22.         "End Sub"
    
23.         With sc
    
24.             .Language = "VBscript"
    
25.             .AddCode code
    
26.         End With
    
27.     End If
    
28.     With sc
    
29.         Dim Result
    
30.         Call .CodeObject.Recurse(5, Result)
    
31.         Debug.Print Result
    
32.         Call .CodeObject.Recurse(10, Result)
    
33.         Debug.Print Result
    
34.     End With
    
35. End Sub
    

复制代码

在不考虑性能的前提下可以这么用

ykcbf1100

不知道干啥用的，能上个实例不？

caiyu93

这就是实例demo啊,在不增加函数和方法的前提下直接在一个过程内或者函数内实现内嵌调用

905738810

是不是想实现Lambda效果，可惜了ScriptControl只支持32位

caiyu93

905738810 发表于 2023-10-22 15:07
是不是想实现Lambda效果，可惜了ScriptControl只支持32位

这效果可比lambda差多了,模拟个边角料