VBA80集第46集排列组合之换位法 例2代码不太懂

banyungong

这是“VBA80第46集组合之递归算法.xls”模块例2中的代码

1. Sub 组合()
   
2. k = 0
   
3. Dim t
   
4. t = Timer
   
5. Erase arr1
   
6. arr = Range("a2:a" & Range("a65536").End(xlUp).Row)
   
7. g = [b2]
   
8. h = [c2]
   
9. zuhe 1, 0, "", 0
   
10. Range("d2").Resize(k) = arr1
    
11. [e1] = k1
    
12. MsgBox "找到 " & k & " 个解! 花费" & Format(Timer - t, "0.00") & "秒"
    
13. End Sub
    
14. 
    
15. Sub zuhe(x%, z%, sr$, gg As Byte)
    
16. If z + arr(x, 1) = h And gg = g - 1 Then
    
17. k = k + 1
    
18. arr1(k, 1) = sr & arr(x, 1) & "=" & h
    
19. Exit Sub
    
20. End If
    
21. If x < UBound(arr) And z < h Then
    
22. If z + arr(x, 1) < h Then
    
23. zuhe x + 1, z + arr(x, 1), sr & arr(x, 1) & "+", gg + 1
    
24. End If
    
25. zuhe x + 1, z, sr, gg
    
26. End If
    
27. End Sub

复制代码

其中第二段开头Sub zuhe(x%, z%, sr$, gg As Byte)中的%、$都是表示什么意思，在什么情况下使用？
请高手指导一下我这个菜鸟。